1/2(abs(p)+abs(r) - sqrt((p-r)^2 + 4q^2))

Time bar (total: 8.2s)

start0.0ms (0%)

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

analyze0.0ms (0%)

Memory
1.0MiB live, 1.0MiB allocated; 0ms collecting garbage
Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
0%0%99.9%0.1%0%0%0%0
100%99.9%0%0.1%0%0%0%1
Compiler

Compiled 24 to 20 computations (16.7% saved)

sample2.1s (26.1%)

Memory
122.2MiB live, 3 318.4MiB allocated; 637ms collecting garbage
Samples
729.0ms2 315×2valid
714.0ms3 176×1valid
280.0ms2 765×0valid
Precisions
Click to see histograms. Total time spent on operations: 1.4s
ival-pow2: 352.0ms (26% of total)
adjust: 277.0ms (20.5% of total)
ival-mult!: 244.0ms (18% of total)
ival-sqrt: 140.0ms (10.3% of total)
ival-add!: 138.0ms (10.2% of total)
ival-fabs: 102.0ms (7.5% of total)
ival-sub!: 100.0ms (7.4% of total)
Bogosity

explain729.0ms (8.9%)

Memory
-133.2MiB live, 411.0MiB allocated; 839ms collecting garbage
FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
1530-3(-2.2846302955474006e-161 -3.736323283037382e-268 1.722109698562658e-286)(sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))))
1200-0-(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))))
00-0-q
00-0-(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))))))
00-0-(-.f64 p r)
00-0-(pow.f64 q #s(literal 2 binary64))
00-0-#s(literal 1 binary64)
00-0-(pow.f64 (-.f64 p r) #s(literal 2 binary64))
00-0-(fabs.f64 p)
00-0-(+.f64 (fabs.f64 p) (fabs.f64 r))
00-0-(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))
00-0-#s(literal 4 binary64)
00-0-p
00-0-(+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))
00-0-(fabs.f64 r)
00-0-#s(literal 2 binary64)
00-0-r
00-0-(*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))
Explanations
Click to see full explanations table
OperatorSubexpressionExplanationCount
sqrt.f64(sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))))oflow-rescue1470
↳(+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))overflow147
↳(pow.f64 q #s(literal 2 binary64))overflow69
↳(pow.f64 (-.f64 p r) #s(literal 2 binary64))overflow99
↳(*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))overflow69
-.f64(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))))cancellation1200
sqrt.f64(sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))))uflow-rescue30
↳(+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))underflow3
↳(pow.f64 q #s(literal 2 binary64))underflow55
↳(pow.f64 (-.f64 p r) #s(literal 2 binary64))underflow21
↳(*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))underflow55
Confusion
Predicted +Predicted -
+1932
-061
Precision
1.0
Recall
0.9897435897435898
Confusion?
Predicted +Predicted MaybePredicted -
+19302
-0061
Precision?
1.0
Recall?
0.9897435897435898
Freqs
test
numberfreq
063
1116
277
Total Confusion?
Predicted +Predicted MaybePredicted -
+100
-000
Precision?
1.0
Recall?
1.0
Samples
41.0ms184×1valid
37.0ms130×2valid
25.0ms198×0valid
Compiler

Compiled 220 to 58 computations (73.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 66.0ms
ival-pow2: 17.0ms (25.9% of total)
adjust: 16.0ms (24.3% of total)
ival-mult!: 9.0ms (13.7% of total)
ival-sqrt: 8.0ms (12.2% of total)
ival-add!: 7.0ms (10.6% of total)
ival-fabs: 5.0ms (7.6% of total)
ival-sub!: 4.0ms (6.1% of total)

preprocess39.0ms (0.5%)

Memory
-16.2MiB live, 33.9MiB allocated; 8ms collecting garbage
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
073205
1168204
2466204
31734204
45460204
Stop Event
1×node-limit
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶28.1%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))))))
Symmetry

(abs q)

(sort p r)

Compiler

Compiled 44 to 36 computations (18.2% saved)

series22.0ms (0.3%)

Memory
37.7MiB live, 37.7MiB allocated; 0ms collecting garbage
Counts
18 → 154
Calls
Call 1
Inputs
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))))))
(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))
#s(literal 1 binary64)
#s(literal 2 binary64)
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))))
(+.f64 (fabs.f64 p) (fabs.f64 r))
(fabs.f64 p)
p
(fabs.f64 r)
r
(sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))))
(+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))
(pow.f64 (-.f64 p r) #s(literal 2 binary64))
(-.f64 p r)
(*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))
#s(literal 4 binary64)
(pow.f64 q #s(literal 2 binary64))
q
Outputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* -1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* p (- (* -1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (+ (fabs p) (fabs r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (fabs p) #s(hole binary64 (fabs p)))
#s(approx p #s(hole binary64 p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (+ (* 4 (pow q 2)) (pow r 2))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* p (+ p (* -2 r))) (pow r 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow r 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow r 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* p (+ p (* -2 r))) (pow r 2))))
#s(approx (- p r) #s(hole binary64 (* -1 r)))
#s(approx (- p r) #s(hole binary64 (- p r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))) 1/2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (pow p 2)))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow p 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (/ (pow r 2) (pow p 2)))))))
#s(approx (- p r) #s(hole binary64 p))
#s(approx (- p r) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (+ (fabs p) (fabs r)) r))) p)) 1/2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (fabs r)) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) p)))) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p)))) r) p)) 1)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ r p)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -2 (/ (pow q 2) p))) p)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) p)))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow r 2)) p)) (* 2 r)) p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow r 2) p)) (* 2 r)) p))))))
#s(approx (- p r) #s(hole binary64 (* -1 (* p (- (/ r p) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* -1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* r (- (* -1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (fabs r) #s(hole binary64 (fabs r)))
#s(approx r #s(hole binary64 r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* r (+ r (* -2 p))) (pow p 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow p 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* r (+ r (* -2 p))) (pow p 2))))
#s(approx (- p r) #s(hole binary64 (+ p (* -1 r))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (* p (pow q 2)) (pow r 3))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (* -1 (/ p r))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (pow r 2)))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (/ (pow p 2) (pow r 2)))))))
#s(approx (- p r) #s(hole binary64 (* r (- (/ p r) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 r))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) r)))) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r)))) p) r)) 1)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -2 (/ (pow q 2) r))) r)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow p 2)) r)) (* 2 p)) r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow p 2) r)) (* 2 p)) r))))))
#s(approx (- p r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- p r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* 2 (/ (pow q 2) (- p r)))) r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (pow (- p r) 2)))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (+ (* 4 (pow q 2)) (pow (- p r) 2))))
#s(approx (* 4 (pow q 2)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (pow q 2) #s(hole binary64 (pow q 2)))
#s(approx q #s(hole binary64 q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow (- p r) 2) (pow q 2))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 1/4 (/ (pow (- p r) 2) q)))) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)) 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))))
Calls

9 calls:

TimeVariablePointExpression
3.0ms
p
@0
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) 1 2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ (fabs p) (fabs r)) (fabs p) p (fabs r) r (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+ (pow (- p r) 2) (* 4 (pow q 2))) (pow (- p r) 2) (- p r) (* 4 (pow q 2)) 4 (pow q 2) q)
3.0ms
q
@0
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) 1 2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ (fabs p) (fabs r)) (fabs p) p (fabs r) r (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+ (pow (- p r) 2) (* 4 (pow q 2))) (pow (- p r) 2) (- p r) (* 4 (pow q 2)) 4 (pow q 2) q)
2.0ms
r
@0
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) 1 2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ (fabs p) (fabs r)) (fabs p) p (fabs r) r (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+ (pow (- p r) 2) (* 4 (pow q 2))) (pow (- p r) 2) (- p r) (* 4 (pow q 2)) 4 (pow q 2) q)
2.0ms
p
@inf
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) 1 2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ (fabs p) (fabs r)) (fabs p) p (fabs r) r (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+ (pow (- p r) 2) (* 4 (pow q 2))) (pow (- p r) 2) (- p r) (* 4 (pow q 2)) 4 (pow q 2) q)
2.0ms
q
@inf
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) 1 2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ (fabs p) (fabs r)) (fabs p) p (fabs r) r (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+ (pow (- p r) 2) (* 4 (pow q 2))) (pow (- p r) 2) (- p r) (* 4 (pow q 2)) 4 (pow q 2) q)

rewrite194.0ms (2.4%)

Memory
15.2MiB live, 241.4MiB allocated; 26ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
07975859
08165679
149505643
081175307
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
172 → 219
Calls
Call 1
Inputs
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))))))
(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))
#s(literal 1 binary64)
#s(literal 2 binary64)
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))))
(+.f64 (fabs.f64 p) (fabs.f64 r))
(fabs.f64 p)
p
(fabs.f64 r)
r
(sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))))
(+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))
(pow.f64 (-.f64 p r) #s(literal 2 binary64))
(-.f64 p r)
(*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))
#s(literal 4 binary64)
(pow.f64 q #s(literal 2 binary64))
q
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* -1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* p (- (* -1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (+ (fabs p) (fabs r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (fabs p) #s(hole binary64 (fabs p)))
#s(approx p #s(hole binary64 p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (+ (* 4 (pow q 2)) (pow r 2))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* p (+ p (* -2 r))) (pow r 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow r 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow r 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* p (+ p (* -2 r))) (pow r 2))))
#s(approx (- p r) #s(hole binary64 (* -1 r)))
#s(approx (- p r) #s(hole binary64 (- p r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))) 1/2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (pow p 2)))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow p 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (/ (pow r 2) (pow p 2)))))))
#s(approx (- p r) #s(hole binary64 p))
#s(approx (- p r) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (+ (fabs p) (fabs r)) r))) p)) 1/2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (fabs r)) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) p)))) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p)))) r) p)) 1)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ r p)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -2 (/ (pow q 2) p))) p)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) p)))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow r 2)) p)) (* 2 r)) p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow r 2) p)) (* 2 r)) p))))))
#s(approx (- p r) #s(hole binary64 (* -1 (* p (- (/ r p) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* -1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* r (- (* -1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (fabs r) #s(hole binary64 (fabs r)))
#s(approx r #s(hole binary64 r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* r (+ r (* -2 p))) (pow p 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow p 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* r (+ r (* -2 p))) (pow p 2))))
#s(approx (- p r) #s(hole binary64 (+ p (* -1 r))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (* p (pow q 2)) (pow r 3))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (* -1 (/ p r))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (pow r 2)))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (/ (pow p 2) (pow r 2)))))))
#s(approx (- p r) #s(hole binary64 (* r (- (/ p r) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 r))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) r)))) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r)))) p) r)) 1)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -2 (/ (pow q 2) r))) r)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow p 2)) r)) (* 2 p)) r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow p 2) r)) (* 2 p)) r))))))
#s(approx (- p r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- p r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* 2 (/ (pow q 2) (- p r)))) r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (pow (- p r) 2)))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (+ (* 4 (pow q 2)) (pow (- p r) 2))))
#s(approx (* 4 (pow q 2)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (pow q 2) #s(hole binary64 (pow q 2)))
#s(approx q #s(hole binary64 q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow (- p r) 2) (pow q 2))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 1/4 (/ (pow (- p r) 2) q)))) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)) 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))))
Outputs
(*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))))
#s(literal 1/2 binary64)
#s(literal 1 binary64)
#s(literal 2 binary64)
(/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 3 binary64)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 3/2 binary64))) (+.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64)) (+.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))))))
(-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))
(+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (fabs.f64 p) #s(literal 2 binary64)) (pow.f64 (fabs.f64 r) #s(literal 2 binary64))) (-.f64 (fabs.f64 p) (fabs.f64 r)))
(/.f64 (+.f64 (pow.f64 (fabs.f64 p) #s(literal 3 binary64)) (pow.f64 (fabs.f64 r) #s(literal 3 binary64))) (fma.f64 (fabs.f64 p) (fabs.f64 p) (-.f64 (pow.f64 (fabs.f64 r) #s(literal 2 binary64)) (*.f64 (fabs.f64 p) (fabs.f64 r)))))
(+.f64 (fabs.f64 r) (fabs.f64 p))
(+.f64 (fabs.f64 p) (fabs.f64 r))
(pow.f64 (*.f64 p p) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 p p))
(fabs.f64 (neg.f64 p))
(fabs.f64 p)
(exp.f64 (/.f64 (*.f64 (log.f64 p) #s(literal 2 binary64)) #s(literal 2 binary64)))
p
(pow.f64 (*.f64 r r) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 r r))
(fabs.f64 (neg.f64 r))
(fabs.f64 r)
(exp.f64 (/.f64 (*.f64 (log.f64 r) #s(literal 2 binary64)) #s(literal 2 binary64)))
r
(pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 q q) #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 q q) #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 q q) #s(literal 4 binary64)) #s(literal 2 binary64))) (-.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 (*.f64 q q) #s(literal 4 binary64))))
(/.f64 (fma.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal 64 binary64) (pow.f64 (-.f64 p r) #s(literal 6 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 q q) #s(literal 4 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (*.f64 (*.f64 (*.f64 q q) #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 6 binary64)) (*.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal 64 binary64))) (+.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 q q) #s(literal 4 binary64)) #s(literal 2 binary64)) (*.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 (*.f64 q q) #s(literal 4 binary64))))))
(fma.f64 (exp.f64 (log.f64 (-.f64 p r))) (exp.f64 (log.f64 (-.f64 p r))) (*.f64 (*.f64 q q) #s(literal 4 binary64)))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
(fma.f64 (-.f64 p r) (-.f64 p r) (*.f64 (*.f64 q q) #s(literal 4 binary64)))
(fma.f64 #s(literal 4 binary64) (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
(-.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal -4 binary64) (*.f64 q q)))
(+.f64 (*.f64 (*.f64 q q) #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
(+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 (*.f64 q q) #s(literal 4 binary64)))
(*.f64 (exp.f64 (log.f64 (-.f64 p r))) (exp.f64 (log.f64 (-.f64 p r))))
(*.f64 (-.f64 p r) (-.f64 p r))
(pow.f64 (exp.f64 (log.f64 (-.f64 p r))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (-.f64 p r) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 p r) #s(literal -2 binary64)))
(exp.f64 (*.f64 (log.f64 (-.f64 p r)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (-.f64 p r)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (-.f64 p r)) #s(literal 2 binary64))))
(pow.f64 (-.f64 p r) #s(literal 1 binary64))
(/.f64 (-.f64 (*.f64 p p) (*.f64 r r)) (+.f64 p r))
(/.f64 (-.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 r #s(literal 3 binary64))) (fma.f64 p p (fma.f64 r r (*.f64 r p))))
(/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))
(-.f64 p r)
(exp.f64 (*.f64 (log.f64 (-.f64 p r)) #s(literal 1 binary64)))
(*.f64 (*.f64 q q) #s(literal 4 binary64))
(*.f64 #s(literal 4 binary64) (*.f64 q q))
#s(literal 4 binary64)
(*.f64 (exp.f64 (log.f64 q)) (exp.f64 (log.f64 q)))
(*.f64 q q)
(pow.f64 (exp.f64 (log.f64 q)) #s(literal 2 binary64))
(pow.f64 (*.f64 q q) #s(literal 1 binary64))
(pow.f64 q #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 q #s(literal -2 binary64)))
(exp.f64 (*.f64 (log.f64 q) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 q) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 q) #s(literal 2 binary64))))
q
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) #s(literal 1/2 binary64)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -1/2 binary64)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) p)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -1/2 binary64)) (*.f64 (*.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -1/2 binary64)) r) #s(literal 1/2 binary64))) p (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) r) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/4 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -1/2 binary64)) (*.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -3/2 binary64)) (*.f64 (*.f64 r p) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))))))) p)) p (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) #s(literal 1/2 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fma.f64 p (*.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -1/2 binary64)) r) (fabs.f64 r)) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) p)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -1/2 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -1/2 binary64)) r))) p (fabs.f64 r)) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 r p) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))))) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -3/2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -1/2 binary64))))) p (*.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -1/2 binary64)) r))) p (fabs.f64 r)) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))))
#s(approx (+ (fabs p) (fabs r)) (+.f64 (fabs.f64 r) (fabs.f64 p)))
#s(approx (fabs p) (fabs.f64 p))
#s(approx p p)
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (fma.f64 (*.f64 #s(literal -1 binary64) (*.f64 r p)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -1/2 binary64)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) p)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -1/2 binary64)) (*.f64 (neg.f64 r) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -1/2 binary64)))) p (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (fma.f64 (fma.f64 (neg.f64 r) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -1/2 binary64)) (*.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal -3/2 binary64)) (*.f64 (*.f64 r p) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))))))) p)) p (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (fma.f64 #s(literal -2 binary64) (*.f64 r p) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (fma.f64 (fma.f64 #s(literal -2 binary64) r p) p (*.f64 r r))))
#s(approx (pow (- p r) 2) (*.f64 r r))
#s(approx (pow (- p r) 2) (*.f64 (fma.f64 #s(literal -2 binary64) p r) r))
#s(approx (pow (- p r) 2) (fma.f64 (fma.f64 #s(literal -2 binary64) r p) p (*.f64 r r)))
#s(approx (- p r) (neg.f64 r))
#s(approx (- p r) (-.f64 p r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (*.f64 (/.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (neg.f64 r)) p) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (fma.f64 (/.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (neg.f64 r)) p) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (*.f64 p p))) #s(literal 1/2 binary64)) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (fma.f64 (*.f64 (*.f64 q q) (/.f64 r (pow.f64 p #s(literal 3 binary64)))) #s(literal -1 binary64) (fma.f64 (/.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (neg.f64 r)) p) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (*.f64 p p)))) #s(literal 1/2 binary64)) p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (neg.f64 p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 p p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))) p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (fma.f64 (*.f64 (*.f64 q q) (/.f64 r (pow.f64 p #s(literal 3 binary64)))) #s(literal -2 binary64) (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p)) (+.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 p p)) #s(literal 2 binary64) (/.f64 (neg.f64 r) p)) #s(literal 1 binary64))) p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) p)
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)) p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 p p)) #s(literal 2 binary64) (/.f64 (neg.f64 r) p)) #s(literal 1 binary64)) p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (+.f64 (fma.f64 #s(literal 2 binary64) (fma.f64 (*.f64 q q) (/.f64 r (pow.f64 p #s(literal 3 binary64))) (/.f64 (*.f64 q q) (*.f64 p p))) (/.f64 (neg.f64 r) p)) #s(literal 1 binary64)) p))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (*.f64 p p))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (*.f64 (fma.f64 (/.f64 r p) #s(literal -2 binary64) #s(literal 1 binary64)) (*.f64 p p)))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (*.f64 (+.f64 (fma.f64 (/.f64 r p) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 q q) (*.f64 p p)) #s(literal 4 binary64) (/.f64 (*.f64 r r) (*.f64 p p)))) #s(literal 1 binary64)) (*.f64 p p)))
#s(approx (pow (- p r) 2) (*.f64 p p))
#s(approx (pow (- p r) 2) (*.f64 (fma.f64 (/.f64 r p) #s(literal -2 binary64) #s(literal 1 binary64)) (*.f64 p p)))
#s(approx (pow (- p r) 2) (*.f64 (+.f64 (fma.f64 (/.f64 r p) #s(literal -2 binary64) #s(literal 1 binary64)) (/.f64 (*.f64 r r) (*.f64 p p))) (*.f64 p p)))
#s(approx (- p r) p)
#s(approx (- p r) (*.f64 (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) (-.f64 (neg.f64 (/.f64 (fma.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) #s(literal 1/2 binary64) (/.f64 (*.f64 q q) p)) p)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) (-.f64 (neg.f64 (/.f64 (fma.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (*.f64 #s(literal -1 binary64) (fma.f64 (*.f64 q q) (/.f64 r p) (*.f64 q q))) p))) p)) #s(literal 1/2 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) p)
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (neg.f64 p) (-.f64 (neg.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p)) #s(literal 1 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (neg.f64 p) (-.f64 (neg.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fma.f64 (/.f64 (*.f64 q q) p) #s(literal 2 binary64) (fabs.f64 r)) r)) p)) #s(literal 1 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (neg.f64 p) (-.f64 (neg.f64 (/.f64 (-.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 q q) r) p) #s(literal -2 binary64) (*.f64 #s(literal -2 binary64) (*.f64 q q))) p) #s(literal -1 binary64) (fabs.f64 r)) (fabs.f64 p)) r) p)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (neg.f64 p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (neg.f64 p) (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 q q) p) #s(literal -2 binary64) r) p) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (neg.f64 p) (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 q q) (/.f64 r p) (*.f64 q q))) p) #s(literal -1 binary64) r) p) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (*.f64 (fma.f64 (/.f64 (fma.f64 r #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) p))) p) #s(literal -1 binary64) #s(literal 1 binary64)) (*.f64 p p)))
#s(approx (pow (- p r) 2) (*.f64 (fma.f64 (/.f64 (fma.f64 r #s(literal 2 binary64) (neg.f64 (/.f64 (*.f64 r r) p))) p) #s(literal -1 binary64) #s(literal 1 binary64)) (*.f64 p p)))
#s(approx (- p r) (*.f64 (neg.f64 p) (-.f64 (/.f64 r p) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) r)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 (*.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) p) #s(literal 1/2 binary64))) r (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -3/2 binary64)) (*.f64 (*.f64 r p) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))) r (*.f64 (*.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) p) #s(literal 1/2 binary64))) r (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fma.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 r p) (fabs.f64 r)) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) r)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) p))) r (fabs.f64 r)) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 r p) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -3/2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64))))) r (*.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) p))) r (fabs.f64 r)) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
#s(approx (fabs r) (fabs.f64 r))
#s(approx r r)
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (fma.f64 (*.f64 #s(literal -1 binary64) (*.f64 r p)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) r)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 (neg.f64 p) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)))) r (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (fma.f64 (fma.f64 (neg.f64 p) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -3/2 binary64)) (*.f64 (*.f64 r p) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))) r)) r (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (fma.f64 #s(literal -2 binary64) (*.f64 r p) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (fma.f64 (fma.f64 #s(literal -2 binary64) p r) r (*.f64 p p))))
#s(approx (pow (- p r) 2) (fma.f64 (*.f64 #s(literal -2 binary64) p) r (*.f64 p p)))
#s(approx (pow (- p r) 2) (fma.f64 (fma.f64 #s(literal -2 binary64) p r) r (*.f64 p p)))
#s(approx (- p r) (fma.f64 #s(literal -1 binary64) r p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (*.f64 (/.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (neg.f64 p)) r) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (fma.f64 (/.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (neg.f64 p)) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (*.f64 r r))) #s(literal 1/2 binary64)) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (fma.f64 (/.f64 (*.f64 (*.f64 q q) p) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (neg.f64 p)) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (*.f64 r r)))) #s(literal 1/2 binary64)) r))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (neg.f64 r))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64))) r))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 r r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))) r))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (fma.f64 (/.f64 (*.f64 (*.f64 q q) p) (pow.f64 r #s(literal 3 binary64))) #s(literal -2 binary64) (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r)) (+.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 r r)) #s(literal 2 binary64) (/.f64 (neg.f64 p) r)) #s(literal 1 binary64))) r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)) r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 r r)) #s(literal 2 binary64) (/.f64 (neg.f64 p) r)) #s(literal 1 binary64)) r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (+.f64 (fma.f64 #s(literal 2 binary64) (fma.f64 p (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (/.f64 (*.f64 q q) (*.f64 r r))) (/.f64 (neg.f64 p) r)) #s(literal 1 binary64)) r))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (*.f64 r r))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (*.f64 (fma.f64 (/.f64 p r) #s(literal -2 binary64) #s(literal 1 binary64)) (*.f64 r r)))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (*.f64 (+.f64 (fma.f64 (/.f64 p r) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 q q) (*.f64 r r)) #s(literal 4 binary64) (/.f64 (*.f64 p p) (*.f64 r r)))) #s(literal 1 binary64)) (*.f64 r r)))
#s(approx (pow (- p r) 2) (*.f64 (fma.f64 (/.f64 p r) #s(literal -2 binary64) #s(literal 1 binary64)) (*.f64 r r)))
#s(approx (pow (- p r) 2) (*.f64 (+.f64 (fma.f64 (/.f64 p r) #s(literal -2 binary64) #s(literal 1 binary64)) (/.f64 (*.f64 p p) (*.f64 r r))) (*.f64 r r)))
#s(approx (- p r) (*.f64 (-.f64 (/.f64 p r) #s(literal 1 binary64)) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 r) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) p)) r) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 r) (-.f64 (neg.f64 (/.f64 (fma.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) p)) #s(literal 1/2 binary64) (/.f64 (*.f64 q q) r)) r)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 r) (-.f64 (neg.f64 (/.f64 (fma.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) p)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (*.f64 #s(literal -1 binary64) (fma.f64 p (/.f64 (*.f64 q q) r) (*.f64 q q))) r))) r)) #s(literal 1/2 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) r)
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (neg.f64 r) (-.f64 (neg.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) p)) r)) #s(literal 1 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (neg.f64 r) (-.f64 (neg.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fma.f64 (/.f64 (*.f64 q q) r) #s(literal 2 binary64) (fabs.f64 r)) p)) r)) #s(literal 1 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (neg.f64 r) (-.f64 (neg.f64 (/.f64 (-.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 p (/.f64 (*.f64 q q) r)) #s(literal -2 binary64) (*.f64 #s(literal -2 binary64) (*.f64 q q))) r) #s(literal -1 binary64) (fabs.f64 r)) (fabs.f64 p)) p) r)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (neg.f64 r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (neg.f64 r) (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 q q) r) #s(literal -2 binary64) p) r) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (neg.f64 r) (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 2 binary64) (fma.f64 p (/.f64 (*.f64 q q) r) (*.f64 q q))) r) #s(literal -1 binary64) p) r) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (*.f64 (fma.f64 (/.f64 (fma.f64 p #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) r))) r) #s(literal -1 binary64) #s(literal 1 binary64)) (*.f64 r r)))
#s(approx (pow (- p r) 2) (*.f64 (fma.f64 (/.f64 (fma.f64 p #s(literal 2 binary64) (neg.f64 (/.f64 (*.f64 p p) r))) r) #s(literal -1 binary64) #s(literal 1 binary64)) (*.f64 r r)))
#s(approx (- p r) (*.f64 (neg.f64 r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fma.f64 (/.f64 (*.f64 q q) (-.f64 p r)) #s(literal -2 binary64) (fabs.f64 r))) p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fma.f64 (-.f64 (/.f64 (*.f64 (*.f64 q q) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (/.f64 #s(literal 2 binary64) (-.f64 p r))) (*.f64 q q) (fabs.f64 r))) p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) #s(literal 2 binary64))) (*.f64 q q)) (/.f64 #s(literal 2 binary64) (-.f64 p r))) (*.f64 q q) (fabs.f64 r))) p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (-.f64 p r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (-.f64 (fma.f64 (/.f64 (*.f64 q q) (-.f64 p r)) #s(literal 2 binary64) p) r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (-.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 p r))) (*.f64 q q) p) r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (-.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal 4 binary64) (*.f64 #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (*.f64 q q) (/.f64 #s(literal 2 binary64) (-.f64 p r))) (*.f64 q q) p) r))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
#s(approx (* 4 (pow q 2)) (*.f64 (*.f64 q q) #s(literal 4 binary64)))
#s(approx (pow q 2) (*.f64 q q))
#s(approx q q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) q) #s(literal 1/2 binary64)) #s(literal 1 binary64)) q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (fma.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) q) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 q q))) #s(literal 1 binary64)) q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) q) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/128 binary64) (pow.f64 (-.f64 p r) #s(literal 4 binary64))) (pow.f64 q #s(literal 4 binary64))))) #s(literal 1 binary64)) q))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -2 binary64) q))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) q) #s(literal 2 binary64)) q))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) #s(literal -1/4 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) q) #s(literal 2 binary64))) q))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) q) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) #s(literal 2 binary64)))) q))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) #s(literal 2 binary64)) q))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (+.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 q q))) #s(literal 2 binary64)) q))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (+.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 (/.f64 (pow.f64 (-.f64 p r) #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) #s(literal 1/512 binary64) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 q q)))) #s(literal 2 binary64)) q))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (*.f64 (*.f64 q q) #s(literal 4 binary64)))
#s(approx (+ (pow (- p r) 2) (* 4 (pow q 2))) (*.f64 (+.f64 (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) #s(literal 4 binary64)) (*.f64 q q)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 q) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) q) #s(literal -1/2 binary64)) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 q) (-.f64 (neg.f64 (/.f64 (fma.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 1/2 binary64) (*.f64 (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q) #s(literal 1/8 binary64))) q)) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 q) (-.f64 (neg.f64 (/.f64 (fma.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (*.f64 q q)) #s(literal 1/128 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) q))) q)) #s(literal 1 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q #s(literal 2 binary64)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (neg.f64 q) (-.f64 (neg.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) q)) #s(literal 2 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (neg.f64 q) (-.f64 (neg.f64 (/.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q) #s(literal 1/4 binary64) (fabs.f64 r)) (fabs.f64 p)) q)) #s(literal 2 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (neg.f64 q) (-.f64 (neg.f64 (/.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (*.f64 q q)) #s(literal 1/64 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) q) #s(literal -1 binary64) (fabs.f64 r)) (fabs.f64 p)) q)) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (neg.f64 q) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (neg.f64 q) (+.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 q q))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 (neg.f64 q) (+.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 (/.f64 (pow.f64 (-.f64 p r) #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) #s(literal 1/512 binary64) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 q q)))) #s(literal 2 binary64))))

eval30.0ms (0.4%)

Memory
8.4MiB live, 53.9MiB allocated; 3ms collecting garbage
Compiler

Compiled 8 461 to 1 248 computations (85.2% saved)

prune15.0ms (0.2%)

Memory
-20.3MiB live, 24.8MiB allocated; 4ms collecting garbage
Pruning

23 alts after pruning (23 fresh and 0 done)

PrunedKeptTotal
New20223225
Fresh000
Picked101
Done000
Total20323226
Accuracy
72.7%
Counts
226 → 23
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶26.1%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
▶39.1%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
▶2.0%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
▶2.2%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))))
▶8.1%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))))
▶11.7%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)))
▶18.5%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 r r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))) r)))
▶2.1%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 p p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))) p)))
▶2.1%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
▶1.9%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))))
▶3.5%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))))
▶1.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))))
▶2.2%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)))
▶24.3%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) #s(literal 1/2 binary64)))
▶22.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64)))
▶27.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
▶19.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
▶2.5%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
▶5.2%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
▶5.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
▶2.9%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
▶40.3%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
▶3.0%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
Compiler

Compiled 822 to 601 computations (26.9% saved)

series299.0ms (3.7%)

Memory
-13.2MiB live, 461.5MiB allocated; 87ms collecting garbage
Counts
129 → 1 147
Calls
Call 1
Inputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
q
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
(neg.f64 q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
(*.f64 #s(literal -1/2 binary64) p)
#s(literal -1/2 binary64)
p
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
(*.f64 #s(literal -1/2 binary64) r)
r
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
(*.f64 #s(literal 1/2 binary64) p)
#s(literal 1/2 binary64)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
(*.f64 #s(literal 1/2 binary64) r)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
(*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))))
(fma.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
(pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))
(*.f64 q q)
#s(literal 4 binary64)
(*.f64 p p)
(*.f64 r p)
(-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))
(+.f64 (fabs.f64 r) (fabs.f64 p))
(fabs.f64 r)
(fabs.f64 p)
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(*.f64 (neg.f64 p) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(neg.f64 p)
(-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64))
(/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p)
(+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r))
(-.f64 (fabs.f64 r) r)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) #s(literal 1/2 binary64))
(-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r))))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r))
(*.f64 r r)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64))
(-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p)
(+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r))
(+.f64 r (fabs.f64 p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q)))
(*.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))
(-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))
(*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q))
(fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))
(/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))
(pow.f64 (-.f64 p r) #s(literal 5 binary64))
(-.f64 p r)
#s(literal 5 binary64)
#s(literal -2 binary64)
(pow.f64 (-.f64 p r) #s(literal -3 binary64))
#s(literal -3 binary64)
(pow.f64 (-.f64 p r) #s(literal -1 binary64))
#s(literal -1 binary64)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q)))
(*.f64 (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))
(-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))
(/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64)))
(pow.f64 (-.f64 p r) #s(literal 3 binary64))
#s(literal 3 binary64)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r)))
(/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))
(neg.f64 (*.f64 q q))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))
#s(literal 1 binary64)
#s(literal 2 binary64)
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p))
(*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)
(-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))
(/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p)
(fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))
(/.f64 r p)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 p p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 p p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))) p))
(*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 p p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))) p)
(fma.f64 (/.f64 (*.f64 q q) (*.f64 p p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))))
(/.f64 (*.f64 q q) (*.f64 p p))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 r r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))) r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 r r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))) r))
(*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 r r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))) r)
(fma.f64 (/.f64 (*.f64 q q) (*.f64 r r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64))))
(/.f64 (*.f64 q q) (*.f64 r r))
(-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))
(/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r)
(fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64))
(/.f64 p r)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r))
(+.f64 (fabs.f64 p) (fabs.f64 r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))
(neg.f64 r)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))
(*.f64 #s(literal -2 binary64) q)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))
(*.f64 q #s(literal 2 binary64))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))))
(-.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1 binary64)))
(pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64))
(pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1 binary64))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
(pow.f64 (-.f64 p r) #s(literal 2 binary64))
(+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
Outputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (* -1/2 p) #s(hole binary64 (* -1/2 p)))
#s(approx p #s(hole binary64 p))
#s(approx (* 1/2 p) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* 1/4 (/ r q)) (* p (- (* -1/32 (/ (* p r) (pow q 3))) (* 1/8 (/ 1 q)))))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* 1/2 (/ (* p r) q)))) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* -1/4 (/ p q)) (* 1/2 (/ r q)))))) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* 1/2 (/ r q)) (* p (- (* -1/16 (/ (* p r) (pow q 3))) (* 1/4 (/ 1 q)))))))) (* 2 q))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ 1/2 q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* -1/16 (/ (pow p 2) (pow q 3))) (* 1/2 (/ 1 q)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow p 2) (- (* 3/256 (/ (pow p 2) (pow q 5))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow p 2) (- (* (pow p 2) (+ (* -5/2048 (/ (pow p 2) (pow q 7))) (* 3/256 (/ 1 (pow q 5))))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (* p p) #s(hole binary64 (pow p 2)))
#s(approx (* r p) #s(hole binary64 (* p r)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1/4 (/ (pow p 2) q)))) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow p 2) (- (* 1/64 (/ (pow p 2) (pow q 3))) (* 1/4 (/ 1 q)))))) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow p 2) (- (* (pow p 2) (+ (* -1/512 (/ (pow p 2) (pow q 5))) (* 1/64 (/ 1 (pow q 3))))) (* 1/4 (/ 1 q)))))) (* 2 q))))
#s(approx (+ (fabs r) (fabs p)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (fabs p) #s(hole binary64 (fabs p)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* 1/4 (/ (pow p 2) q)) (* 2 q))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* 2 q) (* (pow p 2) (+ (* -1/64 (/ (pow p 2) (pow q 3))) (* 1/4 (/ 1 q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* 2 q) (* (pow p 2) (+ (* (pow p 2) (- (* 1/512 (/ (pow p 2) (pow q 5))) (* 1/64 (/ 1 (pow q 3))))) (* 1/4 (/ 1 q)))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) r))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (+ (* 1/2 p) (* 1/2 (- (+ (fabs p) (fabs r)) r)))))
#s(approx (neg p) #s(hole binary64 (* -1 p)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (/ (+ (* -1/2 p) (* -1/2 (- (+ (fabs p) (fabs r)) r))) p)))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) #s(hole binary64 (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p))))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) #s(hole binary64 (/ (- (+ (fabs p) (fabs r)) r) p)))
#s(approx (+ (fabs p) (- (fabs r) r)) #s(hole binary64 (- (+ (fabs p) (fabs r)) r)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* (pow p 2) (- (* 1/128 (/ (pow p 2) (pow q 3))) (* 1/8 (/ 1 q)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* (pow p 2) (- (* (pow p 2) (+ (* -1/1024 (/ (pow p 2) (pow q 5))) (* 1/128 (/ 1 (pow q 3))))) (* 1/8 (/ 1 q)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* 1/2 (+ r (+ (fabs p) (fabs r))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (+ (* -1/2 p) (* 1/2 (+ r (+ (fabs p) (fabs r)))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (+ r (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (+ r (fabs p)) #s(hole binary64 (+ r (fabs p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2)))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (* 2 (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (/ 1 (pow r 4))))) (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3)))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2)))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (* 2 (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (/ 1 (pow r 4))))) (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3)))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2)))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (+ (* p (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2)))) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (+ (* p (+ (* p (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3)))) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (+ (* p (+ (* p (+ (* p (+ (* (pow q 2) (- (* 2 (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (/ 1 (pow r 4)))) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3))))) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (+ (* p (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4)))))) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7)))))) (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))))) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 2) (- (* 2 (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6))))))) (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))))) (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))))) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (- (+ (* 2 (/ (pow q 2) (pow r 5))) (* p (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4)))))) (/ 1 (pow r 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (- (+ (* 2 (/ (pow q 2) (pow r 5))) (* p (- (+ (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* p (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7)))))) (* 3 (/ 1 (pow r 4)))))) (/ 1 (pow r 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (- (+ (* 2 (/ (pow q 2) (pow r 5))) (* p (- (+ (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* p (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (+ (* 3 (/ 1 (pow r 5))) (* p (- (* 2 (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7)))))) (* 3 (/ 1 (pow r 4)))))) (/ 1 (pow r 3)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (* -1 (/ (pow q 2) (pow r 5)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (+ (* -1 (/ (* p (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 10))) (* -1 (/ (pow q 2) (pow r 5))))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 5))) (* p (- (* -1 (* p (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15))))) (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10)))))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 5))) (* p (- (* p (- (* -1 (* p (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10)))))) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15))))) (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10)))))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* -1 (pow r 5))))
#s(approx (pow (- p r) 5) #s(hole binary64 (+ (* -1 (pow r 5)) (* p (+ (* 4 (pow r 4)) (pow r 4))))))
#s(approx (pow (- p r) 5) #s(hole binary64 (+ (* -1 (pow r 5)) (* p (+ (* 4 (pow r 4)) (+ (* p (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 4)))))))
#s(approx (pow (- p r) 5) #s(hole binary64 (+ (* -1 (pow r 5)) (* p (+ (* 4 (pow r 4)) (+ (* p (+ (* -4 (pow r 3)) (+ (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))) (* p (+ (* 2 (pow r 2)) (* 8 (pow r 2))))))) (pow r 4)))))))
#s(approx (- p r) #s(hole binary64 (* -1 r)))
#s(approx (- p r) #s(hole binary64 (- p r)))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ -1 (pow r 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (- (* -3 (/ p (pow r 4))) (/ 1 (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (- (* p (- (* p (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (- (* p (- (* p (- (+ (* -1 (* p (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 3)))))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ -1 r)))
#s(approx (pow (- p r) -1) #s(hole binary64 (- (* -1 (/ p (pow r 2))) (/ 1 r))))
#s(approx (pow (- p r) -1) #s(hole binary64 (- (* p (- (* -1 (/ p (pow r 3))) (/ 1 (pow r 2)))) (/ 1 r))))
#s(approx (pow (- p r) -1) #s(hole binary64 (- (* p (- (* p (- (* -1 (/ p (pow r 4))) (/ 1 (pow r 3)))) (/ 1 (pow r 2)))) (/ 1 r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6))))))) (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6))))))) (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (+ (* p (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ 1 (pow r 2))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (+ (* p (- (+ (* p (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6)))))) (/ 1 (pow r 3))) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ 1 (pow r 2))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (/ (pow q 2) (pow r 3)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* -1 (/ (* p (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 6))) (* -1 (/ (pow q 2) (pow r 3))))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (* p (- (* -1 (* p (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (* p (- (* p (- (* -1 (* p (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6)))))) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (pow r 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* -1 (pow r 3)) (* p (+ (* 2 (pow r 2)) (pow r 2))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* -1 (pow r 3)) (* p (+ (* 2 (pow r 2)) (+ (* p (+ (* -2 r) (* -1 r))) (pow r 2)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* -1 (pow r 3)) (* p (+ (* 2 (pow r 2)) (+ (* p (+ p (+ (* -2 r) (* -1 r)))) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (/ (pow q 2) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (/ (pow q 2) (pow r 2)) 1/2)) (/ (pow q 2) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))) 1/2)) (/ (pow q 2) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2))) 1/2)) (/ (pow q 2) r)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (/ (* p (pow q 2)) (pow r 2)) (/ (pow q 2) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* p (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* p (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* -1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* p (- (* -1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* -1 r))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (/ (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) p)))
#s(approx (/ (+ (fabs r) (fabs p)) p) #s(hole binary64 (/ (+ (fabs p) (fabs r)) p)))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (* -1 (/ r p))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (/ (+ p (* -1 r)) p)))
#s(approx (/ r p) #s(hole binary64 (/ r p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -2 (/ (pow q 2) p))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* -2 (/ (pow q 2) (pow p 2)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) (pow p 2))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (pow p 2))))
#s(approx (/ (* q q) (* p p)) #s(hole binary64 (/ (pow q 2) (pow p 2))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (+ p (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ p r) (+ (/ (fabs p) r) (/ (fabs r) r)))) 1)))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (- (+ (/ (fabs p) r) (/ (fabs r) r)) 1)))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (- (+ (/ p r) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)))
#s(approx (/ (+ (fabs r) (fabs p)) r) #s(hole binary64 (/ (+ (fabs p) (fabs r)) r)))
#s(approx (+ (* (/ p r) -1) 1) #s(hole binary64 1))
#s(approx (+ (* (/ p r) -1) 1) #s(hole binary64 (+ 1 (* -1 (/ p r)))))
#s(approx (/ p r) #s(hole binary64 (/ p r)))
#s(approx (+ (fabs p) (fabs r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* p (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* -1/2 (* p (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))) (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (* p (+ (* -1/2 (* p (+ (* 1/2 (* (/ (* r (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* (/ (* r (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* -1/2 (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (+ (* -1 (* p (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))) (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (+ (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (- (* -1 (* p (+ (* 1/2 (* (/ (* r (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* (/ (* r (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* 2 (* p r)) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* p (- (* -1 p) (* -2 r))) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (pow (+ (fabs r) (fabs p)) 2) #s(hole binary64 (pow (+ (fabs p) (fabs r)) 2)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (+ (* 4 (pow q 2)) (pow r 2))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* p (+ p (* -2 r))) (pow r 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow r 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* p (+ p (* -2 r))) (pow r 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow r 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow r 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* p (+ p (* -2 r))) (pow r 2))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ 1 p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p)))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (pow p 2)))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (* (pow p 2) (+ 1 (* 4 (/ (pow q 2) (pow p 2)))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* p (- (+ (* 2 (/ (pow q 4) (pow p 4))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 p))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* p (+ 1 (* 2 (/ (pow q 2) (pow p 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (+ (* 2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 6) (pow p 6)))))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* 1/2 p)))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* p (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) r) p))))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1/2 p)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* p (- (* 1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) p))) 1/2))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (+ (* 1/2 (/ (+ (fabs p) (fabs r)) p)) (/ (pow q 4) (pow p 4)))) 1/2))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* -1/2 p)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2)))) p)))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (+ (/ (* (pow q 2) (+ (* -1 (* (pow q 2) (+ (* -2 r) (* -1 r)))) (* -1 (pow r 3)))) (pow p 3)) (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2))))) p)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ -1 p)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 2) (pow p 2))) (/ (pow q 2) (pow p 2)))) 1) p)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow p 3))) (+ (* -1 (/ (pow r 2) (pow p 2))) (+ (* -1 (/ (pow r 3) (pow p 3))) (/ (pow q 2) (pow p 2)))))) 1) p)))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (pow q 2) (pow p 3))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p)) (pow q 2)) (pow p 3))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p)) (+ (/ (* (pow q 2) (- (* -2 (pow q 2)) (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))))) (pow p 2)) (pow q 2))) (pow p 3))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p)) (+ (/ (* (pow q 2) (- (* -2 (pow q 2)) (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))))) (pow p 2)) (+ (/ (* (pow q 2) (- (* 2 (* (pow q 2) (+ (* -4 r) (* -1 r)))) (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))))) (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (* -1 (pow r 3)))))) (pow p 3)) (pow q 2)))) (pow p 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ 1 (pow p 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ (+ 1 (* -1 (/ (+ (* -2 r) (* -1 r)) p))) (pow p 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ (- (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* -1 (/ (pow (+ (* -2 r) (* -1 r)) 2) (pow p 2))) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))) (pow p 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ (- (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* 2 (/ (* (pow q 2) (+ (* -4 r) (* -1 r))) (pow p 3))))) (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* -1 (/ (* (+ (* -2 r) (* -1 r)) (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow p 3))) (+ (* -1 (/ (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2))) (pow p 3))) (+ (* -1 (/ (pow r 3) (pow p 3))) (+ (* -1 (/ (pow (+ (* -2 r) (* -1 r)) 2) (pow p 2))) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2)))))))))) (pow p 3))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (pow q 2) (pow p 5))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -4 r) (* -1 r))) p)) (pow q 2)) (pow p 5))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow (+ (* -4 r) (* -1 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2))))) (pow p 2))) (pow q 2)) (/ (* (pow q 2) (+ (* -4 r) (* -1 r))) p)) (pow p 5))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* -1 (* (+ (* -4 r) (* -1 r)) (+ (* -1 (* (pow q 2) (pow (+ (* -4 r) (* -1 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2))))))) (+ (* -1 (* (pow q 2) (* (+ (* -4 r) (* -1 r)) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))))) (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))))) (pow p 3))) (pow q 2)) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 r) (* -1 r)) 2)) (pow p 2))) (+ (/ (* (pow q 2) (+ (* -4 r) (* -1 r))) p) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow p 2))))) (pow p 5))))
#s(approx (pow (- p r) 5) #s(hole binary64 (pow p 5)))
#s(approx (pow (- p r) 5) #s(hole binary64 (* (pow p 5) (+ 1 (+ (* -4 (/ r p)) (* -1 (/ r p)))))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* (pow p 5) (+ 1 (+ (* -4 (/ r p)) (+ (* -1 (/ r p)) (+ (* 2 (/ (pow r 2) (pow p 2))) (* 8 (/ (pow r 2) (pow p 2))))))))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* (pow p 5) (+ 1 (+ (* -4 (/ r p)) (+ (* -4 (/ (pow r 3) (pow p 3))) (+ (* -1 (/ r p)) (+ (* -1 (/ (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))) (pow p 3))) (+ (* 2 (/ (pow r 2) (pow p 2))) (* 8 (/ (pow r 2) (pow p 2))))))))))))
#s(approx (- p r) #s(hole binary64 p))
#s(approx (- p r) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ 1 (pow p 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (+ 1 (* -1 (/ (+ (* -2 r) (* -1 r)) p))) (pow p 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (+ 1 (* -1 (/ (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))) (pow p 2)))) (+ (* -2 (/ r p)) (* -1 (/ r p)))) (pow p 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (+ 1 (* -1 (/ (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))))) (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (* -1 (pow r 3)))) (pow p 3)))) (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* -1 (/ (pow (+ (* -2 r) (* -1 r)) 2) (pow p 2))) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))) (pow p 3))))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ 1 p)))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ (+ 1 (/ r p)) p)))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ (- (+ 1 (/ (pow r 2) (pow p 2))) (* -1 (/ r p))) p)))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ (- (+ 1 (/ (pow r 3) (pow p 3))) (+ (* -1 (/ r p)) (* -1 (/ (pow r 2) (pow p 2))))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2)))) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (+ (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2)) (/ (* (pow q 2) (- (* -1 (pow r 3)) (* (pow q 2) (+ (* -2 r) (* -1 r))))) (pow p 3))))) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ -1 p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 2) (pow p 2))) (/ (pow q 2) (pow p 2)))) 1) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 2) (pow p 2))) (+ (* -1 (/ (pow r 3) (pow p 3))) (/ (pow q 2) (pow p 2))))) (+ 1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow p 3)))) p)))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (pow q 2) (pow p 3))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p)) (pow q 2)) (pow p 3))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow (+ (* -2 r) (* -1 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2)))) (pow p 2))) (pow q 2)) (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p)) (pow p 3))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* -1 (* (pow q 2) (pow (+ (* -2 r) (* -1 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2)))))) (+ (* -1 (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2))))) (* -1 (* (pow q 2) (pow r 3))))) (pow p 3))) (pow q 2)) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 r) (* -1 r)) 2)) (pow p 2))) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow p 2))))) (pow p 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (pow p 3)))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow p 3) (+ 1 (+ (* -2 (/ r p)) (* -1 (/ r p)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow p 3) (+ 1 (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2)))))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow p 3) (+ 1 (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 3) (pow p 3))) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (* -1 (pow q 2)))) p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow r 3)) (pow p 3))) (* -1 (pow q 2))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* -1 p)))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 -1))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 1))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (+ 1 (* -1 (/ r p)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 -1))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 p))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* p (+ 1 (/ (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)) p)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ p r)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (* p (pow r 2)))) (+ (/ 1 r) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))))) (/ 1 p)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (/ p r)))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (* p (- (+ (/ 1 r) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r)))) (/ 1 p)))))
#s(approx (+ (* (/ p r) -1) 1) #s(hole binary64 (* -1 (/ p r))))
#s(approx (+ (* (/ p r) -1) 1) #s(hole binary64 (* p (- (/ 1 p) (/ 1 r)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2)))) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* -1/2 (/ (+ (* -2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))))) (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2)))))))) (pow p 3))) (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2))))) 1/2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 p)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (+ (* 2 (/ r p)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2))) (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow p 2)) (/ (pow r 2) (pow p 2)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (+ (* -1 (/ (+ (* -2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))))) (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2)))))))) (pow p 3))) (+ (* 2 (/ r p)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2)))) (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow p 2)) (/ (pow r 2) (pow p 2)))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -1 (pow p 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (* 2 (/ r p)) 1))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2)) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2)))))))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (pow p 2)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow p 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow p 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (/ (pow r 2) (pow p 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 p))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (/ (fabs p) p) (/ (fabs r) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (+ (* 2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 p))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (+ (fabs p) (fabs r)) r))) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r)))) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* 2 (/ (pow q 2) p))))) p)) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))) p)) 1)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ -1 p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 p))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (fabs r)) p)) 1)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) p)))) p)) 1)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 2 (/ (pow q 4) (pow p 2))) (* 2 (pow q 2))) p)))) p)) 1)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (+ (* 2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 6) (pow p 6))))))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 p)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (+ (fabs p) (fabs r))) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (pow q 2)) (/ (pow q 4) (pow p 2))) p)) (* 1/2 (+ (fabs p) (fabs r)))) p)) 1/2)))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2)))) p))) p)) (pow q 2)) p))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (* (pow q 2) (+ r (* 2 r))) (pow r 3))) p)) (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2))))) p))) p)) (pow q 2)) p))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (- (* (pow q 2) (+ r (* 2 r))) (pow r 3)) p)) (* -1 (pow q 2))) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ r (* 2 r))) p)) (* -1 (pow q 2))) (pow p 3)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -1 (pow (+ r (* 2 r)) 2)) (+ (* 2 (pow q 2)) (+ (* 2 (pow r 2)) (pow r 2))))) p)) (* (pow q 2) (+ r (* 2 r)))) p)) (* -1 (pow q 2))) (pow p 3)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -2 (* (pow q 2) (+ r (* 4 r)))) (+ (* -1 (* (+ r (* 2 r)) (+ (* -1 (pow (+ r (* 2 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))))) (+ (* -1 (* (+ r (* 2 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 3))))) p)) (* (pow q 2) (+ (* -1 (pow (+ r (* 2 r)) 2)) (+ (* 2 (pow q 2)) (+ (* 2 (pow r 2)) (pow r 2)))))) p)) (* (pow q 2) (+ r (* 2 r)))) p)) (* -1 (pow q 2))) (pow p 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ r (* 2 r)) p)) 1) (pow p 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ r (+ (* -1 (/ (+ (* -1 (pow (+ r (* 2 r)) 2)) (+ (* 2 (pow q 2)) (+ (* 2 (pow r 2)) (pow r 2)))) p)) (* 2 r))) p)) 1) (pow p 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ r (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (* (pow q 2) (+ r (* 4 r)))) (+ (* -1 (* (+ r (* 2 r)) (+ (* -1 (pow (+ r (* 2 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))))) (+ (* -1 (* (+ r (* 2 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 3)))) p)) (+ (* -1 (pow (+ r (* 2 r)) 2)) (+ (* 2 (pow q 2)) (+ (* 2 (pow r 2)) (pow r 2))))) p)) (* 2 r))) p)) 1) (pow p 3)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ r (* 4 r))) p)) (* -1 (pow q 2))) (pow p 5)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow (+ r (* 4 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2))))) p)) (* (pow q 2) (+ r (* 4 r)))) p)) (* -1 (pow q 2))) (pow p 5)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow (+ r (* 4 r)) 2))) (+ (* -1 (/ (+ (* -1 (* (+ r (* 4 r)) (+ (* -1 (* (pow q 2) (pow (+ r (* 4 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2))))))) (+ (* -1 (* (pow q 2) (* (+ r (* 4 r)) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))))) (* (pow q 2) (+ (* 4 (pow r 3)) (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))))) p)) (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))))) p)) (* (pow q 2) (+ r (* 4 r)))) p)) (* -1 (pow q 2))) (pow p 5)))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* -1 (* (pow p 5) (- (+ (* 4 (/ r p)) (/ r p)) 1)))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* -1 (* (pow p 5) (- (* -1 (/ (+ (* -1 (+ r (* 4 r))) (+ (* 2 (/ (pow r 2) p)) (* 8 (/ (pow r 2) p)))) p)) 1)))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* -1 (* (pow p 5) (- (* -1 (/ (+ (* -1 (+ r (* 4 r))) (* -1 (/ (+ (* -1 (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (+ (* 4 (/ (pow r 3) p)) (/ (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))) p))) p))) p)) 1)))))
#s(approx (- p r) #s(hole binary64 (* -1 (* p (- (/ r p) 1)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ r (* 2 r)) p)) 1) (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (+ (* 2 (pow r 2)) (pow r 2)) p)) (/ (pow (+ r (* 2 r)) 2) p)) (* -1 (+ r (* 2 r)))) p)) 1) (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ r (* 2 r)) (+ (* -1 (+ (* 2 (pow r 2)) (pow r 2))) (pow (+ r (* 2 r)) 2))) p)) (+ (* -1 (/ (pow r 3) p)) (/ (* (+ r (* 2 r)) (+ (* 2 (pow r 2)) (pow r 2))) p))) (+ (* -1 (+ (* 2 (pow r 2)) (pow r 2))) (pow (+ r (* 2 r)) 2))) p)) (* -1 (+ r (* 2 r)))) p)) 1) (pow p 3)))))
#s(approx (pow (- p r) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ r p)) 1) p))))
#s(approx (pow (- p r) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (/ (pow r 2) p) (* -1 r)) p)) 1) p))))
#s(approx (pow (- p r) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (* -1 (/ (pow r 3) p)) (pow r 2)) p)) (* -1 r)) p)) 1) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2)))) p))) p)) (pow q 2)) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (* (pow q 2) (+ r (* 2 r))) (pow r 3))) p)) (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2))))) p))) p)) (pow q 2)) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (- (* (pow q 2) (+ r (* 2 r))) (pow r 3)) p)) (* -1 (pow q 2))) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ r (* 2 r))) p)) (* -1 (pow q 2))) (pow p 3)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow (+ r (* 2 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2)))) p)) (* (pow q 2) (+ r (* 2 r)))) p)) (* -1 (pow q 2))) (pow p 3)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow (+ r (* 2 r)) 2))) (+ (* -1 (/ (+ (* -1 (* (+ r (* 2 r)) (+ (* -1 (* (pow q 2) (pow (+ r (* 2 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2)))))) (+ (* -1 (* (pow q 2) (* (+ r (* 2 r)) (+ (* 2 (pow r 2)) (pow r 2))))) (* (pow q 2) (pow r 3)))) p)) (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))))) p)) (* (pow q 2) (+ r (* 2 r)))) p)) (* -1 (pow q 2))) (pow p 3)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow p 3) (- (+ (* 2 (/ r p)) (/ r p)) 1)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow p 3) (- (* -1 (/ (+ (* -1 (+ r (* 2 r))) (+ (* 2 (/ (pow r 2) p)) (/ (pow r 2) p))) p)) 1)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow p 3) (- (* -1 (/ (+ (* -1 (+ r (* 2 r))) (* -1 (/ (+ (* -1 (+ (* 2 (pow r 2)) (pow r 2))) (/ (pow r 3) p)) p))) p)) 1)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow q 2) (pow r 2)) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow q 2) (pow r 3)) p) (* -1 (* (pow q 2) (pow r 2)))) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (fabs r)) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) p)))) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p)))) r) p)) 1)))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* -1 (* p (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))) (/ r p))))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) r) p)) 1)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* p (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))) (/ r p))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ (* -2 (/ (pow q 2) p)) (* -1 (- (* -1 (+ (fabs p) (fabs r))) r))) p)))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) r) p)) 1)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) p))) r) p)) 1)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* p (- (* -1 (/ (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)) p)) 1)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1) p)) (/ 1 r))))))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (/ (fabs p) r) (/ (fabs r) r)) 1) p)) (/ 1 r))))))
#s(approx (+ (* (/ p r) -1) 1) #s(hole binary64 (* -1 (* p (- (/ 1 r) (/ 1 p))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ r p)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -2 (/ (pow q 2) p))) p)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) p)))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))) (* 1/2 (/ (+ (* 2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) (* (+ r (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))))) p))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 p))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 r) (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p))) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 r) (* -1 (/ (- (+ (* 2 (/ (* (pow q 2) r) p)) (+ (* 2 (/ (* (pow q 2) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) p)) (+ (/ (* (+ r (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))) p) (pow (+ (fabs p) (fabs r)) 2)))) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p))) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (* -1 (/ (- (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) p)) (* 2 r)) p)) 1))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow r 2)) p)) (* 2 r)) p))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow r 2)) p)) (* 2 r)) p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow r 2) p)) (* 2 r)) p))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 p)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p))))) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))) p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ r p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -2 (/ (pow q 2) p))) p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) p)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (* -1/2 r) #s(hole binary64 (* -1/2 r)))
#s(approx r #s(hole binary64 r))
#s(approx (* 1/2 r) #s(hole binary64 (* 1/2 r)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (fabs r) #s(hole binary64 (fabs r)))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (+ (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2))) (* -1/2 r))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (- (+ (* -1/2 (/ (+ (fabs p) (fabs r)) p)) (* 1/2 (/ r p))) 1/2)))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) #s(hole binary64 (* -1/2 (/ (+ (fabs p) (fabs r)) p))))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) #s(hole binary64 (+ (* -1/2 (/ (+ (fabs p) (fabs r)) p)) (* 1/2 (/ r p)))))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) #s(hole binary64 (/ (+ (fabs p) (fabs r)) p)))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) #s(hole binary64 (+ (* -1 (/ r p)) (+ (/ (fabs p) p) (/ (fabs r) p)))))
#s(approx (+ (fabs p) (- (fabs r) r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (+ (fabs p) (- (fabs r) r)) #s(hole binary64 (+ (fabs p) (+ (fabs r) (* -1 r)))))
#s(approx (- (fabs r) r) #s(hole binary64 (fabs r)))
#s(approx (- (fabs r) r) #s(hole binary64 (+ (fabs r) (* -1 r))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow r 2) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* (pow r 2) (- (* 1/128 (/ (pow r 2) (pow q 3))) (* 1/8 (/ 1 q)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* (pow r 2) (- (* (pow r 2) (+ (* -1/1024 (/ (pow r 2) (pow q 5))) (* 1/128 (/ 1 (pow q 3))))) (* 1/8 (/ 1 q)))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1/4 (/ (pow r 2) q)))) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow r 2) (- (* 1/64 (/ (pow r 2) (pow q 3))) (* 1/4 (/ 1 q)))))) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow r 2) (- (* (pow r 2) (+ (* -1/512 (/ (pow r 2) (pow q 5))) (* 1/64 (/ 1 (pow q 3))))) (* 1/4 (/ 1 q)))))) (* 2 q))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (+ (* 1/4 (/ (pow r 2) q)) (* 2 q))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (+ (* 2 q) (* (pow r 2) (+ (* -1/64 (/ (pow r 2) (pow q 3))) (* 1/4 (/ 1 q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (+ (* 2 q) (* (pow r 2) (+ (* (pow r 2) (- (* 1/512 (/ (pow r 2) (pow q 5))) (* 1/64 (/ 1 (pow q 3))))) (* 1/4 (/ 1 q)))))))
#s(approx (+ (* (* q q) 4) (* r r)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (* (* q q) 4) (* r r)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow r 2))))
#s(approx (* r r) #s(hole binary64 (pow r 2)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) p))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (+ (* 1/2 r) (* 1/2 (- (+ (fabs p) (fabs r)) p)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (- (+ (fabs p) (fabs r)) p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (+ r (fabs p)) #s(hole binary64 (fabs p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2)))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* (pow q 2) (* r (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2))))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* r (+ (* (pow q 2) (* r (- (* (pow q 2) (- (+ (* 2 (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ 1 (pow p 6))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7)))))) (/ 1 (pow p 4))))) (* (pow q 2) (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3)))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2))))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* (pow q 2) (* r (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* (pow q 2) (* r (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2)))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* r (+ (* (pow q 2) (* r (- (* (pow q 2) (- (+ (* 2 (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ 1 (pow p 6))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7)))))) (/ 1 (pow p 4))))) (* (pow q 2) (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3)))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2)))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2)))) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (+ (* r (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3)))) (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4)))))) (/ 1 (pow p 2)))) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (+ (* r (- (+ (* r (- (* (pow q 2) (- (+ (* 2 (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ 1 (pow p 6))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7)))))) (/ 1 (pow p 4)))) (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))))))) (/ 1 (pow p 3)))) (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4)))))) (/ 1 (pow p 2)))) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (+ (* (pow q 2) (* r (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4)))))) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (+ (* r (+ (* (pow q 2) (* r (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))))))) (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))))) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (+ (* r (+ (* r (+ (* (pow q 2) (* r (- (+ (* 2 (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ 1 (pow p 6))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7))))))) (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))))) (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))))) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 5))) (+ (* r (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 3))))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 5))) (+ (* r (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (+ (* 3 (/ 1 (pow p 4))) (* r (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))))))))) (/ 1 (pow p 3))))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 5))) (+ (* r (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (+ (* 3 (/ 1 (pow p 4))) (* r (- (+ (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (* r (- (+ (* 2 (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ 1 (pow p 6))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7))))))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))))))))) (/ 1 (pow p 3))))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) (* r (+ (* -4 (pow p 4)) (* -1 (pow p 4))))) (pow p 10))) (/ (pow q 2) (pow p 5)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (+ (* r (- (* -1 (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10)))) (/ (pow q 2) (pow p 5)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (+ (* r (- (* r (- (* -1 (* r (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10)))) (/ (pow q 2) (pow p 5)))))
#s(approx (pow (- p r) 5) #s(hole binary64 (+ (* r (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 5))))
#s(approx (pow (- p r) 5) #s(hole binary64 (+ (* r (+ (* -4 (pow p 4)) (+ (* -1 (pow p 4)) (* r (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))))) (pow p 5))))
#s(approx (pow (- p r) 5) #s(hole binary64 (+ (* r (+ (* -4 (pow p 4)) (+ (* -1 (pow p 4)) (* r (+ (* 4 (pow p 3)) (+ (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))) (* r (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))))))))) (pow p 5))))
#s(approx (- p r) #s(hole binary64 (+ p (* -1 r))))
#s(approx (pow (- p r) -3) #s(hole binary64 (+ (* 3 (/ r (pow p 4))) (/ 1 (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (+ (* r (+ (* -1 (* r (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (+ (* r (+ (* r (- (* r (- (/ 1 (pow p 6)) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7)))))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 3)))))
#s(approx (pow (- p r) -1) #s(hole binary64 (+ (/ 1 p) (/ r (pow p 2)))))
#s(approx (pow (- p r) -1) #s(hole binary64 (+ (* r (+ (/ 1 (pow p 2)) (/ r (pow p 3)))) (/ 1 p))))
#s(approx (pow (- p r) -1) #s(hole binary64 (+ (* r (+ (* r (+ (/ 1 (pow p 3)) (/ r (pow p 4)))) (/ 1 (pow p 2)))) (/ 1 p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))) (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4)))))))) (* -1 (* (pow q 2) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* -1 (* (pow q 2) (* r (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))) (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4)))))))) (* -1 (* (pow q 2) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (/ (pow q 2) (pow p 3)) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* -1 (* r (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (* -1 (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (* r (- (* -1 (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4))))))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) (* r (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 6))) (/ (pow q 2) (pow p 3)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* r (- (* -1 (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))) (/ (pow q 2) (pow p 3)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* r (- (* r (- (* -1 (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (* -1 (/ (pow q 2) (pow p 6))))))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))) (/ (pow q 2) (pow p 3)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* r (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* r (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (* r (+ p (* 2 p)))))) (pow p 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* r (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (* r (+ p (+ (* -1 r) (* 2 p))))))) (pow p 3))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (+ (fabs p) (fabs r)) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (* -1 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (* -1 (/ (pow q 2) p)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* -1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* r (- (* -1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (+ r (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (+ r (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) 1)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -2 (/ (pow q 2) r))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (fabs r)) (* -1 p)))) r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (+ (fabs r) (* -1 r))) (* -1 p)))) r)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* -2 (/ (pow q 2) (pow r 2)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (fabs r)) (* -1 p)))) (pow r 2))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (+ (fabs r) (* -1 r))) (* -1 p)))) (pow r 2))))
#s(approx (/ (* q q) (* r r)) #s(hole binary64 (/ (pow q 2) (pow r 2))))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (/ (- (+ (fabs p) (+ (fabs r) (* -1 r))) (* -1 p)) r)))
#s(approx (+ (* (/ p r) -1) 1) #s(hole binary64 (/ (+ r (* -1 p)) r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (neg r) #s(hole binary64 (* -1 r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* r (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* -1/2 (* r (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))) (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (* r (+ (* -1/2 (* r (+ (* 1/2 (* (/ (* p (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* (/ (* p (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* -1/2 (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (+ (* -1 (* r (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))) (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (+ (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (- (* -1 (* r (+ (* 1/2 (* (/ (* p (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* (/ (* p (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* 2 (* p r)) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* r (- (* -1 r) (* -2 p))) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* r (+ r (* -2 p))) (pow p 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* r (+ r (* -2 p))) (pow p 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow p 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* r (+ r (* -2 p))) (pow p 2))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* r (- (+ (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))) (+ (/ (fabs p) r) (/ (fabs r) r))) (* (/ 1 r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1/2 r)))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* r (- (* -1 (/ (* p (- (* -1/2 (+ (/ (fabs p) p) (/ (fabs r) p))) 1/2)) r)) 1/2))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* 1/2 (/ r p))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* r (- (+ (* -1/2 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (* 1/2 (/ 1 p))) (* 1/2 (/ 1 r))))))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) #s(hole binary64 (* 1/2 (/ r p))))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) #s(hole binary64 (* r (+ (* -1/2 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (* 1/2 (/ 1 p))))))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) #s(hole binary64 (* -1 (/ r p))))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) #s(hole binary64 (* r (- (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))) (/ 1 p)))))
#s(approx (+ (fabs p) (- (fabs r) r)) #s(hole binary64 (* -1 r)))
#s(approx (+ (fabs p) (- (fabs r) r)) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) 1))))
#s(approx (- (fabs r) r) #s(hole binary64 (* -1 r)))
#s(approx (- (fabs r) r) #s(hole binary64 (* r (- (/ (fabs r) r) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1/2 r)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* r (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) r))) 1/2))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (* 1/2 (/ (+ (fabs p) (fabs r)) r)) (/ (pow q 4) (pow r 4)))) 1/2))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -1 r)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) 1))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* r (- (+ (* 2 (/ (pow q 4) (pow r 4))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 r))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* r (+ 1 (* 2 (/ (pow q 2) (pow r 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* r (+ 1 (+ (* -2 (/ (pow q 4) (pow r 4))) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* r (+ 1 (+ (* -2 (/ (pow q 4) (pow r 4))) (+ (* 2 (/ (pow q 2) (pow r 2))) (* 4 (/ (pow q 6) (pow r 6)))))))))
#s(approx (+ (* (* q q) 4) (* r r)) #s(hole binary64 (pow r 2)))
#s(approx (+ (* (* q q) 4) (* r r)) #s(hole binary64 (* (pow r 2) (+ 1 (* 4 (/ (pow q 2) (pow r 2)))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* 1/2 r)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 r))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* r (- (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))) (/ p r)))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 r))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (* r (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))))))
#s(approx (+ r (fabs p)) #s(hole binary64 r))
#s(approx (+ r (fabs p)) #s(hole binary64 (* r (+ 1 (/ (fabs p) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (pow q 2))) r)))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (* (pow q 2) (+ p (* 2 p)))) (pow p 3))) (pow r 3)) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (pow q 2)))) r)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ 1 r)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (/ (pow p 2) (pow r 2))))) r)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (+ (* -1 (/ (* (pow q 2) (+ p (* 2 p))) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (+ (/ (pow p 2) (pow r 2)) (/ (pow p 3) (pow r 3))))))) r)))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) (pow r 3)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ p (* 2 p))) r)) (* -1 (pow q 2))) (pow r 3))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ p (* 2 p))) r)) (+ (* -1 (pow q 2)) (/ (* (pow q 2) (- (* 2 (pow q 2)) (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2))))) (pow r 2)))) (pow r 3))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ p (* 2 p))) r)) (+ (* -1 (pow q 2)) (+ (/ (* (pow q 2) (- (* 2 (* (pow q 2) (+ p (* 4 p)))) (+ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (+ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2)))) (pow p 3))))) (pow r 3)) (/ (* (pow q 2) (- (* 2 (pow q 2)) (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2))))) (pow r 2))))) (pow r 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ -1 (pow r 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ (- (* -1 (/ (+ p (* 2 p)) r)) 1) (pow r 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ (- (* 2 (/ (pow q 2) (pow r 2))) (+ 1 (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (+ (/ p r) (/ (pow (+ p (* 2 p)) 2) (pow r 2)))))))) (pow r 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ (- (+ (* 2 (/ (* (pow q 2) (+ p (* 4 p))) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))) (+ 1 (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (+ (/ p r) (+ (/ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow r 3)) (+ (/ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2)))) (pow r 3)) (+ (/ (pow p 3) (pow r 3)) (/ (pow (+ p (* 2 p)) 2) (pow r 2))))))))))) (pow r 3))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ p (* 4 p))) r)) (* -1 (pow q 2))) (pow r 5))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (* (pow q 2) (pow (+ p (* 4 p)) 2))) (pow r 2))) (* -1 (pow q 2))) (/ (* (pow q 2) (+ p (* 4 p))) r)) (pow r 5))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* (+ p (* 4 p)) (+ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (* (pow q 2) (pow (+ p (* 4 p)) 2)))) (+ (* (pow q 2) (* (+ p (* 4 p)) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))))) (pow r 3))) (* -1 (pow q 2))) (+ (/ (* (pow q 2) (+ p (* 4 p))) r) (+ (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow r 2)) (/ (* (pow q 2) (pow (+ p (* 4 p)) 2)) (pow r 2))))) (pow r 5))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* (pow r 5) (- (+ (* 4 (/ p r)) (/ p r)) 1))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* (pow r 5) (- (+ (* -4 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow r 2))) (+ (* 4 (/ p r)) (/ p r)))) 1))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* (pow r 5) (- (+ (* -4 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow r 2))) (+ (* 4 (/ p r)) (+ (* 4 (/ (pow p 3) (pow r 3))) (+ (/ p r) (/ (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))) (pow r 3))))))) 1))))
#s(approx (- p r) #s(hole binary64 (* r (- (/ p r) 1))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (* -1 (/ (+ p (* 2 p)) r)) 1) (pow r 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (* -1 (/ (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2))) (pow r 2))) (+ 1 (+ (* 2 (/ p r)) (/ p r)))) (pow r 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (* -1 (/ (+ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (+ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2)))) (pow p 3))) (pow r 3))) (+ 1 (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (+ (/ p r) (/ (pow (+ p (* 2 p)) 2) (pow r 2)))))))) (pow r 3))))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ (- (* -1 (/ p r)) 1) r)))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ (- (* -1 (/ (pow p 2) (pow r 2))) (+ 1 (/ p r))) r)))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ (- (* -1 (/ (pow p 3) (pow r 3))) (+ 1 (+ (/ p r) (/ (pow p 2) (pow r 2))))) r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (pow q 2))) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (+ (/ (* (pow q 2) (- (pow p 3) (* (pow q 2) (+ p (* 2 p))))) (pow r 3)) (pow q 2)))) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ 1 r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (/ (pow p 2) (pow r 2))))) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ 1 (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (+ (/ (pow p 2) (pow r 2)) (/ (pow p 3) (pow r 3)))))) (/ (* (pow q 2) (+ p (* 2 p))) (pow r 3))) r)))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ p (* 2 p))) r)) (* -1 (pow q 2))) (pow r 3))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (* (pow q 2) (pow (+ p (* 2 p)) 2))) (pow r 2))) (* -1 (pow q 2))) (/ (* (pow q 2) (+ p (* 2 p))) r)) (pow r 3))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* (+ p (* 2 p)) (+ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (* (pow q 2) (pow (+ p (* 2 p)) 2)))) (+ (* (pow p 3) (pow q 2)) (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))))) (pow r 3))) (* -1 (pow q 2))) (+ (/ (* (pow q 2) (+ p (* 2 p))) r) (+ (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow r 2)) (/ (* (pow q 2) (pow (+ p (* 2 p)) 2)) (pow r 2))))) (pow r 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow r 3) (- (+ (* 2 (/ p r)) (/ p r)) 1))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow r 3) (- (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (/ p r)))) 1))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow r 3) (- (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (+ (/ p r) (/ (pow p 3) (pow r 3)))))) 1))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (pow q 2))) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (+ (/ (* (pow p 3) (pow q 2)) (pow r 3)) (pow q 2)))) r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (* p (pow q 2)) (pow r 3))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 r))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* r (+ 1 (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)) r)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (/ r p)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (* r (- (+ (/ 1 p) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r)))) (/ 1 r)))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (* r (- (/ 1 r) (/ 1 p)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 r))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* r (+ 1 (/ (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)) r)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ r p)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (* (pow p 2) r))) (+ (/ 1 p) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))))) (/ 1 r)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 -1))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r))))))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 -1))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (* -1 (/ p r))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2)))) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* -1/2 (/ (+ (* -2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))))) (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2)))))))) (pow r 3))) (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2))))) 1/2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 r)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (* 2 (/ p r)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (+ (* 2 (/ p r)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2))) (+ 1 (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow r 2)) (/ (pow p 2) (pow r 2)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (+ (* -1 (/ (+ (* -2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))))) (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2)))))))) (pow r 3))) (+ (* 2 (/ p r)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2)))) (+ 1 (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow r 2)) (/ (pow p 2) (pow r 2)))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -1 (pow r 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (* 2 (/ p r)) 1))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2)) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2)))))))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (pow r 2)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow r 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (/ (pow p 2) (pow r 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (/ (fabs p) r) (/ (fabs r) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (+ (* 2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (* -1 (/ p r))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* r (+ (* -1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1 (* r (+ 1/2 (/ (* p (- (* -1/2 (+ (/ (fabs p) p) (/ (fabs r) p))) 1/2)) r))))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (* -1/2 (+ (/ (fabs p) p) (/ (fabs r) p))) 1/2) r)) (* 1/2 (/ 1 p)))))))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) #s(hole binary64 (* -1 (* r (- (* 1/2 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (* 1/2 (/ 1 p)))))))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) #s(hole binary64 (* -1 (* r (+ (* -1 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (/ 1 p))))))
#s(approx (+ (fabs p) (- (fabs r) r)) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) r)))))))
#s(approx (- (fabs r) r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (fabs r) r)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* 1/2 r)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (+ (fabs p) (fabs r))) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (pow q 2)) (/ (pow q 4) (pow r 2))) r)) (* 1/2 (+ (fabs p) (fabs r)))) r)) 1/2)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 r))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (fabs r)) r)) 1)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) r)))) r)) 1)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 2 (/ (pow q 4) (pow r 2))) (* 2 (pow q 2))) r)))) r)) 1)))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -1 r)))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -1 (* r (+ 1 (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -1 (* r (+ 1 (+ (* -2 (/ (pow q 4) (pow r 4))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -1 (* r (+ 1 (+ (* -2 (/ (pow q 4) (pow r 4))) (+ (* 2 (/ (pow q 2) (pow r 2))) (* 4 (/ (pow q 6) (pow r 6))))))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (fabs r)) r)) 1)))))
#s(approx (+ r (fabs p)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (fabs p) r)) 1)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -1 (* (pow q 2) (+ p (* 2 p)))) (pow p 3))) r)) (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2)))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (pow p 2)) (pow q 2)) r))) r)) 1) r))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (+ p (* 2 p)))) (pow p 3)) r)) (+ (* -1 (pow p 2)) (pow q 2))) r))) r)) 1) r))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) (+ p (* 2 p))) r) (pow q 2)) (pow r 3)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (+ p (* 2 p)))) (* -1 (/ (* (pow q 2) (- (* -2 (pow q 2)) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2))))) r))) r)) (pow q 2)) (pow r 3)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (+ p (* 2 p)))) (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (* 2 (* (pow q 2) (+ p (* 4 p)))) (+ (* -1 (* (+ p (* 2 p)) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2))))) (+ (* -1 (* (+ p (* 2 p)) (+ (* 2 (pow p 2)) (pow p 2)))) (pow p 3))))) r)) (* (pow q 2) (- (* -2 (pow q 2)) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2)))))) r))) r)) (pow q 2)) (pow r 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* -1 (/ (+ 1 (+ (* 2 (/ p r)) (/ p r))) (pow r 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -2 (pow q 2)) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (+ p (* 2 p))) r))) (pow r 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -2 (pow q 2)) (* -1 (/ (- (* 2 (* (pow q 2) (+ p (* 4 p)))) (+ (* -1 (* (+ p (* 2 p)) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2))))) (+ (* -1 (* (+ p (* 2 p)) (+ (* 2 (pow p 2)) (pow p 2)))) (pow p 3)))) r))) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (+ p (* 2 p))) r))) (pow r 3)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) (+ p (* 4 p))) r) (pow q 2)) (pow r 5)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (* (pow q 2) (pow (+ p (* 4 p)) 2)) r)) (/ (* (pow q 2) (+ (* 2 (pow p 2)) (* 8 (pow p 2)))) r)) (* (pow q 2) (+ p (* 4 p)))) r)) (pow q 2)) (pow r 5)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ p (* 4 p)) (+ (* -1 (* (pow q 2) (pow (+ p (* 4 p)) 2))) (* (pow q 2) (+ (* 2 (pow p 2)) (* 8 (pow p 2)))))) r)) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 4 p)) (+ (* 2 (pow p 2)) (* 8 (pow p 2))))) r)) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) r))) (+ (* -1 (* (pow q 2) (pow (+ p (* 4 p)) 2))) (* (pow q 2) (+ (* 2 (pow p 2)) (* 8 (pow p 2)))))) r)) (* (pow q 2) (+ p (* 4 p)))) r)) (pow q 2)) (pow r 5)))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* -1 (* (pow r 5) (+ 1 (* -1 (/ (+ p (* 4 p)) r)))))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* -1 (* (pow r 5) (+ 1 (* -1 (/ (+ p (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 8 (pow p 2))) r)) (* 4 p))) r)))))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* -1 (* (pow r 5) (+ 1 (* -1 (/ (+ p (+ (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))) r)) (+ (* 2 (pow p 2)) (* 8 (pow p 2)))) r)) (* 4 p))) r)))))))
#s(approx (- p r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (+ 1 (+ (* 2 (/ p r)) (/ p r))) (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (+ (* -1 (/ (pow (+ p (* 2 p)) 2) r)) (+ (* 2 (/ (pow p 2) r)) (/ (pow p 2) r))) (+ p (* 2 p))) r))) (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ p (* 2 p)) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (+ (* -1 (/ (* (+ p (* 2 p)) (+ (* 2 (pow p 2)) (pow p 2))) r)) (/ (pow p 3) r))) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (+ p (* 2 p))) r))) (pow r 3)))))
#s(approx (pow (- p r) -1) #s(hole binary64 (* -1 (/ (+ 1 (/ p r)) r))))
#s(approx (pow (- p r) -1) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow p 2) r)) p) r))) r))))
#s(approx (pow (- p r) -1) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (/ (pow p 3) r) (* -1 (pow p 2))) r)) p) r))) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (pow p 3) (* (pow q 2) (+ p (* 2 p))))) r)) (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2)))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (pow p 2)) (pow q 2)) r))) r)) 1) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (/ (- (pow p 3) (* (pow q 2) (+ p (* 2 p)))) r)) (+ (* -1 (pow p 2)) (pow q 2))) r))) r)) 1) r))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) (+ p (* 2 p))) r) (pow q 2)) (pow r 3)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (* (pow q 2) (pow (+ p (* 2 p)) 2)) r)) (/ (* (pow q 2) (+ (* 2 (pow p 2)) (pow p 2))) r)) (* (pow q 2) (+ p (* 2 p)))) r)) (pow q 2)) (pow r 3)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ p (* 2 p)) (+ (* -1 (* (pow q 2) (pow (+ p (* 2 p)) 2))) (* (pow q 2) (+ (* 2 (pow p 2)) (pow p 2))))) r)) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (/ (* (pow p 3) (pow q 2)) r))) (+ (* -1 (* (pow q 2) (pow (+ p (* 2 p)) 2))) (* (pow q 2) (+ (* 2 (pow p 2)) (pow p 2))))) r)) (* (pow q 2) (+ p (* 2 p)))) r)) (pow q 2)) (pow r 3)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow r 3) (+ 1 (* -1 (/ (+ p (* 2 p)) r)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow r 3) (+ 1 (* -1 (/ (+ p (+ (* -1 (/ (+ (* 2 (pow p 2)) (pow p 2)) r)) (* 2 p))) r)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow r 3) (+ 1 (* -1 (/ (+ p (+ (* -1 (/ (+ (* -1 (/ (pow p 3) r)) (+ (* 2 (pow p 2)) (pow p 2))) r)) (* 2 p))) r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* p (pow q 2)) (/ (* (pow p 2) (pow q 2)) r)) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow p 2) (pow q 2))) (* -1 (/ (* (pow p 3) (pow q 2)) r))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 r))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) r)))) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r)))) p) r)) 1)))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)) r)) 1)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1) r)) (/ 1 p))))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (* -1 (* r (- (/ 1 p) (/ 1 r))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)) r)) 1)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1) r)) (/ 1 p))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* r (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) r))) (/ p r))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ (* -2 (/ (pow q 2) r)) (* -1 (- (* -1 (+ (fabs p) (fabs r))) p))) r)))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) p) r)) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) r))) p) r)) 1)))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) p) r)) 1)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -2 (/ (pow q 2) r))) r)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))) (* 1/2 (/ (+ (* 2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) (* (+ p (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))))) r))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 r))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 p) (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r))) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 p) (* -1 (/ (- (+ (* 2 (/ (* p (pow q 2)) r)) (+ (* 2 (/ (* (pow q 2) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) r)) (+ (/ (* (+ p (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))) r) (pow (+ (fabs p) (fabs r)) 2)))) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r))) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (- (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) r)) (* 2 p)) r)) 1))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow p 2)) r)) (* 2 p)) r))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow p 2)) r)) (* 2 p)) r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow p 2) r)) (* 2 p)) r))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (fabs r))) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) r))))) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))))) r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -2 (/ (pow q 2) r))) r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx q #s(hole binary64 q))
#s(approx (neg q) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5)))))) (* 1/2 (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3))))))))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 2 (/ 1 (pow p 3))) (+ (* 6 (/ r (pow p 4))) (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5))))))))) (* 2 (/ 1 p))))))) p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow q 2) (- (* 6 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow q 2) (- (* (pow q 2) (+ (* -20 (/ (pow q 2) (pow p 7))) (* 6 (/ 1 (pow p 5))))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (* q q) #s(hole binary64 (pow q 2)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p)))) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow p 3))) (* 2 (/ 1 p)))))) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (* 2 (/ 1 p)))))) p)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ p (* 2 (/ (pow q 2) p)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 3))) (* 2 (/ 1 p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (* 2 (/ 1 p)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) p))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (+ (fabs p) (fabs r)) p)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) r))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (+ (* -1 (/ (pow q 2) r)) (* 1/2 (- (+ (fabs p) (fabs r)) r)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (* (pow q 2) (- (/ (pow q 2) (pow r 3)) (/ 1 r))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) r)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) r)))) r)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 3))) (* 2 (/ 1 r)))))) r)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow r 5))) (* 2 (/ 1 (pow r 3))))) (* 2 (/ 1 r)))))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (+ r (* 2 (/ (pow q 2) r)))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (+ r (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow r 3))) (* 2 (/ 1 r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (+ r (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow r 5))) (* 2 (/ 1 (pow r 3))))) (* 2 (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r))))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ -1 (- p r))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (pow q 2) (pow (- p r) 3))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3))))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ 1 (pow (- p r) 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (pow q 2) (pow (- p r) 5))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ -1 (- p r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (pow q 2) (pow (- p r) 3))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (neg (* q q)) #s(hole binary64 (* -1 (pow q 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (+ (* -2 (/ (pow q 2) p)) (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (+ (* -2 (/ (pow q 2) r)) (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- p r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* 2 (/ (pow q 2) (- p r)))) r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (* -2 q) #s(hole binary64 (* -2 q)))
#s(approx (* q 2) #s(hole binary64 (* 2 q)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* -1/2 (* (pow q 2) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (+ (* 2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (pow (- p r) 3) (- (+ p (+ (fabs p) (fabs r))) r)))) (* 4 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 5) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))) (* -1/2 (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* -1 (* (pow q 2) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* (pow q 2) (- (* -1 (* (pow q 2) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* (pow q 2) (- (* (pow q 2) (- (* -1 (* (pow q 2) (+ (* -2 (/ (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (+ (* 2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (pow (- p r) 3) (- (+ p (+ (fabs p) (fabs r))) r)))) (* 4 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 5) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* -4 (pow q 2)) (pow (+ (fabs p) (fabs r)) 2)) (pow (- p r) 2))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (pow (- p r) 2)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (+ (* 4 (pow q 2)) (pow (- p r) 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow (- p r) 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow (- p r) 2))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (fabs r))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) (- p r)))))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- p r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* 2 (/ (pow q 2) (- p r)))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2)))) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (+ (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 4))) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2))))) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -2 q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 4))) (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q)))) (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q)))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow p 2) (pow q 2))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow p 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow p 4) (pow q 4))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow p 2) (pow q 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (+ (* 1/512 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 q)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow p 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow p 2) (pow q 2))) (+ (* 1/128 (/ (pow p 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1 q)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow r 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow r 2) (pow q 2))) (+ (* 1/128 (/ (pow r 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow r 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow r 4) (pow q 4))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow r 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow r 2) (pow q 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow r 4) (pow q 4))) (* 1/4 (/ (pow r 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow r 4) (pow q 4))) (+ (* 1/512 (/ (pow r 6) (pow q 6))) (* 1/4 (/ (pow r 2) (pow q 2)))))))))
#s(approx (+ (* (* q q) 4) (* r r)) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow r 2) (pow q 2))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -2 (/ (pow q 6) (pow (- p r) 5)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (/ 1 (* (pow q 2) (pow (- p r) 3)))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r))))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -2 (/ (pow q 6) (pow (- p r) 5)))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (/ 1 (* (pow q 4) (- p r))) (* 2 (/ 1 (pow (- p r) 5))))))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* -2 (/ (pow q 4) (pow (- p r) 5)))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* (pow q 4) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* (pow q 4) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r))))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -2 (/ (pow q 4) (pow (- p r) 5)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* (pow q 4) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* -2 (/ (pow q 2) (pow (- p r) 5)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* (pow q 2) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (/ (pow q 4) (pow (- p r) 3))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 4) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 4) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 4))) (/ 1 (pow (- p r) 3))) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (pow q 4) (pow (- p r) 3))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 4) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (pow q 2) (pow (- p r) 3))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* (pow q 2) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* (pow q 2) (- (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 2))) (/ 1 (- p r))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* (pow q 2) (- (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))) (pow q 2)) (* 2 (/ 1 p))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* p (pow q 2))) (/ (fabs r) (* p (pow q 2)))) (+ (* -1 (/ r (* p (pow q 2)))) (+ (* 2 (/ 1 (pow p 2))) (/ 1 (pow q 2))))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* (pow q 2) (- (/ (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))) (pow q 2)) (* 2 (/ 1 r))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* (pow q 2) r)) (/ (fabs r) (* (pow q 2) r))) (+ (* -1 (/ p (* (pow q 2) r))) (+ (* 2 (/ 1 (pow r 2))) (/ 1 (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2)))) 1))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* -1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) (pow q 3))) (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2))))) 1))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -2 q)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (pow q 2))) (+ 2 (+ (* -1 (/ (+ (fabs p) (fabs r)) q)) (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (+ (* -1 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) (pow q 3))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (pow q 2)))) (+ 2 (+ (* -1 (/ (+ (fabs p) (fabs r)) q)) (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -4 (pow q 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow q 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2)) (+ 4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow (- p r) 2) (pow q 2))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow (- p r) 2) (pow q 2))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* 2 q)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (/ (fabs p) q) (/ (fabs r) q))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (* 1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 q))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (* p r)) (* 1/4 (pow p 2)))) (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* 2 q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)))) q)) 2)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) (+ (* -1/64 (/ (pow p 4) (pow q 2))) (* 1/4 (pow p 2)))) q)))) q)) 2)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ -1/2 q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 1/4 (/ (pow p 2) q)))) q)) 2)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow p 4) (pow q 2))) (* 1/4 (pow p 2))) q)))) q)) 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (+ (* 1/512 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2))))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 q))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow p 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow p 2)) (* 1/128 (/ (pow p 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 q))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow r 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow r 2)) (* 1/128 (/ (pow r 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 1/4 (/ (pow r 2) q)))) q)) 2)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow r 4) (pow q 2))) (* 1/4 (pow r 2))) q)))) q)) 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow r 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow r 4) (pow q 4))) (* 1/4 (/ (pow r 2) (pow q 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow r 4) (pow q 4))) (+ (* 1/512 (/ (pow r 6) (pow q 6))) (* 1/4 (/ (pow r 2) (pow q 2))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 1/4 (/ (pow (- p r) 2) q)))) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)) 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))) (* 1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) q))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* 2 q)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (- (* -1 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* -1 (+ (fabs p) (fabs r)))) q)) 2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (- (* -1 (/ (- (+ (* 1/8 (/ (* (+ (fabs p) (fabs r)) (pow (- p r) 2)) q)) (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (* 1/2 (/ (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))) q)))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* -1 (+ (fabs p) (fabs r)))) q)) 2)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -2 q)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (fabs r)) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1/4 (/ (pow (- p r) 2) q)))) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* -1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))))
Calls

9 calls:

TimeVariablePointExpression
44.0ms
r
@inf
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* -1/2 p) -1/2 p (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* -1/2 r) r (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 p) 1/2 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (pow (+ (* (* q q) 4) (* p p)) -1/2) (+ (* (* q q) 4) (* p p)) (* q q) 4 (* p p) (* r p) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (+ (fabs r) (fabs p)) (fabs r) (fabs p) (sqrt (+ (* (* q q) 4) (* p p))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) (/ (+ (fabs p) (- (fabs r) r)) p) (+ (fabs p) (- (fabs r) r)) (- (fabs r) r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (sqrt (+ (* (* q q) 4) (* r r))) (+ (* (* q q) 4) (* r r)) (* r r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (/ (* q q) (pow (- p r) 5)) (pow (- p r) 5) (- p r) 5 -2 (pow (- p r) -3) -3 (pow (- p r) -1) -1 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ (* q q) (pow (- p r) 3)) (pow (- p r) 3) 3 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (/ (neg (* q q)) (- p r)) (neg (* q q)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) 1 2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1) (/ r p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (/ (* q q) (* p p)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (/ (* q q) (* r r)) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1) (/ p r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* -2 q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* q 2) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (+ (* (* q q) 4) (pow (- p r) 2)) (pow (- p r) 2) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))
36.0ms
r
@0
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* -1/2 p) -1/2 p (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* -1/2 r) r (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 p) 1/2 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (pow (+ (* (* q q) 4) (* p p)) -1/2) (+ (* (* q q) 4) (* p p)) (* q q) 4 (* p p) (* r p) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (+ (fabs r) (fabs p)) (fabs r) (fabs p) (sqrt (+ (* (* q q) 4) (* p p))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) (/ (+ (fabs p) (- (fabs r) r)) p) (+ (fabs p) (- (fabs r) r)) (- (fabs r) r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (sqrt (+ (* (* q q) 4) (* r r))) (+ (* (* q q) 4) (* r r)) (* r r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (/ (* q q) (pow (- p r) 5)) (pow (- p r) 5) (- p r) 5 -2 (pow (- p r) -3) -3 (pow (- p r) -1) -1 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ (* q q) (pow (- p r) 3)) (pow (- p r) 3) 3 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (/ (neg (* q q)) (- p r)) (neg (* q q)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) 1 2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1) (/ r p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (/ (* q q) (* p p)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (/ (* q q) (* r r)) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1) (/ p r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* -2 q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* q 2) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (+ (* (* q q) 4) (pow (- p r) 2)) (pow (- p r) 2) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))
35.0ms
p
@0
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* -1/2 p) -1/2 p (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* -1/2 r) r (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 p) 1/2 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (pow (+ (* (* q q) 4) (* p p)) -1/2) (+ (* (* q q) 4) (* p p)) (* q q) 4 (* p p) (* r p) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (+ (fabs r) (fabs p)) (fabs r) (fabs p) (sqrt (+ (* (* q q) 4) (* p p))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) (/ (+ (fabs p) (- (fabs r) r)) p) (+ (fabs p) (- (fabs r) r)) (- (fabs r) r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (sqrt (+ (* (* q q) 4) (* r r))) (+ (* (* q q) 4) (* r r)) (* r r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (/ (* q q) (pow (- p r) 5)) (pow (- p r) 5) (- p r) 5 -2 (pow (- p r) -3) -3 (pow (- p r) -1) -1 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ (* q q) (pow (- p r) 3)) (pow (- p r) 3) 3 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (/ (neg (* q q)) (- p r)) (neg (* q q)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) 1 2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1) (/ r p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (/ (* q q) (* p p)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (/ (* q q) (* r r)) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1) (/ p r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* -2 q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* q 2) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (+ (* (* q q) 4) (pow (- p r) 2)) (pow (- p r) 2) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))
31.0ms
p
@inf
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* -1/2 p) -1/2 p (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* -1/2 r) r (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 p) 1/2 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (pow (+ (* (* q q) 4) (* p p)) -1/2) (+ (* (* q q) 4) (* p p)) (* q q) 4 (* p p) (* r p) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (+ (fabs r) (fabs p)) (fabs r) (fabs p) (sqrt (+ (* (* q q) 4) (* p p))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) (/ (+ (fabs p) (- (fabs r) r)) p) (+ (fabs p) (- (fabs r) r)) (- (fabs r) r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (sqrt (+ (* (* q q) 4) (* r r))) (+ (* (* q q) 4) (* r r)) (* r r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (/ (* q q) (pow (- p r) 5)) (pow (- p r) 5) (- p r) 5 -2 (pow (- p r) -3) -3 (pow (- p r) -1) -1 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ (* q q) (pow (- p r) 3)) (pow (- p r) 3) 3 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (/ (neg (* q q)) (- p r)) (neg (* q q)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) 1 2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1) (/ r p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (/ (* q q) (* p p)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (/ (* q q) (* r r)) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1) (/ p r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* -2 q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* q 2) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (+ (* (* q q) 4) (pow (- p r) 2)) (pow (- p r) 2) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))
24.0ms
p
@-inf
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* -1/2 p) -1/2 p (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* -1/2 r) r (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 p) 1/2 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (pow (+ (* (* q q) 4) (* p p)) -1/2) (+ (* (* q q) 4) (* p p)) (* q q) 4 (* p p) (* r p) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (+ (fabs r) (fabs p)) (fabs r) (fabs p) (sqrt (+ (* (* q q) 4) (* p p))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) (/ (+ (fabs p) (- (fabs r) r)) p) (+ (fabs p) (- (fabs r) r)) (- (fabs r) r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (sqrt (+ (* (* q q) 4) (* r r))) (+ (* (* q q) 4) (* r r)) (* r r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (/ (* q q) (pow (- p r) 5)) (pow (- p r) 5) (- p r) 5 -2 (pow (- p r) -3) -3 (pow (- p r) -1) -1 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ (* q q) (pow (- p r) 3)) (pow (- p r) 3) 3 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (/ (neg (* q q)) (- p r)) (neg (* q q)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) 1 2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1) (/ r p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (/ (* q q) (* p p)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (/ (* q q) (* r r)) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1) (/ p r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* -2 q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* q 2) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (+ (* (* q q) 4) (pow (- p r) 2)) (pow (- p r) 2) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))

rewrite436.0ms (5.3%)

Memory
34.4MiB live, 552.5MiB allocated; 60ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0543566039
0565164809
0817962526
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
1 276 → 1 346
Calls
Call 1
Inputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
q
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
(neg.f64 q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
(*.f64 #s(literal -1/2 binary64) p)
#s(literal -1/2 binary64)
p
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
(*.f64 #s(literal -1/2 binary64) r)
r
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
(*.f64 #s(literal 1/2 binary64) p)
#s(literal 1/2 binary64)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
(*.f64 #s(literal 1/2 binary64) r)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
(*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))))
(fma.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
(pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))
(*.f64 q q)
#s(literal 4 binary64)
(*.f64 p p)
(*.f64 r p)
(-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))
(+.f64 (fabs.f64 r) (fabs.f64 p))
(fabs.f64 r)
(fabs.f64 p)
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(*.f64 (neg.f64 p) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(neg.f64 p)
(-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64))
(/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p)
(+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r))
(-.f64 (fabs.f64 r) r)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) #s(literal 1/2 binary64))
(-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r))))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r))
(*.f64 r r)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64))
(-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p)
(+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r))
(+.f64 r (fabs.f64 p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q)))
(*.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))
(-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))
(*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q))
(fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))
(/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))
(pow.f64 (-.f64 p r) #s(literal 5 binary64))
(-.f64 p r)
#s(literal 5 binary64)
#s(literal -2 binary64)
(pow.f64 (-.f64 p r) #s(literal -3 binary64))
#s(literal -3 binary64)
(pow.f64 (-.f64 p r) #s(literal -1 binary64))
#s(literal -1 binary64)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q)))
(*.f64 (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))
(-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))
(/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64)))
(pow.f64 (-.f64 p r) #s(literal 3 binary64))
#s(literal 3 binary64)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r)))
(/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))
(neg.f64 (*.f64 q q))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))
#s(literal 1 binary64)
#s(literal 2 binary64)
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p))
(*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)
(-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))
(/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p)
(fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))
(/.f64 r p)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 p p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 p p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))) p))
(*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 p p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))) p)
(fma.f64 (/.f64 (*.f64 q q) (*.f64 p p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))))
(/.f64 (*.f64 q q) (*.f64 p p))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 r r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))) r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 r r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))) r))
(*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 r r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))) r)
(fma.f64 (/.f64 (*.f64 q q) (*.f64 r r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64))))
(/.f64 (*.f64 q q) (*.f64 r r))
(-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))
(/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r)
(fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64))
(/.f64 p r)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r))
(+.f64 (fabs.f64 p) (fabs.f64 r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))
(neg.f64 r)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))
(*.f64 #s(literal -2 binary64) q)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))
(*.f64 q #s(literal 2 binary64))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))))
(-.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1 binary64)))
(pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64))
(pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1 binary64))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
(pow.f64 (-.f64 p r) #s(literal 2 binary64))
(+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (* -1/2 p) #s(hole binary64 (* -1/2 p)))
#s(approx p #s(hole binary64 p))
#s(approx (* 1/2 p) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* 1/4 (/ r q)) (* p (- (* -1/32 (/ (* p r) (pow q 3))) (* 1/8 (/ 1 q)))))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* 1/2 (/ (* p r) q)))) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* -1/4 (/ p q)) (* 1/2 (/ r q)))))) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* 1/2 (/ r q)) (* p (- (* -1/16 (/ (* p r) (pow q 3))) (* 1/4 (/ 1 q)))))))) (* 2 q))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ 1/2 q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* -1/16 (/ (pow p 2) (pow q 3))) (* 1/2 (/ 1 q)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow p 2) (- (* 3/256 (/ (pow p 2) (pow q 5))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow p 2) (- (* (pow p 2) (+ (* -5/2048 (/ (pow p 2) (pow q 7))) (* 3/256 (/ 1 (pow q 5))))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (* p p) #s(hole binary64 (pow p 2)))
#s(approx (* r p) #s(hole binary64 (* p r)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1/4 (/ (pow p 2) q)))) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow p 2) (- (* 1/64 (/ (pow p 2) (pow q 3))) (* 1/4 (/ 1 q)))))) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow p 2) (- (* (pow p 2) (+ (* -1/512 (/ (pow p 2) (pow q 5))) (* 1/64 (/ 1 (pow q 3))))) (* 1/4 (/ 1 q)))))) (* 2 q))))
#s(approx (+ (fabs r) (fabs p)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (fabs p) #s(hole binary64 (fabs p)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* 1/4 (/ (pow p 2) q)) (* 2 q))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* 2 q) (* (pow p 2) (+ (* -1/64 (/ (pow p 2) (pow q 3))) (* 1/4 (/ 1 q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* 2 q) (* (pow p 2) (+ (* (pow p 2) (- (* 1/512 (/ (pow p 2) (pow q 5))) (* 1/64 (/ 1 (pow q 3))))) (* 1/4 (/ 1 q)))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) r))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (+ (* 1/2 p) (* 1/2 (- (+ (fabs p) (fabs r)) r)))))
#s(approx (neg p) #s(hole binary64 (* -1 p)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (/ (+ (* -1/2 p) (* -1/2 (- (+ (fabs p) (fabs r)) r))) p)))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) #s(hole binary64 (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p))))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) #s(hole binary64 (/ (- (+ (fabs p) (fabs r)) r) p)))
#s(approx (+ (fabs p) (- (fabs r) r)) #s(hole binary64 (- (+ (fabs p) (fabs r)) r)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* (pow p 2) (- (* 1/128 (/ (pow p 2) (pow q 3))) (* 1/8 (/ 1 q)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* (pow p 2) (- (* (pow p 2) (+ (* -1/1024 (/ (pow p 2) (pow q 5))) (* 1/128 (/ 1 (pow q 3))))) (* 1/8 (/ 1 q)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* 1/2 (+ r (+ (fabs p) (fabs r))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (+ (* -1/2 p) (* 1/2 (+ r (+ (fabs p) (fabs r)))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (+ r (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (+ r (fabs p)) #s(hole binary64 (+ r (fabs p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2)))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (* 2 (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (/ 1 (pow r 4))))) (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3)))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2)))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (* 2 (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (/ 1 (pow r 4))))) (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3)))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2)))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (+ (* p (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2)))) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (+ (* p (+ (* p (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3)))) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (+ (* p (+ (* p (+ (* p (+ (* (pow q 2) (- (* 2 (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (/ 1 (pow r 4)))) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3))))) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (+ (* p (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4)))))) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7)))))) (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))))) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 2) (- (* 2 (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6))))))) (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))))) (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))))) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (- (+ (* 2 (/ (pow q 2) (pow r 5))) (* p (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4)))))) (/ 1 (pow r 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (- (+ (* 2 (/ (pow q 2) (pow r 5))) (* p (- (+ (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* p (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7)))))) (* 3 (/ 1 (pow r 4)))))) (/ 1 (pow r 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (- (+ (* 2 (/ (pow q 2) (pow r 5))) (* p (- (+ (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* p (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (+ (* 3 (/ 1 (pow r 5))) (* p (- (* 2 (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7)))))) (* 3 (/ 1 (pow r 4)))))) (/ 1 (pow r 3)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (* -1 (/ (pow q 2) (pow r 5)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (+ (* -1 (/ (* p (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 10))) (* -1 (/ (pow q 2) (pow r 5))))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 5))) (* p (- (* -1 (* p (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15))))) (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10)))))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 5))) (* p (- (* p (- (* -1 (* p (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10)))))) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15))))) (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10)))))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* -1 (pow r 5))))
#s(approx (pow (- p r) 5) #s(hole binary64 (+ (* -1 (pow r 5)) (* p (+ (* 4 (pow r 4)) (pow r 4))))))
#s(approx (pow (- p r) 5) #s(hole binary64 (+ (* -1 (pow r 5)) (* p (+ (* 4 (pow r 4)) (+ (* p (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 4)))))))
#s(approx (pow (- p r) 5) #s(hole binary64 (+ (* -1 (pow r 5)) (* p (+ (* 4 (pow r 4)) (+ (* p (+ (* -4 (pow r 3)) (+ (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))) (* p (+ (* 2 (pow r 2)) (* 8 (pow r 2))))))) (pow r 4)))))))
#s(approx (- p r) #s(hole binary64 (* -1 r)))
#s(approx (- p r) #s(hole binary64 (- p r)))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ -1 (pow r 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (- (* -3 (/ p (pow r 4))) (/ 1 (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (- (* p (- (* p (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (- (* p (- (* p (- (+ (* -1 (* p (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 3)))))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ -1 r)))
#s(approx (pow (- p r) -1) #s(hole binary64 (- (* -1 (/ p (pow r 2))) (/ 1 r))))
#s(approx (pow (- p r) -1) #s(hole binary64 (- (* p (- (* -1 (/ p (pow r 3))) (/ 1 (pow r 2)))) (/ 1 r))))
#s(approx (pow (- p r) -1) #s(hole binary64 (- (* p (- (* p (- (* -1 (/ p (pow r 4))) (/ 1 (pow r 3)))) (/ 1 (pow r 2)))) (/ 1 r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6))))))) (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6))))))) (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (+ (* p (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ 1 (pow r 2))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (+ (* p (- (+ (* p (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6)))))) (/ 1 (pow r 3))) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ 1 (pow r 2))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (/ (pow q 2) (pow r 3)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* -1 (/ (* p (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 6))) (* -1 (/ (pow q 2) (pow r 3))))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (* p (- (* -1 (* p (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (* p (- (* p (- (* -1 (* p (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6)))))) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (pow r 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* -1 (pow r 3)) (* p (+ (* 2 (pow r 2)) (pow r 2))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* -1 (pow r 3)) (* p (+ (* 2 (pow r 2)) (+ (* p (+ (* -2 r) (* -1 r))) (pow r 2)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* -1 (pow r 3)) (* p (+ (* 2 (pow r 2)) (+ (* p (+ p (+ (* -2 r) (* -1 r)))) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (/ (pow q 2) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (/ (pow q 2) (pow r 2)) 1/2)) (/ (pow q 2) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))) 1/2)) (/ (pow q 2) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2))) 1/2)) (/ (pow q 2) r)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (/ (* p (pow q 2)) (pow r 2)) (/ (pow q 2) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* p (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* p (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* -1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* p (- (* -1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* -1 r))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (/ (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) p)))
#s(approx (/ (+ (fabs r) (fabs p)) p) #s(hole binary64 (/ (+ (fabs p) (fabs r)) p)))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (* -1 (/ r p))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (/ (+ p (* -1 r)) p)))
#s(approx (/ r p) #s(hole binary64 (/ r p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -2 (/ (pow q 2) p))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* -2 (/ (pow q 2) (pow p 2)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) (pow p 2))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (pow p 2))))
#s(approx (/ (* q q) (* p p)) #s(hole binary64 (/ (pow q 2) (pow p 2))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (+ p (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ p r) (+ (/ (fabs p) r) (/ (fabs r) r)))) 1)))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (- (+ (/ (fabs p) r) (/ (fabs r) r)) 1)))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (- (+ (/ p r) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)))
#s(approx (/ (+ (fabs r) (fabs p)) r) #s(hole binary64 (/ (+ (fabs p) (fabs r)) r)))
#s(approx (+ (* (/ p r) -1) 1) #s(hole binary64 1))
#s(approx (+ (* (/ p r) -1) 1) #s(hole binary64 (+ 1 (* -1 (/ p r)))))
#s(approx (/ p r) #s(hole binary64 (/ p r)))
#s(approx (+ (fabs p) (fabs r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* p (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* -1/2 (* p (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))) (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (* p (+ (* -1/2 (* p (+ (* 1/2 (* (/ (* r (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* (/ (* r (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* -1/2 (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (+ (* -1 (* p (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))) (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (+ (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (- (* -1 (* p (+ (* 1/2 (* (/ (* r (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* (/ (* r (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* 2 (* p r)) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* p (- (* -1 p) (* -2 r))) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (pow (+ (fabs r) (fabs p)) 2) #s(hole binary64 (pow (+ (fabs p) (fabs r)) 2)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (+ (* 4 (pow q 2)) (pow r 2))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* p (+ p (* -2 r))) (pow r 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow r 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* p (+ p (* -2 r))) (pow r 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow r 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow r 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* p (+ p (* -2 r))) (pow r 2))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ 1 p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p)))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (pow p 2)))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (* (pow p 2) (+ 1 (* 4 (/ (pow q 2) (pow p 2)))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* p (- (+ (* 2 (/ (pow q 4) (pow p 4))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 p))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* p (+ 1 (* 2 (/ (pow q 2) (pow p 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (+ (* 2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 6) (pow p 6)))))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* 1/2 p)))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* p (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) r) p))))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1/2 p)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* p (- (* 1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) p))) 1/2))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (+ (* 1/2 (/ (+ (fabs p) (fabs r)) p)) (/ (pow q 4) (pow p 4)))) 1/2))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* -1/2 p)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2)))) p)))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (+ (/ (* (pow q 2) (+ (* -1 (* (pow q 2) (+ (* -2 r) (* -1 r)))) (* -1 (pow r 3)))) (pow p 3)) (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2))))) p)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ -1 p)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 2) (pow p 2))) (/ (pow q 2) (pow p 2)))) 1) p)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow p 3))) (+ (* -1 (/ (pow r 2) (pow p 2))) (+ (* -1 (/ (pow r 3) (pow p 3))) (/ (pow q 2) (pow p 2)))))) 1) p)))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (pow q 2) (pow p 3))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p)) (pow q 2)) (pow p 3))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p)) (+ (/ (* (pow q 2) (- (* -2 (pow q 2)) (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))))) (pow p 2)) (pow q 2))) (pow p 3))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p)) (+ (/ (* (pow q 2) (- (* -2 (pow q 2)) (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))))) (pow p 2)) (+ (/ (* (pow q 2) (- (* 2 (* (pow q 2) (+ (* -4 r) (* -1 r)))) (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))))) (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (* -1 (pow r 3)))))) (pow p 3)) (pow q 2)))) (pow p 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ 1 (pow p 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ (+ 1 (* -1 (/ (+ (* -2 r) (* -1 r)) p))) (pow p 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ (- (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* -1 (/ (pow (+ (* -2 r) (* -1 r)) 2) (pow p 2))) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))) (pow p 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ (- (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* 2 (/ (* (pow q 2) (+ (* -4 r) (* -1 r))) (pow p 3))))) (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* -1 (/ (* (+ (* -2 r) (* -1 r)) (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow p 3))) (+ (* -1 (/ (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2))) (pow p 3))) (+ (* -1 (/ (pow r 3) (pow p 3))) (+ (* -1 (/ (pow (+ (* -2 r) (* -1 r)) 2) (pow p 2))) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2)))))))))) (pow p 3))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (pow q 2) (pow p 5))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -4 r) (* -1 r))) p)) (pow q 2)) (pow p 5))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow (+ (* -4 r) (* -1 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2))))) (pow p 2))) (pow q 2)) (/ (* (pow q 2) (+ (* -4 r) (* -1 r))) p)) (pow p 5))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* -1 (* (+ (* -4 r) (* -1 r)) (+ (* -1 (* (pow q 2) (pow (+ (* -4 r) (* -1 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2))))))) (+ (* -1 (* (pow q 2) (* (+ (* -4 r) (* -1 r)) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))))) (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))))) (pow p 3))) (pow q 2)) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 r) (* -1 r)) 2)) (pow p 2))) (+ (/ (* (pow q 2) (+ (* -4 r) (* -1 r))) p) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow p 2))))) (pow p 5))))
#s(approx (pow (- p r) 5) #s(hole binary64 (pow p 5)))
#s(approx (pow (- p r) 5) #s(hole binary64 (* (pow p 5) (+ 1 (+ (* -4 (/ r p)) (* -1 (/ r p)))))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* (pow p 5) (+ 1 (+ (* -4 (/ r p)) (+ (* -1 (/ r p)) (+ (* 2 (/ (pow r 2) (pow p 2))) (* 8 (/ (pow r 2) (pow p 2))))))))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* (pow p 5) (+ 1 (+ (* -4 (/ r p)) (+ (* -4 (/ (pow r 3) (pow p 3))) (+ (* -1 (/ r p)) (+ (* -1 (/ (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))) (pow p 3))) (+ (* 2 (/ (pow r 2) (pow p 2))) (* 8 (/ (pow r 2) (pow p 2))))))))))))
#s(approx (- p r) #s(hole binary64 p))
#s(approx (- p r) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ 1 (pow p 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (+ 1 (* -1 (/ (+ (* -2 r) (* -1 r)) p))) (pow p 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (+ 1 (* -1 (/ (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))) (pow p 2)))) (+ (* -2 (/ r p)) (* -1 (/ r p)))) (pow p 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (+ 1 (* -1 (/ (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))))) (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (* -1 (pow r 3)))) (pow p 3)))) (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* -1 (/ (pow (+ (* -2 r) (* -1 r)) 2) (pow p 2))) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))) (pow p 3))))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ 1 p)))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ (+ 1 (/ r p)) p)))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ (- (+ 1 (/ (pow r 2) (pow p 2))) (* -1 (/ r p))) p)))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ (- (+ 1 (/ (pow r 3) (pow p 3))) (+ (* -1 (/ r p)) (* -1 (/ (pow r 2) (pow p 2))))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2)))) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (+ (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2)) (/ (* (pow q 2) (- (* -1 (pow r 3)) (* (pow q 2) (+ (* -2 r) (* -1 r))))) (pow p 3))))) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ -1 p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 2) (pow p 2))) (/ (pow q 2) (pow p 2)))) 1) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 2) (pow p 2))) (+ (* -1 (/ (pow r 3) (pow p 3))) (/ (pow q 2) (pow p 2))))) (+ 1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow p 3)))) p)))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (pow q 2) (pow p 3))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p)) (pow q 2)) (pow p 3))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow (+ (* -2 r) (* -1 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2)))) (pow p 2))) (pow q 2)) (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p)) (pow p 3))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* -1 (* (pow q 2) (pow (+ (* -2 r) (* -1 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2)))))) (+ (* -1 (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2))))) (* -1 (* (pow q 2) (pow r 3))))) (pow p 3))) (pow q 2)) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 r) (* -1 r)) 2)) (pow p 2))) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow p 2))))) (pow p 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (pow p 3)))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow p 3) (+ 1 (+ (* -2 (/ r p)) (* -1 (/ r p)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow p 3) (+ 1 (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2)))))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow p 3) (+ 1 (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 3) (pow p 3))) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (* -1 (pow q 2)))) p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow r 3)) (pow p 3))) (* -1 (pow q 2))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* -1 p)))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 -1))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 1))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (+ 1 (* -1 (/ r p)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 -1))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 p))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* p (+ 1 (/ (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)) p)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ p r)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (* p (pow r 2)))) (+ (/ 1 r) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))))) (/ 1 p)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (/ p r)))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (* p (- (+ (/ 1 r) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r)))) (/ 1 p)))))
#s(approx (+ (* (/ p r) -1) 1) #s(hole binary64 (* -1 (/ p r))))
#s(approx (+ (* (/ p r) -1) 1) #s(hole binary64 (* p (- (/ 1 p) (/ 1 r)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2)))) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* -1/2 (/ (+ (* -2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))))) (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2)))))))) (pow p 3))) (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2))))) 1/2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 p)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (+ (* 2 (/ r p)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2))) (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow p 2)) (/ (pow r 2) (pow p 2)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (+ (* -1 (/ (+ (* -2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))))) (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2)))))))) (pow p 3))) (+ (* 2 (/ r p)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2)))) (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow p 2)) (/ (pow r 2) (pow p 2)))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -1 (pow p 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (* 2 (/ r p)) 1))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2)) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2)))))))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (pow p 2)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow p 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow p 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (/ (pow r 2) (pow p 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 p))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (/ (fabs p) p) (/ (fabs r) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (+ (* 2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 p))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (+ (fabs p) (fabs r)) r))) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r)))) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* 2 (/ (pow q 2) p))))) p)) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))) p)) 1)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ -1 p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 p))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (fabs r)) p)) 1)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) p)))) p)) 1)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 2 (/ (pow q 4) (pow p 2))) (* 2 (pow q 2))) p)))) p)) 1)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (+ (* 2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 6) (pow p 6))))))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 p)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (+ (fabs p) (fabs r))) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (pow q 2)) (/ (pow q 4) (pow p 2))) p)) (* 1/2 (+ (fabs p) (fabs r)))) p)) 1/2)))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2)))) p))) p)) (pow q 2)) p))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (* (pow q 2) (+ r (* 2 r))) (pow r 3))) p)) (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2))))) p))) p)) (pow q 2)) p))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (- (* (pow q 2) (+ r (* 2 r))) (pow r 3)) p)) (* -1 (pow q 2))) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ r (* 2 r))) p)) (* -1 (pow q 2))) (pow p 3)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -1 (pow (+ r (* 2 r)) 2)) (+ (* 2 (pow q 2)) (+ (* 2 (pow r 2)) (pow r 2))))) p)) (* (pow q 2) (+ r (* 2 r)))) p)) (* -1 (pow q 2))) (pow p 3)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -2 (* (pow q 2) (+ r (* 4 r)))) (+ (* -1 (* (+ r (* 2 r)) (+ (* -1 (pow (+ r (* 2 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))))) (+ (* -1 (* (+ r (* 2 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 3))))) p)) (* (pow q 2) (+ (* -1 (pow (+ r (* 2 r)) 2)) (+ (* 2 (pow q 2)) (+ (* 2 (pow r 2)) (pow r 2)))))) p)) (* (pow q 2) (+ r (* 2 r)))) p)) (* -1 (pow q 2))) (pow p 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ r (* 2 r)) p)) 1) (pow p 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ r (+ (* -1 (/ (+ (* -1 (pow (+ r (* 2 r)) 2)) (+ (* 2 (pow q 2)) (+ (* 2 (pow r 2)) (pow r 2)))) p)) (* 2 r))) p)) 1) (pow p 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ r (+ (* -1 (/ (+ (* -1 (/ (+ (* -2 (* (pow q 2) (+ r (* 4 r)))) (+ (* -1 (* (+ r (* 2 r)) (+ (* -1 (pow (+ r (* 2 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))))) (+ (* -1 (* (+ r (* 2 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 3)))) p)) (+ (* -1 (pow (+ r (* 2 r)) 2)) (+ (* 2 (pow q 2)) (+ (* 2 (pow r 2)) (pow r 2))))) p)) (* 2 r))) p)) 1) (pow p 3)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ r (* 4 r))) p)) (* -1 (pow q 2))) (pow p 5)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow (+ r (* 4 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2))))) p)) (* (pow q 2) (+ r (* 4 r)))) p)) (* -1 (pow q 2))) (pow p 5)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow (+ r (* 4 r)) 2))) (+ (* -1 (/ (+ (* -1 (* (+ r (* 4 r)) (+ (* -1 (* (pow q 2) (pow (+ r (* 4 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2))))))) (+ (* -1 (* (pow q 2) (* (+ r (* 4 r)) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))))) (* (pow q 2) (+ (* 4 (pow r 3)) (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))))) p)) (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))))) p)) (* (pow q 2) (+ r (* 4 r)))) p)) (* -1 (pow q 2))) (pow p 5)))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* -1 (* (pow p 5) (- (+ (* 4 (/ r p)) (/ r p)) 1)))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* -1 (* (pow p 5) (- (* -1 (/ (+ (* -1 (+ r (* 4 r))) (+ (* 2 (/ (pow r 2) p)) (* 8 (/ (pow r 2) p)))) p)) 1)))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* -1 (* (pow p 5) (- (* -1 (/ (+ (* -1 (+ r (* 4 r))) (* -1 (/ (+ (* -1 (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (+ (* 4 (/ (pow r 3) p)) (/ (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))) p))) p))) p)) 1)))))
#s(approx (- p r) #s(hole binary64 (* -1 (* p (- (/ r p) 1)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ r (* 2 r)) p)) 1) (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (+ (* 2 (pow r 2)) (pow r 2)) p)) (/ (pow (+ r (* 2 r)) 2) p)) (* -1 (+ r (* 2 r)))) p)) 1) (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ r (* 2 r)) (+ (* -1 (+ (* 2 (pow r 2)) (pow r 2))) (pow (+ r (* 2 r)) 2))) p)) (+ (* -1 (/ (pow r 3) p)) (/ (* (+ r (* 2 r)) (+ (* 2 (pow r 2)) (pow r 2))) p))) (+ (* -1 (+ (* 2 (pow r 2)) (pow r 2))) (pow (+ r (* 2 r)) 2))) p)) (* -1 (+ r (* 2 r)))) p)) 1) (pow p 3)))))
#s(approx (pow (- p r) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ r p)) 1) p))))
#s(approx (pow (- p r) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (/ (pow r 2) p) (* -1 r)) p)) 1) p))))
#s(approx (pow (- p r) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (* -1 (/ (pow r 3) p)) (pow r 2)) p)) (* -1 r)) p)) 1) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2)))) p))) p)) (pow q 2)) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (* (pow q 2) (+ r (* 2 r))) (pow r 3))) p)) (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2))))) p))) p)) (pow q 2)) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (- (* (pow q 2) (+ r (* 2 r))) (pow r 3)) p)) (* -1 (pow q 2))) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ r (* 2 r))) p)) (* -1 (pow q 2))) (pow p 3)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow (+ r (* 2 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2)))) p)) (* (pow q 2) (+ r (* 2 r)))) p)) (* -1 (pow q 2))) (pow p 3)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow (+ r (* 2 r)) 2))) (+ (* -1 (/ (+ (* -1 (* (+ r (* 2 r)) (+ (* -1 (* (pow q 2) (pow (+ r (* 2 r)) 2))) (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2)))))) (+ (* -1 (* (pow q 2) (* (+ r (* 2 r)) (+ (* 2 (pow r 2)) (pow r 2))))) (* (pow q 2) (pow r 3)))) p)) (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))))) p)) (* (pow q 2) (+ r (* 2 r)))) p)) (* -1 (pow q 2))) (pow p 3)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow p 3) (- (+ (* 2 (/ r p)) (/ r p)) 1)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow p 3) (- (* -1 (/ (+ (* -1 (+ r (* 2 r))) (+ (* 2 (/ (pow r 2) p)) (/ (pow r 2) p))) p)) 1)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow p 3) (- (* -1 (/ (+ (* -1 (+ r (* 2 r))) (* -1 (/ (+ (* -1 (+ (* 2 (pow r 2)) (pow r 2))) (/ (pow r 3) p)) p))) p)) 1)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow q 2) (pow r 2)) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow q 2) (pow r 3)) p) (* -1 (* (pow q 2) (pow r 2)))) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (fabs r)) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) p)))) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p)))) r) p)) 1)))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* -1 (* p (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))) (/ r p))))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) r) p)) 1)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* p (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))) (/ r p))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ (* -2 (/ (pow q 2) p)) (* -1 (- (* -1 (+ (fabs p) (fabs r))) r))) p)))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) r) p)) 1)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) p))) r) p)) 1)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* p (- (* -1 (/ (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)) p)) 1)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1) p)) (/ 1 r))))))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (/ (fabs p) r) (/ (fabs r) r)) 1) p)) (/ 1 r))))))
#s(approx (+ (* (/ p r) -1) 1) #s(hole binary64 (* -1 (* p (- (/ 1 r) (/ 1 p))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ r p)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -2 (/ (pow q 2) p))) p)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) p)))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))) (* 1/2 (/ (+ (* 2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) (* (+ r (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))))) p))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 p))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 r) (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p))) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 r) (* -1 (/ (- (+ (* 2 (/ (* (pow q 2) r) p)) (+ (* 2 (/ (* (pow q 2) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) p)) (+ (/ (* (+ r (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))) p) (pow (+ (fabs p) (fabs r)) 2)))) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p))) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (* -1 (/ (- (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) p)) (* 2 r)) p)) 1))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow r 2)) p)) (* 2 r)) p))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow r 2)) p)) (* 2 r)) p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow r 2) p)) (* 2 r)) p))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 p)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p))))) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))) p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ r p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -2 (/ (pow q 2) p))) p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) p)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (* -1/2 r) #s(hole binary64 (* -1/2 r)))
#s(approx r #s(hole binary64 r))
#s(approx (* 1/2 r) #s(hole binary64 (* 1/2 r)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (fabs r) #s(hole binary64 (fabs r)))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (+ (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2))) (* -1/2 r))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (- (+ (* -1/2 (/ (+ (fabs p) (fabs r)) p)) (* 1/2 (/ r p))) 1/2)))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) #s(hole binary64 (* -1/2 (/ (+ (fabs p) (fabs r)) p))))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) #s(hole binary64 (+ (* -1/2 (/ (+ (fabs p) (fabs r)) p)) (* 1/2 (/ r p)))))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) #s(hole binary64 (/ (+ (fabs p) (fabs r)) p)))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) #s(hole binary64 (+ (* -1 (/ r p)) (+ (/ (fabs p) p) (/ (fabs r) p)))))
#s(approx (+ (fabs p) (- (fabs r) r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (+ (fabs p) (- (fabs r) r)) #s(hole binary64 (+ (fabs p) (+ (fabs r) (* -1 r)))))
#s(approx (- (fabs r) r) #s(hole binary64 (fabs r)))
#s(approx (- (fabs r) r) #s(hole binary64 (+ (fabs r) (* -1 r))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow r 2) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* (pow r 2) (- (* 1/128 (/ (pow r 2) (pow q 3))) (* 1/8 (/ 1 q)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* (pow r 2) (- (* (pow r 2) (+ (* -1/1024 (/ (pow r 2) (pow q 5))) (* 1/128 (/ 1 (pow q 3))))) (* 1/8 (/ 1 q)))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1/4 (/ (pow r 2) q)))) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow r 2) (- (* 1/64 (/ (pow r 2) (pow q 3))) (* 1/4 (/ 1 q)))))) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow r 2) (- (* (pow r 2) (+ (* -1/512 (/ (pow r 2) (pow q 5))) (* 1/64 (/ 1 (pow q 3))))) (* 1/4 (/ 1 q)))))) (* 2 q))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (+ (* 1/4 (/ (pow r 2) q)) (* 2 q))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (+ (* 2 q) (* (pow r 2) (+ (* -1/64 (/ (pow r 2) (pow q 3))) (* 1/4 (/ 1 q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (+ (* 2 q) (* (pow r 2) (+ (* (pow r 2) (- (* 1/512 (/ (pow r 2) (pow q 5))) (* 1/64 (/ 1 (pow q 3))))) (* 1/4 (/ 1 q)))))))
#s(approx (+ (* (* q q) 4) (* r r)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (* (* q q) 4) (* r r)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow r 2))))
#s(approx (* r r) #s(hole binary64 (pow r 2)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) p))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (+ (* 1/2 r) (* 1/2 (- (+ (fabs p) (fabs r)) p)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (- (+ (fabs p) (fabs r)) p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (+ r (fabs p)) #s(hole binary64 (fabs p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2)))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* (pow q 2) (* r (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2))))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* r (+ (* (pow q 2) (* r (- (* (pow q 2) (- (+ (* 2 (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ 1 (pow p 6))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7)))))) (/ 1 (pow p 4))))) (* (pow q 2) (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3)))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2))))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* (pow q 2) (* r (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* (pow q 2) (* r (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2)))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* r (+ (* (pow q 2) (* r (- (* (pow q 2) (- (+ (* 2 (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ 1 (pow p 6))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7)))))) (/ 1 (pow p 4))))) (* (pow q 2) (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3)))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2)))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2)))) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (+ (* r (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3)))) (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4)))))) (/ 1 (pow p 2)))) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (+ (* r (- (+ (* r (- (* (pow q 2) (- (+ (* 2 (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ 1 (pow p 6))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7)))))) (/ 1 (pow p 4)))) (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))))))) (/ 1 (pow p 3)))) (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4)))))) (/ 1 (pow p 2)))) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (+ (* (pow q 2) (* r (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4)))))) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (+ (* r (+ (* (pow q 2) (* r (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))))))) (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))))) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (+ (* r (+ (* r (+ (* (pow q 2) (* r (- (+ (* 2 (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ 1 (pow p 6))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7))))))) (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))))) (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))))) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 5))) (+ (* r (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 3))))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 5))) (+ (* r (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (+ (* 3 (/ 1 (pow p 4))) (* r (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))))))))) (/ 1 (pow p 3))))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 5))) (+ (* r (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (+ (* 3 (/ 1 (pow p 4))) (* r (- (+ (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (* r (- (+ (* 2 (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ 1 (pow p 6))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7))))))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))))))))) (/ 1 (pow p 3))))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) (* r (+ (* -4 (pow p 4)) (* -1 (pow p 4))))) (pow p 10))) (/ (pow q 2) (pow p 5)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (+ (* r (- (* -1 (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10)))) (/ (pow q 2) (pow p 5)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (+ (* r (- (* r (- (* -1 (* r (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10)))) (/ (pow q 2) (pow p 5)))))
#s(approx (pow (- p r) 5) #s(hole binary64 (+ (* r (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 5))))
#s(approx (pow (- p r) 5) #s(hole binary64 (+ (* r (+ (* -4 (pow p 4)) (+ (* -1 (pow p 4)) (* r (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))))) (pow p 5))))
#s(approx (pow (- p r) 5) #s(hole binary64 (+ (* r (+ (* -4 (pow p 4)) (+ (* -1 (pow p 4)) (* r (+ (* 4 (pow p 3)) (+ (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))) (* r (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))))))))) (pow p 5))))
#s(approx (- p r) #s(hole binary64 (+ p (* -1 r))))
#s(approx (pow (- p r) -3) #s(hole binary64 (+ (* 3 (/ r (pow p 4))) (/ 1 (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (+ (* r (+ (* -1 (* r (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (+ (* r (+ (* r (- (* r (- (/ 1 (pow p 6)) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7)))))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 3)))))
#s(approx (pow (- p r) -1) #s(hole binary64 (+ (/ 1 p) (/ r (pow p 2)))))
#s(approx (pow (- p r) -1) #s(hole binary64 (+ (* r (+ (/ 1 (pow p 2)) (/ r (pow p 3)))) (/ 1 p))))
#s(approx (pow (- p r) -1) #s(hole binary64 (+ (* r (+ (* r (+ (/ 1 (pow p 3)) (/ r (pow p 4)))) (/ 1 (pow p 2)))) (/ 1 p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))) (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4)))))))) (* -1 (* (pow q 2) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* -1 (* (pow q 2) (* r (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))) (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4)))))))) (* -1 (* (pow q 2) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (/ (pow q 2) (pow p 3)) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* -1 (* r (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (* -1 (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (* r (- (* -1 (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4))))))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) (* r (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 6))) (/ (pow q 2) (pow p 3)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* r (- (* -1 (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))) (/ (pow q 2) (pow p 3)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* r (- (* r (- (* -1 (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (* -1 (/ (pow q 2) (pow p 6))))))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))) (/ (pow q 2) (pow p 3)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* r (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* r (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (* r (+ p (* 2 p)))))) (pow p 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* r (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (* r (+ p (+ (* -1 r) (* 2 p))))))) (pow p 3))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (+ (fabs p) (fabs r)) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (* -1 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (* -1 (/ (pow q 2) p)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* -1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* r (- (* -1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (+ r (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (+ r (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) 1)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -2 (/ (pow q 2) r))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (fabs r)) (* -1 p)))) r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (+ (fabs r) (* -1 r))) (* -1 p)))) r)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* -2 (/ (pow q 2) (pow r 2)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (fabs r)) (* -1 p)))) (pow r 2))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (+ (fabs r) (* -1 r))) (* -1 p)))) (pow r 2))))
#s(approx (/ (* q q) (* r r)) #s(hole binary64 (/ (pow q 2) (pow r 2))))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (/ (- (+ (fabs p) (+ (fabs r) (* -1 r))) (* -1 p)) r)))
#s(approx (+ (* (/ p r) -1) 1) #s(hole binary64 (/ (+ r (* -1 p)) r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (neg r) #s(hole binary64 (* -1 r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* r (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* -1/2 (* r (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))) (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (* r (+ (* -1/2 (* r (+ (* 1/2 (* (/ (* p (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* (/ (* p (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* -1/2 (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (+ (* -1 (* r (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))) (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (+ (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (- (* -1 (* r (+ (* 1/2 (* (/ (* p (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* (/ (* p (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* 2 (* p r)) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* r (- (* -1 r) (* -2 p))) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* r (+ r (* -2 p))) (pow p 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* r (+ r (* -2 p))) (pow p 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow p 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* r (+ r (* -2 p))) (pow p 2))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* r (- (+ (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))) (+ (/ (fabs p) r) (/ (fabs r) r))) (* (/ 1 r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1/2 r)))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* r (- (* -1 (/ (* p (- (* -1/2 (+ (/ (fabs p) p) (/ (fabs r) p))) 1/2)) r)) 1/2))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* 1/2 (/ r p))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* r (- (+ (* -1/2 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (* 1/2 (/ 1 p))) (* 1/2 (/ 1 r))))))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) #s(hole binary64 (* 1/2 (/ r p))))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) #s(hole binary64 (* r (+ (* -1/2 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (* 1/2 (/ 1 p))))))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) #s(hole binary64 (* -1 (/ r p))))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) #s(hole binary64 (* r (- (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))) (/ 1 p)))))
#s(approx (+ (fabs p) (- (fabs r) r)) #s(hole binary64 (* -1 r)))
#s(approx (+ (fabs p) (- (fabs r) r)) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) 1))))
#s(approx (- (fabs r) r) #s(hole binary64 (* -1 r)))
#s(approx (- (fabs r) r) #s(hole binary64 (* r (- (/ (fabs r) r) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1/2 r)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* r (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) r))) 1/2))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (* 1/2 (/ (+ (fabs p) (fabs r)) r)) (/ (pow q 4) (pow r 4)))) 1/2))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -1 r)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) 1))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* r (- (+ (* 2 (/ (pow q 4) (pow r 4))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 r))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* r (+ 1 (* 2 (/ (pow q 2) (pow r 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* r (+ 1 (+ (* -2 (/ (pow q 4) (pow r 4))) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* r (+ 1 (+ (* -2 (/ (pow q 4) (pow r 4))) (+ (* 2 (/ (pow q 2) (pow r 2))) (* 4 (/ (pow q 6) (pow r 6)))))))))
#s(approx (+ (* (* q q) 4) (* r r)) #s(hole binary64 (pow r 2)))
#s(approx (+ (* (* q q) 4) (* r r)) #s(hole binary64 (* (pow r 2) (+ 1 (* 4 (/ (pow q 2) (pow r 2)))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* 1/2 r)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 r))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* r (- (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))) (/ p r)))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 r))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (* r (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))))))
#s(approx (+ r (fabs p)) #s(hole binary64 r))
#s(approx (+ r (fabs p)) #s(hole binary64 (* r (+ 1 (/ (fabs p) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (pow q 2))) r)))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (* (pow q 2) (+ p (* 2 p)))) (pow p 3))) (pow r 3)) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (pow q 2)))) r)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ 1 r)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (/ (pow p 2) (pow r 2))))) r)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (+ (* -1 (/ (* (pow q 2) (+ p (* 2 p))) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (+ (/ (pow p 2) (pow r 2)) (/ (pow p 3) (pow r 3))))))) r)))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) (pow r 3)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ p (* 2 p))) r)) (* -1 (pow q 2))) (pow r 3))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ p (* 2 p))) r)) (+ (* -1 (pow q 2)) (/ (* (pow q 2) (- (* 2 (pow q 2)) (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2))))) (pow r 2)))) (pow r 3))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ p (* 2 p))) r)) (+ (* -1 (pow q 2)) (+ (/ (* (pow q 2) (- (* 2 (* (pow q 2) (+ p (* 4 p)))) (+ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (+ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2)))) (pow p 3))))) (pow r 3)) (/ (* (pow q 2) (- (* 2 (pow q 2)) (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2))))) (pow r 2))))) (pow r 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ -1 (pow r 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ (- (* -1 (/ (+ p (* 2 p)) r)) 1) (pow r 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ (- (* 2 (/ (pow q 2) (pow r 2))) (+ 1 (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (+ (/ p r) (/ (pow (+ p (* 2 p)) 2) (pow r 2)))))))) (pow r 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ (- (+ (* 2 (/ (* (pow q 2) (+ p (* 4 p))) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))) (+ 1 (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (+ (/ p r) (+ (/ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow r 3)) (+ (/ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2)))) (pow r 3)) (+ (/ (pow p 3) (pow r 3)) (/ (pow (+ p (* 2 p)) 2) (pow r 2))))))))))) (pow r 3))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ p (* 4 p))) r)) (* -1 (pow q 2))) (pow r 5))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (* (pow q 2) (pow (+ p (* 4 p)) 2))) (pow r 2))) (* -1 (pow q 2))) (/ (* (pow q 2) (+ p (* 4 p))) r)) (pow r 5))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* (+ p (* 4 p)) (+ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (* (pow q 2) (pow (+ p (* 4 p)) 2)))) (+ (* (pow q 2) (* (+ p (* 4 p)) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))))) (pow r 3))) (* -1 (pow q 2))) (+ (/ (* (pow q 2) (+ p (* 4 p))) r) (+ (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow r 2)) (/ (* (pow q 2) (pow (+ p (* 4 p)) 2)) (pow r 2))))) (pow r 5))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* (pow r 5) (- (+ (* 4 (/ p r)) (/ p r)) 1))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* (pow r 5) (- (+ (* -4 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow r 2))) (+ (* 4 (/ p r)) (/ p r)))) 1))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* (pow r 5) (- (+ (* -4 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow r 2))) (+ (* 4 (/ p r)) (+ (* 4 (/ (pow p 3) (pow r 3))) (+ (/ p r) (/ (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))) (pow r 3))))))) 1))))
#s(approx (- p r) #s(hole binary64 (* r (- (/ p r) 1))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (* -1 (/ (+ p (* 2 p)) r)) 1) (pow r 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (* -1 (/ (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2))) (pow r 2))) (+ 1 (+ (* 2 (/ p r)) (/ p r)))) (pow r 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (* -1 (/ (+ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (+ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2)))) (pow p 3))) (pow r 3))) (+ 1 (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (+ (/ p r) (/ (pow (+ p (* 2 p)) 2) (pow r 2)))))))) (pow r 3))))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ (- (* -1 (/ p r)) 1) r)))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ (- (* -1 (/ (pow p 2) (pow r 2))) (+ 1 (/ p r))) r)))
#s(approx (pow (- p r) -1) #s(hole binary64 (/ (- (* -1 (/ (pow p 3) (pow r 3))) (+ 1 (+ (/ p r) (/ (pow p 2) (pow r 2))))) r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (pow q 2))) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (+ (/ (* (pow q 2) (- (pow p 3) (* (pow q 2) (+ p (* 2 p))))) (pow r 3)) (pow q 2)))) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ 1 r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (/ (pow p 2) (pow r 2))))) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ 1 (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (+ (/ (pow p 2) (pow r 2)) (/ (pow p 3) (pow r 3)))))) (/ (* (pow q 2) (+ p (* 2 p))) (pow r 3))) r)))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) (+ p (* 2 p))) r)) (* -1 (pow q 2))) (pow r 3))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (* (pow q 2) (pow (+ p (* 2 p)) 2))) (pow r 2))) (* -1 (pow q 2))) (/ (* (pow q 2) (+ p (* 2 p))) r)) (pow r 3))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* (+ p (* 2 p)) (+ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (* (pow q 2) (pow (+ p (* 2 p)) 2)))) (+ (* (pow p 3) (pow q 2)) (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))))) (pow r 3))) (* -1 (pow q 2))) (+ (/ (* (pow q 2) (+ p (* 2 p))) r) (+ (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow r 2)) (/ (* (pow q 2) (pow (+ p (* 2 p)) 2)) (pow r 2))))) (pow r 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow r 3) (- (+ (* 2 (/ p r)) (/ p r)) 1))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow r 3) (- (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (/ p r)))) 1))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow r 3) (- (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (+ (/ p r) (/ (pow p 3) (pow r 3)))))) 1))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (pow q 2))) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (+ (/ (* (pow p 3) (pow q 2)) (pow r 3)) (pow q 2)))) r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (* p (pow q 2)) (pow r 3))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 r))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* r (+ 1 (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)) r)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (/ r p)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (* r (- (+ (/ 1 p) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r)))) (/ 1 r)))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (* r (- (/ 1 r) (/ 1 p)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 r))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* r (+ 1 (/ (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)) r)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ r p)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (* (pow p 2) r))) (+ (/ 1 p) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))))) (/ 1 r)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 -1))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r))))))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 -1))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (* -1 (/ p r))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2)))) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* -1/2 (/ (+ (* -2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))))) (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2)))))))) (pow r 3))) (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2))))) 1/2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 r)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (* 2 (/ p r)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (+ (* 2 (/ p r)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2))) (+ 1 (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow r 2)) (/ (pow p 2) (pow r 2)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (+ (* -1 (/ (+ (* -2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))))) (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2)))))))) (pow r 3))) (+ (* 2 (/ p r)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2)))) (+ 1 (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow r 2)) (/ (pow p 2) (pow r 2)))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -1 (pow r 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (* 2 (/ p r)) 1))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2)) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2)))))))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (pow r 2)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow r 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (/ (pow p 2) (pow r 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (/ (fabs p) r) (/ (fabs r) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (+ (* 2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (* -1 (/ p r))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* r (+ (* -1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1 (* r (+ 1/2 (/ (* p (- (* -1/2 (+ (/ (fabs p) p) (/ (fabs r) p))) 1/2)) r))))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (* -1/2 (+ (/ (fabs p) p) (/ (fabs r) p))) 1/2) r)) (* 1/2 (/ 1 p)))))))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) #s(hole binary64 (* -1 (* r (- (* 1/2 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (* 1/2 (/ 1 p)))))))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) #s(hole binary64 (* -1 (* r (+ (* -1 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (/ 1 p))))))
#s(approx (+ (fabs p) (- (fabs r) r)) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) r)))))))
#s(approx (- (fabs r) r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (fabs r) r)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* 1/2 r)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (+ (fabs p) (fabs r))) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (pow q 2)) (/ (pow q 4) (pow r 2))) r)) (* 1/2 (+ (fabs p) (fabs r)))) r)) 1/2)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 r))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (fabs r)) r)) 1)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) r)))) r)) 1)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 2 (/ (pow q 4) (pow r 2))) (* 2 (pow q 2))) r)))) r)) 1)))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -1 r)))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -1 (* r (+ 1 (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -1 (* r (+ 1 (+ (* -2 (/ (pow q 4) (pow r 4))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -1 (* r (+ 1 (+ (* -2 (/ (pow q 4) (pow r 4))) (+ (* 2 (/ (pow q 2) (pow r 2))) (* 4 (/ (pow q 6) (pow r 6))))))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (fabs r)) r)) 1)))))
#s(approx (+ r (fabs p)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (fabs p) r)) 1)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -1 (* (pow q 2) (+ p (* 2 p)))) (pow p 3))) r)) (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2)))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (pow p 2)) (pow q 2)) r))) r)) 1) r))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (+ p (* 2 p)))) (pow p 3)) r)) (+ (* -1 (pow p 2)) (pow q 2))) r))) r)) 1) r))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) (+ p (* 2 p))) r) (pow q 2)) (pow r 3)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (+ p (* 2 p)))) (* -1 (/ (* (pow q 2) (- (* -2 (pow q 2)) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2))))) r))) r)) (pow q 2)) (pow r 3)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (+ p (* 2 p)))) (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (* 2 (* (pow q 2) (+ p (* 4 p)))) (+ (* -1 (* (+ p (* 2 p)) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2))))) (+ (* -1 (* (+ p (* 2 p)) (+ (* 2 (pow p 2)) (pow p 2)))) (pow p 3))))) r)) (* (pow q 2) (- (* -2 (pow q 2)) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2)))))) r))) r)) (pow q 2)) (pow r 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* -1 (/ (+ 1 (+ (* 2 (/ p r)) (/ p r))) (pow r 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -2 (pow q 2)) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (+ p (* 2 p))) r))) (pow r 3)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -2 (pow q 2)) (* -1 (/ (- (* 2 (* (pow q 2) (+ p (* 4 p)))) (+ (* -1 (* (+ p (* 2 p)) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2))))) (+ (* -1 (* (+ p (* 2 p)) (+ (* 2 (pow p 2)) (pow p 2)))) (pow p 3)))) r))) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (+ p (* 2 p))) r))) (pow r 3)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) (+ p (* 4 p))) r) (pow q 2)) (pow r 5)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (* (pow q 2) (pow (+ p (* 4 p)) 2)) r)) (/ (* (pow q 2) (+ (* 2 (pow p 2)) (* 8 (pow p 2)))) r)) (* (pow q 2) (+ p (* 4 p)))) r)) (pow q 2)) (pow r 5)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ p (* 4 p)) (+ (* -1 (* (pow q 2) (pow (+ p (* 4 p)) 2))) (* (pow q 2) (+ (* 2 (pow p 2)) (* 8 (pow p 2)))))) r)) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 4 p)) (+ (* 2 (pow p 2)) (* 8 (pow p 2))))) r)) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) r))) (+ (* -1 (* (pow q 2) (pow (+ p (* 4 p)) 2))) (* (pow q 2) (+ (* 2 (pow p 2)) (* 8 (pow p 2)))))) r)) (* (pow q 2) (+ p (* 4 p)))) r)) (pow q 2)) (pow r 5)))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* -1 (* (pow r 5) (+ 1 (* -1 (/ (+ p (* 4 p)) r)))))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* -1 (* (pow r 5) (+ 1 (* -1 (/ (+ p (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 8 (pow p 2))) r)) (* 4 p))) r)))))))
#s(approx (pow (- p r) 5) #s(hole binary64 (* -1 (* (pow r 5) (+ 1 (* -1 (/ (+ p (+ (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))) r)) (+ (* 2 (pow p 2)) (* 8 (pow p 2)))) r)) (* 4 p))) r)))))))
#s(approx (- p r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (+ 1 (+ (* 2 (/ p r)) (/ p r))) (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (+ (* -1 (/ (pow (+ p (* 2 p)) 2) r)) (+ (* 2 (/ (pow p 2) r)) (/ (pow p 2) r))) (+ p (* 2 p))) r))) (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ p (* 2 p)) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (+ (* -1 (/ (* (+ p (* 2 p)) (+ (* 2 (pow p 2)) (pow p 2))) r)) (/ (pow p 3) r))) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (+ p (* 2 p))) r))) (pow r 3)))))
#s(approx (pow (- p r) -1) #s(hole binary64 (* -1 (/ (+ 1 (/ p r)) r))))
#s(approx (pow (- p r) -1) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow p 2) r)) p) r))) r))))
#s(approx (pow (- p r) -1) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (/ (pow p 3) r) (* -1 (pow p 2))) r)) p) r))) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (pow p 3) (* (pow q 2) (+ p (* 2 p))))) r)) (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2)))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (pow p 2)) (pow q 2)) r))) r)) 1) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (/ (- (pow p 3) (* (pow q 2) (+ p (* 2 p)))) r)) (+ (* -1 (pow p 2)) (pow q 2))) r))) r)) 1) r))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) (+ p (* 2 p))) r) (pow q 2)) (pow r 3)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (* (pow q 2) (pow (+ p (* 2 p)) 2)) r)) (/ (* (pow q 2) (+ (* 2 (pow p 2)) (pow p 2))) r)) (* (pow q 2) (+ p (* 2 p)))) r)) (pow q 2)) (pow r 3)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ p (* 2 p)) (+ (* -1 (* (pow q 2) (pow (+ p (* 2 p)) 2))) (* (pow q 2) (+ (* 2 (pow p 2)) (pow p 2))))) r)) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (/ (* (pow p 3) (pow q 2)) r))) (+ (* -1 (* (pow q 2) (pow (+ p (* 2 p)) 2))) (* (pow q 2) (+ (* 2 (pow p 2)) (pow p 2))))) r)) (* (pow q 2) (+ p (* 2 p)))) r)) (pow q 2)) (pow r 3)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow r 3) (+ 1 (* -1 (/ (+ p (* 2 p)) r)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow r 3) (+ 1 (* -1 (/ (+ p (+ (* -1 (/ (+ (* 2 (pow p 2)) (pow p 2)) r)) (* 2 p))) r)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow r 3) (+ 1 (* -1 (/ (+ p (+ (* -1 (/ (+ (* -1 (/ (pow p 3) r)) (+ (* 2 (pow p 2)) (pow p 2))) r)) (* 2 p))) r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* p (pow q 2)) (/ (* (pow p 2) (pow q 2)) r)) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow p 2) (pow q 2))) (* -1 (/ (* (pow p 3) (pow q 2)) r))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 r))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) r)))) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r)))) p) r)) 1)))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)) r)) 1)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1) r)) (/ 1 p))))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (* -1 (* r (- (/ 1 p) (/ 1 r))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)) r)) 1)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1) r)) (/ 1 p))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* r (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) r))) (/ p r))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ (* -2 (/ (pow q 2) r)) (* -1 (- (* -1 (+ (fabs p) (fabs r))) p))) r)))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) p) r)) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) r))) p) r)) 1)))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) p) r)) 1)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -2 (/ (pow q 2) r))) r)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))) (* 1/2 (/ (+ (* 2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) (* (+ p (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))))) r))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 r))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 p) (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r))) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 p) (* -1 (/ (- (+ (* 2 (/ (* p (pow q 2)) r)) (+ (* 2 (/ (* (pow q 2) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) r)) (+ (/ (* (+ p (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))) r) (pow (+ (fabs p) (fabs r)) 2)))) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r))) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (- (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) r)) (* 2 p)) r)) 1))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow p 2)) r)) (* 2 p)) r))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow p 2)) r)) (* 2 p)) r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow p 2) r)) (* 2 p)) r))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (fabs r))) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) r))))) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))))) r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -2 (/ (pow q 2) r))) r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx q #s(hole binary64 q))
#s(approx (neg q) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5)))))) (* 1/2 (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3))))))))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 2 (/ 1 (pow p 3))) (+ (* 6 (/ r (pow p 4))) (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5))))))))) (* 2 (/ 1 p))))))) p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow q 2) (- (* 6 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow q 2) (- (* (pow q 2) (+ (* -20 (/ (pow q 2) (pow p 7))) (* 6 (/ 1 (pow p 5))))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (* q q) #s(hole binary64 (pow q 2)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p)))) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow p 3))) (* 2 (/ 1 p)))))) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (* 2 (/ 1 p)))))) p)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ p (* 2 (/ (pow q 2) p)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 3))) (* 2 (/ 1 p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (* 2 (/ 1 p)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) p))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (+ (fabs p) (fabs r)) p)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) r))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (+ (* -1 (/ (pow q 2) r)) (* 1/2 (- (+ (fabs p) (fabs r)) r)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (* (pow q 2) (- (/ (pow q 2) (pow r 3)) (/ 1 r))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) r)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) r)))) r)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 3))) (* 2 (/ 1 r)))))) r)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow r 5))) (* 2 (/ 1 (pow r 3))))) (* 2 (/ 1 r)))))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (+ r (* 2 (/ (pow q 2) r)))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (+ r (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow r 3))) (* 2 (/ 1 r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (+ r (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow r 5))) (* 2 (/ 1 (pow r 3))))) (* 2 (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r))))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (/ -1 (- p r))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (/ (pow q 2) (pow (- p r) 3))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3))))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (/ 1 (pow (- p r) 3))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))))
#s(approx (/ (* q q) (pow (- p r) 5)) #s(hole binary64 (/ (pow q 2) (pow (- p r) 5))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ -1 (- p r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))
#s(approx (/ (* q q) (pow (- p r) 3)) #s(hole binary64 (/ (pow q 2) (pow (- p r) 3))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (neg (* q q)) #s(hole binary64 (* -1 (pow q 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (+ (* -2 (/ (pow q 2) p)) (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (+ (* -2 (/ (pow q 2) r)) (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- p r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* 2 (/ (pow q 2) (- p r)))) r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (* -2 q) #s(hole binary64 (* -2 q)))
#s(approx (* q 2) #s(hole binary64 (* 2 q)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* -1/2 (* (pow q 2) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (+ (* 2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (pow (- p r) 3) (- (+ p (+ (fabs p) (fabs r))) r)))) (* 4 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 5) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))) (* -1/2 (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* -1 (* (pow q 2) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* (pow q 2) (- (* -1 (* (pow q 2) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* (pow q 2) (- (* (pow q 2) (- (* -1 (* (pow q 2) (+ (* -2 (/ (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (+ (* 2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (pow (- p r) 3) (- (+ p (+ (fabs p) (fabs r))) r)))) (* 4 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 5) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* -4 (pow q 2)) (pow (+ (fabs p) (fabs r)) 2)) (pow (- p r) 2))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (pow (- p r) 2)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (+ (* 4 (pow q 2)) (pow (- p r) 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow (- p r) 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow (- p r) 2))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (fabs r))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) (- p r)))))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- p r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* 2 (/ (pow q 2) (- p r)))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2)))) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (+ (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 4))) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2))))) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -2 q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 4))) (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q)))) (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q)))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow p 2) (pow q 2))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow p 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow p 4) (pow q 4))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow p 2) (pow q 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (+ (* 1/512 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 q)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow p 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow p 2) (pow q 2))) (+ (* 1/128 (/ (pow p 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1 q)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow r 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow r 2) (pow q 2))) (+ (* 1/128 (/ (pow r 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow r 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow r 4) (pow q 4))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow r 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow r 2) (pow q 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow r 4) (pow q 4))) (* 1/4 (/ (pow r 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow r 4) (pow q 4))) (+ (* 1/512 (/ (pow r 6) (pow q 6))) (* 1/4 (/ (pow r 2) (pow q 2)))))))))
#s(approx (+ (* (* q q) 4) (* r r)) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow r 2) (pow q 2))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -2 (/ (pow q 6) (pow (- p r) 5)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (/ 1 (* (pow q 2) (pow (- p r) 3)))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r))))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -2 (/ (pow q 6) (pow (- p r) 5)))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (/ 1 (* (pow q 4) (- p r))) (* 2 (/ 1 (pow (- p r) 5))))))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* -2 (/ (pow q 4) (pow (- p r) 5)))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* (pow q 4) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) #s(hole binary64 (* (pow q 4) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r))))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* -2 (/ (pow q 4) (pow (- p r) 5)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) #s(hole binary64 (* (pow q 4) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* -2 (/ (pow q 2) (pow (- p r) 5)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) #s(hole binary64 (* (pow q 2) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (/ (pow q 4) (pow (- p r) 3))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 4) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 4) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 4))) (/ 1 (pow (- p r) 3))) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (pow q 4) (pow (- p r) 3))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 4) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (pow q 2) (pow (- p r) 3))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* (pow q 2) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* (pow q 2) (- (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 2))) (/ 1 (- p r))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* (pow q 2) (- (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))) (pow q 2)) (* 2 (/ 1 p))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* p (pow q 2))) (/ (fabs r) (* p (pow q 2)))) (+ (* -1 (/ r (* p (pow q 2)))) (+ (* 2 (/ 1 (pow p 2))) (/ 1 (pow q 2))))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* (pow q 2) (- (/ (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))) (pow q 2)) (* 2 (/ 1 r))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* (pow q 2) r)) (/ (fabs r) (* (pow q 2) r))) (+ (* -1 (/ p (* (pow q 2) r))) (+ (* 2 (/ 1 (pow r 2))) (/ 1 (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2)))) 1))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* -1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) (pow q 3))) (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2))))) 1))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -2 q)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (pow q 2))) (+ 2 (+ (* -1 (/ (+ (fabs p) (fabs r)) q)) (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (+ (* -1 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) (pow q 3))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (pow q 2)))) (+ 2 (+ (* -1 (/ (+ (fabs p) (fabs r)) q)) (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -4 (pow q 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow q 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2)) (+ 4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow (- p r) 2) (pow q 2))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow (- p r) 2) (pow q 2))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* 2 q)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (/ (fabs p) q) (/ (fabs r) q))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (* 1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 q))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (* p r)) (* 1/4 (pow p 2)))) (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* 2 q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)))) q)) 2)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) (+ (* -1/64 (/ (pow p 4) (pow q 2))) (* 1/4 (pow p 2)))) q)))) q)) 2)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ -1/2 q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 1/4 (/ (pow p 2) q)))) q)) 2)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow p 4) (pow q 2))) (* 1/4 (pow p 2))) q)))) q)) 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (+ (* 1/512 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2))))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 q))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow p 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow p 2)) (* 1/128 (/ (pow p 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 q))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow r 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow r 2)) (* 1/128 (/ (pow r 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 1/4 (/ (pow r 2) q)))) q)) 2)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow r 4) (pow q 2))) (* 1/4 (pow r 2))) q)))) q)) 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow r 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow r 4) (pow q 4))) (* 1/4 (/ (pow r 2) (pow q 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow r 4) (pow q 4))) (+ (* 1/512 (/ (pow r 6) (pow q 6))) (* 1/4 (/ (pow r 2) (pow q 2))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 1/4 (/ (pow (- p r) 2) q)))) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)) 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))) (* 1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) q))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* 2 q)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (- (* -1 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* -1 (+ (fabs p) (fabs r)))) q)) 2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (- (* -1 (/ (- (+ (* 1/8 (/ (* (+ (fabs p) (fabs r)) (pow (- p r) 2)) q)) (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (* 1/2 (/ (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))) q)))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* -1 (+ (fabs p) (fabs r)))) q)) 2)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -2 q)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (fabs r)) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1/4 (/ (pow (- p r) 2) q)))) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* -1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))))
Outputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
q
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
(neg.f64 q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
(*.f64 #s(literal -1/2 binary64) p)
#s(literal -1/2 binary64)
p
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
(*.f64 #s(literal -1/2 binary64) r)
r
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
(*.f64 #s(literal 1/2 binary64) p)
#s(literal 1/2 binary64)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
(*.f64 #s(literal 1/2 binary64) r)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
(*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))))
(fma.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
(+.f64 (*.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 r p)) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
(pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64))
(exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64)))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))
(+.f64 (*.f64 (*.f64 q q) #s(literal 4 binary64)) (*.f64 p p))
(*.f64 (fabs.f64 q) (fabs.f64 q))
(*.f64 (neg.f64 q) (neg.f64 q))
(*.f64 q q)
(pow.f64 q #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 q) #s(literal 2 binary64)))
#s(literal 4 binary64)
(*.f64 (neg.f64 p) (neg.f64 p))
(*.f64 (fabs.f64 p) (fabs.f64 p))
(*.f64 p p)
(pow.f64 p #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 p) #s(literal 2 binary64)))
(*.f64 r p)
(-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))
(+.f64 (fabs.f64 r) (fabs.f64 p))
(sqrt.f64 (*.f64 r r))
(fabs.f64 (neg.f64 r))
(fabs.f64 r)
(sqrt.f64 (*.f64 p p))
(fabs.f64 (neg.f64 p))
(fabs.f64 p)
(pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(*.f64 (neg.f64 p) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(neg.f64 p)
(-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64))
(/.f64 (neg.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r))) (neg.f64 p))
(/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p)
(+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (-.f64 (fabs.f64 r) r) p))
(+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r))
(-.f64 (fabs.f64 r) r)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) #s(literal 1/2 binary64))
(-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r))))
(pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r))
(+.f64 (*.f64 (*.f64 q q) #s(literal 4 binary64)) (*.f64 r r))
(*.f64 (neg.f64 r) (neg.f64 r))
(*.f64 (fabs.f64 r) (fabs.f64 r))
(*.f64 r r)
(pow.f64 r #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 r) #s(literal 2 binary64)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64))
(-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p)
(+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r))
(+.f64 r (fabs.f64 p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q)))
(+.f64 (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)) (*.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q)))
(*.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))
(-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))
(*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q))
(fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))
(+.f64 (*.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))
(/.f64 (neg.f64 (*.f64 q q)) (neg.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64))))
(/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))
(pow.f64 (-.f64 p r) #s(literal 5 binary64))
(exp.f64 (*.f64 (log.f64 (-.f64 p r)) #s(literal 5 binary64)))
(-.f64 p r)
#s(literal 5 binary64)
#s(literal -2 binary64)
(pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64))
(pow.f64 (-.f64 p r) #s(literal -3 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 p r) #s(literal 3 binary64)))
(exp.f64 (*.f64 (log.f64 (-.f64 p r)) #s(literal -3 binary64)))
#s(literal -3 binary64)
(pow.f64 (-.f64 p r) #s(literal -1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (-.f64 p r)))
(/.f64 #s(literal 1 binary64) (-.f64 p r))
(exp.f64 (*.f64 (log.f64 (-.f64 p r)) #s(literal -1 binary64)))
#s(literal -1 binary64)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q)))
(+.f64 (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)) (*.f64 (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q)))
(*.f64 (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))
(/.f64 (-.f64 (*.f64 (*.f64 q q) (-.f64 p r)) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal 1 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (-.f64 p r)))
(-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))
(/.f64 (neg.f64 (*.f64 q q)) (neg.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
(/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64)))
(*.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (-.f64 p r))
(*.f64 (-.f64 p r) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
(pow.f64 (-.f64 p r) #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 (-.f64 p r)) #s(literal 3 binary64)))
#s(literal 3 binary64)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r)))
(+.f64 (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r)))
(/.f64 (neg.f64 (neg.f64 (*.f64 q q))) (neg.f64 (-.f64 p r)))
(/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))
(neg.f64 (*.f64 q q))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
#s(literal 1/2 binary64)
#s(literal 1 binary64)
#s(literal 2 binary64)
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p))
(*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)
(-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))
(/.f64 (neg.f64 (+.f64 (fabs.f64 r) (fabs.f64 p))) (neg.f64 p))
(/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p)
(+.f64 (/.f64 (fabs.f64 r) p) (/.f64 (fabs.f64 p) p))
(fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))
(+.f64 (*.f64 (/.f64 r p) #s(literal -1 binary64)) #s(literal 1 binary64))
(/.f64 (neg.f64 r) (neg.f64 p))
(/.f64 r p)
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (*.f64 (/.f64 q p) (/.f64 q p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (*.f64 (/.f64 q p) (/.f64 q p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))) p))
(*.f64 (fma.f64 (*.f64 (/.f64 q p) (/.f64 q p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))) p)
(fma.f64 (*.f64 (/.f64 q p) (/.f64 q p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))))
(+.f64 (*.f64 (*.f64 (/.f64 q p) (/.f64 q p)) #s(literal -2 binary64)) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))))
(*.f64 (/.f64 q p) (/.f64 q p))
(/.f64 (neg.f64 (*.f64 q q)) (neg.f64 (*.f64 p p)))
(/.f64 (*.f64 q q) (*.f64 p p))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (*.f64 (/.f64 q r) (/.f64 q r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))) r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (*.f64 (/.f64 q r) (/.f64 q r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))) r))
(*.f64 (fma.f64 (*.f64 (/.f64 q r) (/.f64 q r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))) r)
(fma.f64 (*.f64 (/.f64 q r) (/.f64 q r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64))))
(+.f64 (*.f64 (*.f64 (/.f64 q r) (/.f64 q r)) #s(literal -2 binary64)) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64))))
(*.f64 (/.f64 q r) (/.f64 q r))
(/.f64 (neg.f64 (*.f64 q q)) (neg.f64 (*.f64 r r)))
(/.f64 (*.f64 q q) (*.f64 r r))
(-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))
(/.f64 (neg.f64 (+.f64 (fabs.f64 r) (fabs.f64 p))) (neg.f64 r))
(/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r)
(+.f64 (/.f64 (fabs.f64 r) r) (/.f64 (fabs.f64 p) r))
(fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64))
(+.f64 (*.f64 (/.f64 p r) #s(literal -1 binary64)) #s(literal 1 binary64))
(/.f64 (neg.f64 p) (neg.f64 r))
(/.f64 p r)
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r))
(+.f64 (fabs.f64 p) (fabs.f64 r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))
(neg.f64 r)
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))
(*.f64 #s(literal -2 binary64) q)
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))
(*.f64 q #s(literal 2 binary64))
(*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64)) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64)) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))) (neg.f64 (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64)) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))))
(-.f64 (/.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64)) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))) (/.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
(-.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64)) (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
(*.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (+.f64 (fabs.f64 r) (fabs.f64 p)))
(pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (+.f64 (fabs.f64 r) (fabs.f64 p))) #s(literal 2 binary64)))
(pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1 binary64))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.f64 q q) #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
(pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1 binary64))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.f64 q q) #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
(*.f64 (-.f64 p r) (-.f64 p r))
(pow.f64 (-.f64 p r) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (-.f64 p r)) #s(literal 2 binary64)))
(+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))
(pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64)))))))))))
#s(approx (* -1/2 p) (*.f64 #s(literal -1/2 binary64) p))
#s(approx p p)
#s(approx (* 1/2 p) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal 1/4 binary64) (/.f64 r q) (*.f64 p (-.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (*.f64 p r) (pow.f64 q #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64)))))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p r) q)))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (/.f64 p q) (*.f64 #s(literal 1/2 binary64) (/.f64 r q)))))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (/.f64 r q) (*.f64 p (-.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p r) (pow.f64 q #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64))))))))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p p) (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -1 binary64)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (fma.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal 3/256 binary64) (/.f64 (*.f64 p p) (pow.f64 q #s(literal 5 binary64)))) (*.f64 #s(literal 1/16 binary64) (pow.f64 q #s(literal -3 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -1 binary64)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (fma.f64 (*.f64 p p) (-.f64 (*.f64 (*.f64 p p) (fma.f64 #s(literal -5/2048 binary64) (/.f64 (*.f64 p p) (pow.f64 q #s(literal 7 binary64))) (*.f64 #s(literal 3/256 binary64) (pow.f64 q #s(literal -5 binary64))))) (*.f64 #s(literal 1/16 binary64) (pow.f64 q #s(literal -3 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -1 binary64)))))
#s(approx (+ (* (* q q) 4) (* p p)) (*.f64 #s(literal 4 binary64) (*.f64 q q)))
#s(approx (+ (* (* q q) 4) (* p p)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))
#s(approx (* p p) (*.f64 p p))
#s(approx (* r p) (*.f64 p r))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 p p) q)))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (*.f64 p p) (pow.f64 q #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64))))))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 p p) (-.f64 (*.f64 (*.f64 p p) (fma.f64 #s(literal -1/512 binary64) (/.f64 (*.f64 p p) (pow.f64 q #s(literal 5 binary64))) (*.f64 #s(literal 1/64 binary64) (pow.f64 q #s(literal -3 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64))))))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (fabs r) (fabs p)) (+.f64 (fabs.f64 p) (fabs.f64 r)))
#s(approx (fabs p) (fabs.f64 p))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal 2 binary64) q))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p p) q) (*.f64 #s(literal 2 binary64) q)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (fma.f64 #s(literal 2 binary64) q (*.f64 (*.f64 p p) (fma.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 p p) (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (fma.f64 #s(literal 2 binary64) q (*.f64 (*.f64 p p) (fma.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal 1/512 binary64) (/.f64 (*.f64 p p) (pow.f64 q #s(literal 5 binary64)))) (*.f64 #s(literal 1/64 binary64) (pow.f64 q #s(literal -3 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (fma.f64 #s(literal 1/2 binary64) p (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))))
#s(approx (neg p) (*.f64 #s(literal -1 binary64) p))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (/.f64 (fma.f64 #s(literal -1/2 binary64) p (*.f64 #s(literal -1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))) p))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p))
#s(approx (+ (fabs p) (- (fabs r) r)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 p p) q) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal 1/128 binary64) (/.f64 (*.f64 p p) (pow.f64 q #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 (*.f64 p p) (-.f64 (*.f64 (*.f64 p p) (fma.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 p p) (pow.f64 q #s(literal 5 binary64))) (*.f64 #s(literal 1/128 binary64) (pow.f64 q #s(literal -3 binary64))))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (fma.f64 #s(literal -1/2 binary64) p (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))
#s(approx (+ (+ r (fabs p)) (fabs r)) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))
#s(approx (+ r (fabs p)) (+.f64 r (fabs.f64 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))) (pow.f64 r #s(literal -2 binary64)))) #s(literal 1/2 binary64)) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (fma.f64 p (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64))))) (pow.f64 r #s(literal -3 binary64)))) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))) (pow.f64 r #s(literal -2 binary64))))) #s(literal 1/2 binary64)) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (fma.f64 p (fma.f64 p (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64))))) (pow.f64 r #s(literal 5 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r)))))) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))))) (pow.f64 r #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r)))) (pow.f64 r #s(literal 10 binary64)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64)))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (pow.f64 r #s(literal 7 binary64))) (pow.f64 r #s(literal -6 binary64))))) (pow.f64 r #s(literal -4 binary64)))) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64))))) (pow.f64 r #s(literal -3 binary64))))) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))) (pow.f64 r #s(literal -2 binary64))))) #s(literal 1/2 binary64)) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (fma.f64 p (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))) (pow.f64 r #s(literal -2 binary64)))) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (fma.f64 p (fma.f64 p (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64))))) (pow.f64 r #s(literal -3 binary64)))) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))) (pow.f64 r #s(literal -2 binary64))))) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (fma.f64 p (fma.f64 p (fma.f64 p (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64))))) (pow.f64 r #s(literal 5 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r)))))) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))))) (pow.f64 r #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r)))) (pow.f64 r #s(literal 10 binary64)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64)))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (pow.f64 r #s(literal 7 binary64))) (pow.f64 r #s(literal -6 binary64))))) (pow.f64 r #s(literal -4 binary64)))) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64))))) (pow.f64 r #s(literal -3 binary64))))) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))) (pow.f64 r #s(literal -2 binary64))))) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (fma.f64 p (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))) (pow.f64 r #s(literal -2 binary64))) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (fma.f64 p (fma.f64 p (fma.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64))))) (pow.f64 r #s(literal -3 binary64))) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))) (pow.f64 r #s(literal -2 binary64)))) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (fma.f64 p (fma.f64 p (fma.f64 p (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64))))) (pow.f64 r #s(literal 5 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r)))))) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))))) (pow.f64 r #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r)))) (pow.f64 r #s(literal 10 binary64)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64)))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (pow.f64 r #s(literal 7 binary64))) (pow.f64 r #s(literal -6 binary64))))) (pow.f64 r #s(literal -4 binary64))) (fma.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64))))) (pow.f64 r #s(literal -3 binary64)))) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))) (pow.f64 r #s(literal -2 binary64)))) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (fma.f64 p (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (fma.f64 p (fma.f64 p (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64))))) (pow.f64 r #s(literal 5 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r)))))) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))))) (pow.f64 r #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r)))) (pow.f64 r #s(literal 10 binary64)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64)))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (pow.f64 r #s(literal 7 binary64))) (pow.f64 r #s(literal -6 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64))))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64))) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))))) (pow.f64 r #s(literal -3 binary64))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64))) (*.f64 p (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64))) (*.f64 p (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64))))))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))))) (pow.f64 r #s(literal -3 binary64))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64))) (*.f64 p (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64))) (*.f64 p (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64)))) (fma.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64))))) (pow.f64 r #s(literal 5 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r)))))) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))))) (pow.f64 r #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r)))) (pow.f64 r #s(literal 10 binary64)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64)))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (pow.f64 r #s(literal 7 binary64))) (pow.f64 r #s(literal -6 binary64)))))))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64))))))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))))) (pow.f64 r #s(literal -3 binary64))))
#s(approx (/ (* q q) (pow (- p r) 5)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 5)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))))) (pow.f64 r #s(literal 10 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64))))))
#s(approx (/ (* q q) (pow (- p r) 5)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64))) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64)))))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))))))
#s(approx (/ (* q q) (pow (- p r) 5)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64))) (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64))))) (pow.f64 r #s(literal 5 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r)))))) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))))) (pow.f64 r #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r)))) (pow.f64 r #s(literal 10 binary64))))))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64)))))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))))))
#s(approx (pow (- p r) 5) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 5 binary64))))
#s(approx (pow (- p r) 5) (fma.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 5 binary64)) (*.f64 p (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))))))
#s(approx (pow (- p r) 5) (fma.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 5 binary64)) (*.f64 p (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (fma.f64 p (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r)))))) (pow.f64 r #s(literal 4 binary64)))))))
#s(approx (pow (- p r) 5) (fma.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 5 binary64)) (*.f64 p (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (fma.f64 p (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r)))) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r)))))) (pow.f64 r #s(literal 4 binary64)))))))
#s(approx (- p r) (*.f64 #s(literal -1 binary64) r))
#s(approx (- p r) (-.f64 p r))
#s(approx (pow (- p r) -3) (/.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64))))
#s(approx (pow (- p r) -3) (-.f64 (*.f64 #s(literal -3 binary64) (/.f64 p (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal -3 binary64))))
#s(approx (pow (- p r) -3) (-.f64 (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64)))))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64))))) (pow.f64 r #s(literal -3 binary64))))
#s(approx (pow (- p r) -3) (-.f64 (*.f64 p (-.f64 (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64)))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (pow.f64 r #s(literal 7 binary64))) (pow.f64 r #s(literal -6 binary64))))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64)))))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64))))) (pow.f64 r #s(literal -3 binary64))))
#s(approx (pow (- p r) -1) (/.f64 #s(literal -1 binary64) r))
#s(approx (pow (- p r) -1) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (*.f64 r r))) (pow.f64 r #s(literal -1 binary64))))
#s(approx (pow (- p r) -1) (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (pow.f64 r #s(literal 3 binary64)))) (pow.f64 r #s(literal -2 binary64)))) (pow.f64 r #s(literal -1 binary64))))
#s(approx (pow (- p r) -1) (-.f64 (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal -3 binary64)))) (pow.f64 r #s(literal -2 binary64)))) (pow.f64 r #s(literal -1 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64))))) #s(literal 1/2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -3 binary64)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))))) #s(literal 1/2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (fma.f64 p (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -4 binary64)) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (pow.f64 r #s(literal 9 binary64))) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 6 binary64))))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -3 binary64)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64))))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))))) #s(literal 1/2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64))))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 p (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -3 binary64)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 p (fma.f64 p (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -4 binary64)) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (pow.f64 r #s(literal 9 binary64))) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 6 binary64))))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -3 binary64)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64))))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (fma.f64 p (-.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (fma.f64 p (-.f64 (fma.f64 p (-.f64 (pow.f64 r #s(literal -3 binary64)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 r #s(literal -2 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (fma.f64 p (-.f64 (fma.f64 p (-.f64 (fma.f64 p (-.f64 (pow.f64 r #s(literal -4 binary64)) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (pow.f64 r #s(literal 9 binary64))) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 6 binary64)))))) (pow.f64 r #s(literal -3 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 r #s(literal -2 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 3)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 3)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (pow.f64 r #s(literal 6 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))))))
#s(approx (/ (* q q) (pow (- p r) 3)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64)))))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))))))
#s(approx (/ (* q q) (pow (- p r) 3)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (pow.f64 r #s(literal 9 binary64))) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 6 binary64))))))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64)))))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))))))
#s(approx (pow (- p r) 3) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64))))
#s(approx (pow (- p r) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))))
#s(approx (pow (- p r) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 r r) (fma.f64 p (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (*.f64 r r))))))
#s(approx (pow (- p r) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 r r) (fma.f64 p (+.f64 p (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (*.f64 r r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (/.f64 (*.f64 q q) r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (*.f64 (/.f64 q r) (/.f64 q r)) #s(literal 1/2 binary64)) (/.f64 (*.f64 q q) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 (/.f64 q r) (/.f64 q r))) #s(literal 1/2 binary64)) (/.f64 (*.f64 q q) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (fma.f64 p (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 4 binary64))) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64)))) (*.f64 (/.f64 q r) (/.f64 q r))) #s(literal 1/2 binary64)) (/.f64 (*.f64 q q) r))))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (*.f64 q q) r))
#s(approx (/ (neg (* q q)) (- p r)) (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (*.f64 r r)) (/.f64 (*.f64 q q) r)))
#s(approx (/ (neg (* q q)) (- p r)) (fma.f64 p (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 (/.f64 q r) (/.f64 q r))) (/.f64 (*.f64 q q) r)))
#s(approx (/ (neg (* q q)) (- p r)) (fma.f64 p (fma.f64 p (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 4 binary64))) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64)))) (*.f64 (/.f64 q r) (/.f64 q r))) (/.f64 (*.f64 q q) r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (*.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)) p))
#s(approx (/ (+ (fabs r) (fabs p)) p) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
#s(approx (+ (* (/ r p) -1) 1) (*.f64 #s(literal -1 binary64) (/.f64 r p)))
#s(approx (+ (* (/ r p) -1) 1) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) r)) p))
#s(approx (/ r p) (/.f64 r p))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)))) p))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)))) (*.f64 p p)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) (*.f64 p p)))
#s(approx (/ (* q q) (* p p)) (*.f64 (/.f64 q p) (/.f64 q p)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+.f64 p (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)) #s(literal 1 binary64)))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) #s(literal 1 binary64)))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) (-.f64 (/.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 1 binary64)))
#s(approx (/ (+ (fabs r) (fabs p)) r) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))
#s(approx (+ (* (/ p r) -1) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ p r) -1) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))
#s(approx (/ p r) (/.f64 p r))
#s(approx (+ (fabs p) (fabs r)) (+.f64 (fabs.f64 p) (fabs.f64 r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64)))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (*.f64 p (fma.f64 #s(literal -1/2 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 p (fma.f64 #s(literal -1/2 binary64) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 r (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 (/.f64 (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal -1 binary64))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal -1 binary64)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 (*.f64 r r) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 (*.f64 r r) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 p (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 r (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 (/.f64 (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal -1 binary64))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal -1 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 (*.f64 r r) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p r) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (fma.f64 p (-.f64 (*.f64 #s(literal -1 binary64) p) (*.f64 #s(literal -2 binary64) r)) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))
#s(approx (pow (+ (fabs r) (fabs p)) 2) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (fma.f64 #s(literal -2 binary64) (*.f64 p r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 p (+.f64 p (*.f64 #s(literal -2 binary64) r)) (*.f64 r r))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (fma.f64 #s(literal -2 binary64) (*.f64 p r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 p (+.f64 p (*.f64 #s(literal -2 binary64) r)) (*.f64 r r))))
#s(approx (pow (- p r) 2) (*.f64 r r))
#s(approx (pow (- p r) 2) (fma.f64 #s(literal -2 binary64) (*.f64 p r) (*.f64 r r)))
#s(approx (pow (- p r) 2) (fma.f64 p (+.f64 p (*.f64 #s(literal -2 binary64) r)) (*.f64 r r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64)))))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))) #s(literal 1/2 binary64))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 p (-.f64 (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) #s(literal 1 binary64))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1 binary64))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (pow.f64 p #s(literal -1 binary64)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64)))))) p))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal 64 binary64) (pow.f64 q #s(literal 6 binary64)))) (pow.f64 p #s(literal 6 binary64))))))) p))
#s(approx (+ (* (* q q) 4) (* p p)) (*.f64 p p))
#s(approx (+ (* (* q q) 4) (* p p)) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 q p) (/.f64 q p))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -1 binary64) p))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) #s(literal 1 binary64))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) p)
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q p) (/.f64 q p))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 p #s(literal 6 binary64)))))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)) #s(literal 1/2 binary64)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) #s(literal 1/2 binary64))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))))) #s(literal 1/2 binary64))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1/2 binary64))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (*.f64 #s(literal -1 binary64) p))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (*.f64 p (-.f64 (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) #s(literal 1 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))) #s(literal 1/2 binary64))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p)))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal -1 binary64) (*.f64 q q) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 r r) (*.f64 q q))) (*.f64 p p)))) p))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal -1 binary64) (*.f64 q q) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64))))) (pow.f64 p #s(literal 3 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 r r) (*.f64 q q))) (*.f64 p p))))) p))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r p)) #s(literal 1 binary64)) p))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p)) (*.f64 (/.f64 q p) (/.f64 q p)))) #s(literal 1 binary64)) p))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p)) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 r p) #s(literal 3 binary64)) (*.f64 (/.f64 q p) (/.f64 q p)))))) #s(literal 1 binary64)) p))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) p) (*.f64 q q)) (pow.f64 p #s(literal 3 binary64))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) p) (+.f64 (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 q q)) (fma.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))))) (*.f64 p p)) (*.f64 q q))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) p) (+.f64 (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 q q)) (fma.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))))) (*.f64 p p)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r)))) (fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64))))))) (pow.f64 p #s(literal 3 binary64))) (*.f64 q q)))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (pow.f64 p #s(literal -3 binary64)))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) p))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) #s(literal 2 binary64)) (*.f64 p p)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 r r) (*.f64 p p)) (/.f64 (*.f64 r r) (*.f64 p p))))))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 p #s(literal 3 binary64)))))) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 r p) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) #s(literal 2 binary64)) (*.f64 p p)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 r r) (*.f64 p p)) (/.f64 (*.f64 r r) (*.f64 p p)))))))))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (/ (* q q) (pow (- p r) 5)) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))))
#s(approx (/ (* q q) (pow (- p r) 5)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r))) p) (*.f64 q q)) (pow.f64 p #s(literal 5 binary64))))
#s(approx (/ (* q q) (pow (- p r) 5)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r))) #s(literal 2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r))))) (*.f64 p p)) (*.f64 q q)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r))) p)) (pow.f64 p #s(literal 5 binary64))))
#s(approx (/ (* q q) (pow (- p r) 5)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r))) #s(literal 2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r)))))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r))))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))))) (pow.f64 p #s(literal 3 binary64))) (*.f64 q q)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r))) #s(literal 2 binary64)) (*.f64 p p)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r))) p) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r)))) (*.f64 p p))))) (pow.f64 p #s(literal 5 binary64))))
#s(approx (pow (- p r) 5) (pow.f64 p #s(literal 5 binary64)))
#s(approx (pow (- p r) 5) (*.f64 (pow.f64 p #s(literal 5 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -4 binary64) (/.f64 r p) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (pow (- p r) 5) (*.f64 (pow.f64 p #s(literal 5 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -4 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 r r) (*.f64 p p)) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 r r) (*.f64 p p)))))))))
#s(approx (pow (- p r) 5) (*.f64 (pow.f64 p #s(literal 5 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -4 binary64) (/.f64 r p) (fma.f64 #s(literal -4 binary64) (pow.f64 (/.f64 r p) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r)))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 r r) (*.f64 p p)) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 r r) (*.f64 p p)))))))))))
#s(approx (- p r) p)
#s(approx (- p r) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (pow (- p r) -3) (pow.f64 p #s(literal -3 binary64)))
#s(approx (pow (- p r) -3) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) p))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (pow (- p r) -3) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (*.f64 p p)))) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (*.f64 #s(literal -1 binary64) (/.f64 r p)))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (pow (- p r) -3) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64))))) (pow.f64 p #s(literal 3 binary64))))) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) #s(literal 2 binary64)) (*.f64 p p)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 r r) (*.f64 p p)) (/.f64 (*.f64 r r) (*.f64 p p))))))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (pow (- p r) -1) (pow.f64 p #s(literal -1 binary64)))
#s(approx (pow (- p r) -1) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 r p)) p))
#s(approx (pow (- p r) -1) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (*.f64 p p))) (*.f64 #s(literal -1 binary64) (/.f64 r p))) p))
#s(approx (pow (- p r) -1) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 r p) #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p))))) p))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))) #s(literal 1/2 binary64))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal -1 binary64) (*.f64 q q) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 r r) (*.f64 q q))) (*.f64 p p)))) p))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal -1 binary64) (*.f64 q q) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 r r) (*.f64 q q))) (*.f64 p p)) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))))) (pow.f64 p #s(literal 3 binary64)))))) p))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r p)) #s(literal 1 binary64)) p))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p)) (*.f64 (/.f64 q p) (/.f64 q p)))) #s(literal 1 binary64)) p))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p)) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 r p) #s(literal 3 binary64)) (*.f64 (/.f64 q p) (/.f64 q p))))) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 p #s(literal 3 binary64))))) p))
#s(approx (/ (* q q) (pow (- p r) 3)) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))))
#s(approx (/ (* q q) (pow (- p r) 3)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) p) (*.f64 q q)) (pow.f64 p #s(literal 3 binary64))))
#s(approx (/ (* q q) (pow (- p r) 3)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) #s(literal 2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (*.f64 p p)) (*.f64 q q)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) p)) (pow.f64 p #s(literal 3 binary64))))
#s(approx (/ (* q q) (pow (- p r) 3)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) #s(literal 2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64)))))) (pow.f64 p #s(literal 3 binary64))) (*.f64 q q)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) #s(literal 2 binary64)) (*.f64 p p)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) p) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (*.f64 p p))))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (pow (- p r) 3) (pow.f64 p #s(literal 3 binary64)))
#s(approx (pow (- p r) 3) (*.f64 (pow.f64 p #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (pow (- p r) 3) (*.f64 (pow.f64 p #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 r r) (*.f64 p p)) (/.f64 (*.f64 r r) (*.f64 p p))))))))
#s(approx (pow (- p r) 3) (*.f64 (pow.f64 p #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 r p) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 r r) (*.f64 p p)) (/.f64 (*.f64 r r) (*.f64 p p)))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))) #s(literal 1/2 binary64))))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p)))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 p p)) (*.f64 #s(literal -1 binary64) (*.f64 q q)))) p))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 p p)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (*.f64 q q))))) p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q p) (/.f64 q p))))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (*.f64 #s(literal -1 binary64) p))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(literal -1 binary64))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (+ (* (/ r p) -1) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ r p) -1) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 #s(literal -1 binary64) p))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(literal -1 binary64))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) p)
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 p (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64))) p))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (/.f64 p r))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (*.f64 p (*.f64 r r))) (+.f64 (pow.f64 r #s(literal -1 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p r)))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) (/.f64 p r))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) (*.f64 p (-.f64 (+.f64 (pow.f64 r #s(literal -1 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p r))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (+ (* (/ p r) -1) 1) (*.f64 #s(literal -1 binary64) (/.f64 p r)))
#s(approx (+ (* (/ p r) -1) 1) (*.f64 p (-.f64 (pow.f64 p #s(literal -1 binary64)) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) p)
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q p) (/.f64 q p))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (*.f64 r r))))) (*.f64 p p)))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 q q) r) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))))) (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (*.f64 r r)))))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (*.f64 r r))))) (*.f64 p p))))) #s(literal 1/2 binary64))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) p))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 r p) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 p p))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (*.f64 r r)) (*.f64 p p)))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 q q) r) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))))) (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (*.f64 r r)))))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 r p) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 p p)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (*.f64 r r)) (*.f64 p p)))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -1 binary64) (*.f64 p p)))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) #s(literal 1 binary64))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 p p) (-.f64 (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 p p)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (*.f64 r r) (*.f64 p p))))))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 p p))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 r p)))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (*.f64 r r) (*.f64 p p)))))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 p p))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 r p)))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (*.f64 r r) (*.f64 p p)))))))
#s(approx (pow (- p r) 2) (*.f64 p p))
#s(approx (pow (- p r) 2) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 r p)))))
#s(approx (pow (- p r) 2) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (/.f64 (*.f64 r r) (*.f64 p p))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) p)
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) p)
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q p) (/.f64 q p))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (/.f64 (*.f64 q q) p)) p)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))) p)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (/.f64 (*.f64 q q) p)) p)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) p)
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)) #s(literal 1 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) p))))) p)) #s(literal 1 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p)) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p))))) p)) #s(literal 1 binary64)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal -1 binary64) p))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64)))))) p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal 64 binary64) (pow.f64 q #s(literal 6 binary64)))) (pow.f64 p #s(literal 6 binary64))))))) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) p)
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) p)))) p)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (*.f64 p p))) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p)))) p)) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -1 binary64) p))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q p) (/.f64 q p))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 p #s(literal 6 binary64))))))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)) #s(literal 1/2 binary64)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)) (/.f64 (*.f64 q q) p)) p)) #s(literal 1/2 binary64)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 q q) (/.f64 (pow.f64 q #s(literal 4 binary64)) (*.f64 p p))) p) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) p)) #s(literal 1/2 binary64)))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p)))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) r) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r)))) p))) p) (*.f64 q q)) p)))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 2 binary64) r))) (pow.f64 r #s(literal 3 binary64)))) p) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))))) p))) p) (*.f64 q q)) p)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 r p)) p)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 2 binary64) r))) (pow.f64 r #s(literal 3 binary64))) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 2 binary64) r))) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))))) p) (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 2 binary64) r)))) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 4 binary64) r))) (fma.f64 #s(literal -1 binary64) (*.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (fma.f64 #s(literal -1 binary64) (*.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 3 binary64)))))) p) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))))) p) (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 2 binary64) r)))) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) p)) #s(literal 1 binary64)) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) p) (*.f64 #s(literal 2 binary64) r))) p)) #s(literal 1 binary64)) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 4 binary64) r))) (fma.f64 #s(literal -1 binary64) (*.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (fma.f64 #s(literal -1 binary64) (*.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 3 binary64))))) p) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))))) p) (*.f64 #s(literal 2 binary64) r))) p)) #s(literal 1 binary64)) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 5)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 4 binary64) r))) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (pow.f64 p #s(literal 5 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 5)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q (+.f64 r (*.f64 #s(literal 4 binary64) r))) #s(literal 2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r))))) p) (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 4 binary64) r)))) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (pow.f64 p #s(literal 5 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 5)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q (+.f64 r (*.f64 #s(literal 4 binary64) r))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (+.f64 r (*.f64 #s(literal 4 binary64) r)) (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q (+.f64 r (*.f64 #s(literal 4 binary64) r))) #s(literal 2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r)))))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (*.f64 (+.f64 r (*.f64 #s(literal 4 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r))))) (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r)))))))) p) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r)))))) p) (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 4 binary64) r)))) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (pow.f64 p #s(literal 5 binary64)))))
#s(approx (pow (- p r) 5) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 p #s(literal 5 binary64)) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 r p) (/.f64 r p)) #s(literal 1 binary64)))))
#s(approx (pow (- p r) 5) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 p #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (+.f64 r (*.f64 #s(literal 4 binary64) r)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 r r) p) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 r r) p)))) p)) #s(literal 1 binary64)))))
#s(approx (pow (- p r) 5) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 p #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (+.f64 r (*.f64 #s(literal 4 binary64) r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) p) (/.f64 (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r)))) p))) p))) p)) #s(literal 1 binary64)))))
#s(approx (- p r) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (/.f64 r p) #s(literal 1 binary64)))))
#s(approx (pow (- p r) -3) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) p)) #s(literal 1 binary64)) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (pow (- p r) -3) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) p) (/.f64 (pow.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) #s(literal 2 binary64)) p)) (*.f64 #s(literal -1 binary64) (+.f64 r (*.f64 #s(literal 2 binary64) r)))) p)) #s(literal 1 binary64)) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (pow (- p r) -3) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) #s(literal 2 binary64)))) p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) p) (/.f64 (*.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) p))) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) #s(literal 2 binary64)))) p)) (*.f64 #s(literal -1 binary64) (+.f64 r (*.f64 #s(literal 2 binary64) r)))) p)) #s(literal 1 binary64)) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (pow (- p r) -1) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r p)) #s(literal 1 binary64)) p)))
#s(approx (pow (- p r) -1) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (*.f64 r r) p) (*.f64 #s(literal -1 binary64) r)) p)) #s(literal 1 binary64)) p)))
#s(approx (pow (- p r) -1) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) p)) (*.f64 r r)) p)) (*.f64 #s(literal -1 binary64) r)) p)) #s(literal 1 binary64)) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) r) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r)))) p))) p) (*.f64 q q)) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 2 binary64) r))) (pow.f64 r #s(literal 3 binary64)))) p) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))))) p))) p) (*.f64 q q)) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 r p)) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 2 binary64) r))) (pow.f64 r #s(literal 3 binary64))) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)))
#s(approx (/ (* q q) (pow (- p r) 3)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 2 binary64) r))) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 3)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q (+.f64 r (*.f64 #s(literal 2 binary64) r))) #s(literal 2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) p) (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 2 binary64) r)))) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 3)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q (+.f64 r (*.f64 #s(literal 2 binary64) r))) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q (+.f64 r (*.f64 #s(literal 2 binary64) r))) #s(literal 2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (*.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))))) p) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))))) p) (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 2 binary64) r)))) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (pow (- p r) 3) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 r p) (/.f64 r p)) #s(literal 1 binary64)))))
#s(approx (pow (- p r) 3) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (+.f64 r (*.f64 #s(literal 2 binary64) r)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 r r) p) (/.f64 (*.f64 r r) p))) p)) #s(literal 1 binary64)))))
#s(approx (pow (- p r) 3) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (+.f64 r (*.f64 #s(literal 2 binary64) r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (/.f64 (pow.f64 r #s(literal 3 binary64)) p)) p))) p)) #s(literal 1 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p)))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) p)) (*.f64 (*.f64 q q) r)) p) (*.f64 q q)) p)))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) p) (*.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q r) #s(literal 2 binary64)))) p)) (*.f64 (*.f64 q q) r)) p) (*.f64 q q)) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) p)
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) p)))) r) p)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p)) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p)))) r) p)) #s(literal 1 binary64)))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) (/.f64 r p)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r))) r) p)) #s(literal 1 binary64)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) (/.f64 r p)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) p))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r))) r) p)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) p))) r) p)) #s(literal 1 binary64)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64))) p)) #s(literal 1 binary64)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64)) p)) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) #s(literal 1 binary64)) p)) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (+ (* (/ p r) -1) 1) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (pow.f64 r #s(literal -1 binary64)) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p))) p))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p))) p))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 r r))))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))))) p)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) r) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))))) (*.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 r r)))))))) p))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))))) p)) #s(literal 1/2 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) p)
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 r r))))) p))) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))))) p) (+.f64 (/.f64 (*.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 r r)))))) p) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 r r))))) p))) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p)) #s(literal 1 binary64)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) p)) (*.f64 #s(literal 2 binary64) r)) p)) #s(literal 1 binary64))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) p) (*.f64 #s(literal 2 binary64) r)) p)))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) p) (*.f64 #s(literal 2 binary64) r)) p)))))
#s(approx (pow (- p r) 2) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p) (*.f64 #s(literal 2 binary64) r)) p)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p))))) p))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p))))) p))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p))) p))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p))) p))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal 1/2 binary64) (*.f64 p (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 p (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64)))))))))))
#s(approx (* -1/2 r) (*.f64 #s(literal -1/2 binary64) r))
#s(approx r r)
#s(approx (* 1/2 r) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (fabs r) (fabs.f64 r))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (fma.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) r)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 #s(literal 1/2 binary64) (/.f64 r p))) #s(literal 1/2 binary64)))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 #s(literal 1/2 binary64) (/.f64 r p))))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))
#s(approx (+ (fabs p) (- (fabs r) r)) (+.f64 (fabs.f64 p) (fabs.f64 r)))
#s(approx (+ (fabs p) (- (fabs r) r)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))
#s(approx (- (fabs r) r) (fabs.f64 r))
#s(approx (- (fabs r) r) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 r r) q) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 (*.f64 r r) (-.f64 (*.f64 #s(literal 1/128 binary64) (/.f64 (*.f64 r r) (pow.f64 q #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 (*.f64 r r) (-.f64 (*.f64 (*.f64 r r) (fma.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 r r) (pow.f64 q #s(literal 5 binary64))) (*.f64 #s(literal 1/128 binary64) (pow.f64 q #s(literal -3 binary64))))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 r r) q)))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 r r) (-.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (*.f64 r r) (pow.f64 q #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64))))))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 r r) (-.f64 (*.f64 (*.f64 r r) (fma.f64 #s(literal -1/512 binary64) (/.f64 (*.f64 r r) (pow.f64 q #s(literal 5 binary64))) (*.f64 #s(literal 1/64 binary64) (pow.f64 q #s(literal -3 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64))))))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (*.f64 #s(literal 2 binary64) q))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 r r) q) (*.f64 #s(literal 2 binary64) q)))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (fma.f64 #s(literal 2 binary64) q (*.f64 (*.f64 r r) (fma.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 r r) (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (fma.f64 #s(literal 2 binary64) q (*.f64 (*.f64 r r) (fma.f64 (*.f64 r r) (-.f64 (*.f64 #s(literal 1/512 binary64) (/.f64 (*.f64 r r) (pow.f64 q #s(literal 5 binary64)))) (*.f64 #s(literal 1/64 binary64) (pow.f64 q #s(literal -3 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (+ (* (* q q) 4) (* r r)) (*.f64 #s(literal 4 binary64) (*.f64 q q)))
#s(approx (+ (* (* q q) 4) (* r r)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))
#s(approx (* r r) (*.f64 r r))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (fma.f64 #s(literal 1/2 binary64) r (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))
#s(approx (+ (+ r (fabs p)) (fabs r)) (+.f64 (fabs.f64 p) (fabs.f64 r)))
#s(approx (+ r (fabs p)) (fabs.f64 p))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64))))) (pow.f64 p #s(literal -2 binary64))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 q q) (*.f64 r (-.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))))))) (pow.f64 p #s(literal -3 binary64)))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64))))) (pow.f64 p #s(literal -2 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 r (fma.f64 (*.f64 q q) (*.f64 r (-.f64 (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (pow.f64 p #s(literal 5 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))))))) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (pow.f64 p #s(literal -6 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64))))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (pow.f64 p #s(literal 7 binary64))))))) (pow.f64 p #s(literal -4 binary64)))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))))))) (pow.f64 p #s(literal -3 binary64))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64))))) (pow.f64 p #s(literal -2 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (fma.f64 (*.f64 q q) (*.f64 r (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64))))) (pow.f64 p #s(literal -2 binary64)))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (fma.f64 r (fma.f64 (*.f64 q q) (*.f64 r (-.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))))))) (pow.f64 p #s(literal -3 binary64)))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64))))) (pow.f64 p #s(literal -2 binary64))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (fma.f64 r (fma.f64 r (fma.f64 (*.f64 q q) (*.f64 r (-.f64 (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (pow.f64 p #s(literal 5 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))))))) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (pow.f64 p #s(literal -6 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64))))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (pow.f64 p #s(literal 7 binary64))))))) (pow.f64 p #s(literal -4 binary64)))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))))))) (pow.f64 p #s(literal -3 binary64))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64))))) (pow.f64 p #s(literal -2 binary64))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (-.f64 (fma.f64 r (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64))))) (pow.f64 p #s(literal -2 binary64))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64))))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (-.f64 (fma.f64 r (-.f64 (fma.f64 r (-.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))))))) (pow.f64 p #s(literal -3 binary64))) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64)))))) (pow.f64 p #s(literal -2 binary64))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64))))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (-.f64 (fma.f64 r (-.f64 (fma.f64 r (-.f64 (fma.f64 r (-.f64 (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (pow.f64 p #s(literal 5 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))))))) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (pow.f64 p #s(literal -6 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64))))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (pow.f64 p #s(literal 7 binary64))))))) (pow.f64 p #s(literal -4 binary64))) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64)))))))) (pow.f64 p #s(literal -3 binary64))) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64)))))) (pow.f64 p #s(literal -2 binary64))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64))))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (fma.f64 (*.f64 q q) (*.f64 r (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64))))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (fma.f64 r (fma.f64 (*.f64 q q) (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))))))) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64)))))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (fma.f64 r (fma.f64 r (fma.f64 (*.f64 q q) (*.f64 r (-.f64 (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (pow.f64 p #s(literal 5 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))))))) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (pow.f64 p #s(literal -6 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64))))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (pow.f64 p #s(literal 7 binary64))))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64)))))))) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64)))))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64))))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (fma.f64 r (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64)))) (pow.f64 p #s(literal -3 binary64)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (fma.f64 r (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64)) (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))))))))) (pow.f64 p #s(literal -3 binary64)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (fma.f64 r (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64)) (*.f64 r (-.f64 (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64)))) (*.f64 r (-.f64 (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (pow.f64 p #s(literal 5 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))))))) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (pow.f64 p #s(literal -6 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64))))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (pow.f64 p #s(literal 7 binary64)))))))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))))))))) (pow.f64 p #s(literal -3 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 5)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 r (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))))) (pow.f64 p #s(literal 10 binary64))) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 5)) (fma.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64)))))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64)))) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 5)) (fma.f64 r (-.f64 (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (pow.f64 p #s(literal 5 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))))))) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64)))))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64)))) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64)))))
#s(approx (pow (- p r) 5) (fma.f64 r (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 5 binary64))))
#s(approx (pow (- p r) 5) (fma.f64 r (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 r (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))))) (pow.f64 p #s(literal 5 binary64))))
#s(approx (pow (- p r) 5) (fma.f64 r (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 r (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (fma.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))) (*.f64 r (fma.f64 #s(literal -4 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))))))))))) (pow.f64 p #s(literal 5 binary64))))
#s(approx (- p r) (+.f64 p (*.f64 #s(literal -1 binary64) r)))
#s(approx (pow (- p r) -3) (fma.f64 #s(literal 3 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (pow.f64 p #s(literal -3 binary64))))
#s(approx (pow (- p r) -3) (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64)))))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64)))) (pow.f64 p #s(literal -3 binary64))))
#s(approx (pow (- p r) -3) (fma.f64 r (fma.f64 r (-.f64 (*.f64 r (-.f64 (pow.f64 p #s(literal -6 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64))))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (pow.f64 p #s(literal 7 binary64))))))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64)))))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64)))) (pow.f64 p #s(literal -3 binary64))))
#s(approx (pow (- p r) -1) (+.f64 (pow.f64 p #s(literal -1 binary64)) (/.f64 r (*.f64 p p))))
#s(approx (pow (- p r) -1) (fma.f64 r (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 r (pow.f64 p #s(literal 3 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (pow (- p r) -1) (fma.f64 r (fma.f64 r (+.f64 (pow.f64 p #s(literal -3 binary64)) (/.f64 r (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal -2 binary64))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64))))))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 p #s(literal -3 binary64)) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64)))))))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64))))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))))) (pow.f64 p #s(literal 9 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 6 binary64))) (pow.f64 p #s(literal -4 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 p #s(literal -3 binary64)) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))))))))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (*.f64 r (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 p #s(literal -3 binary64)) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64))))))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64))))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))))) (pow.f64 p #s(literal 9 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 6 binary64))) (pow.f64 p #s(literal -4 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 p #s(literal -3 binary64)) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64)))))))))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 r (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64))))) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (-.f64 (fma.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 p #s(literal -3 binary64)) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))))) (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64))))) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (-.f64 (fma.f64 r (-.f64 (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))))) (pow.f64 p #s(literal 9 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 6 binary64))) (pow.f64 p #s(literal -4 binary64))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 p #s(literal -3 binary64)) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))))) (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64))))) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (/ (* q q) (pow (- p r) 3)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 r (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))))) (pow.f64 p #s(literal 6 binary64))) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 3)) (fma.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64)))))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64)))) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 3)) (fma.f64 r (-.f64 (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))))) (pow.f64 p #s(literal 9 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 6 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64)))))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64)))) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (pow (- p r) 3) (fma.f64 r (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (pow (- p r) 3) (fma.f64 r (fma.f64 #s(literal -2 binary64) (*.f64 p p) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (*.f64 r (+.f64 p (*.f64 #s(literal 2 binary64) p))))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (pow (- p r) 3) (fma.f64 r (fma.f64 #s(literal -2 binary64) (*.f64 p p) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (*.f64 r (+.f64 p (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal 2 binary64) p)))))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))))))))))))
#s(approx (/ (neg (* q q)) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p))))
#s(approx (/ (neg (* q q)) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))))))
#s(approx (/ (neg (* q q)) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 r (-.f64 (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))) (*.f64 #s(literal -1 binary64) (*.f64 p (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) #s(literal 1 binary64))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (+.f64 r (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) #s(literal 1 binary64)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) #s(literal 1 binary64)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (-.f64 (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) #s(literal 1 binary64)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+.f64 r (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1 binary64)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 r (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)))) r))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 r (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (*.f64 #s(literal -1 binary64) p)))) r))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 r (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)))) (*.f64 r r)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 r (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (*.f64 #s(literal -1 binary64) p)))) (*.f64 r r)))
#s(approx (/ (* q q) (* r r)) (*.f64 (/.f64 q r) (/.f64 q r)))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (*.f64 #s(literal -1 binary64) p)) r))
#s(approx (+ (* (/ p r) -1) 1) (/.f64 (+.f64 r (*.f64 #s(literal -1 binary64) p)) r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64)))))))))))
#s(approx (neg r) (*.f64 #s(literal -1 binary64) r))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (*.f64 r (fma.f64 #s(literal -1/2 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 r (fma.f64 #s(literal -1/2 binary64) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 p (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 (/.f64 (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal -1 binary64))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal -1 binary64)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 (*.f64 p p) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 (*.f64 p p) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 r (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 p (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 (/.f64 (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal -1 binary64))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal -1 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 (*.f64 p p) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p r) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (fma.f64 r (-.f64 (*.f64 #s(literal -1 binary64) r) (*.f64 #s(literal -2 binary64) p)) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (fma.f64 #s(literal -2 binary64) (*.f64 p r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 r (+.f64 r (*.f64 #s(literal -2 binary64) p)) (*.f64 p p))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (fma.f64 #s(literal -2 binary64) (*.f64 p r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 r (+.f64 r (*.f64 #s(literal -2 binary64) p)) (*.f64 p p))))
#s(approx (pow (- p r) 2) (fma.f64 #s(literal -2 binary64) (*.f64 p r) (*.f64 p p)))
#s(approx (pow (- p r) 2) (fma.f64 r (+.f64 r (*.f64 #s(literal -2 binary64) p)) (*.f64 p p)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64)))))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 p (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) r)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 r (-.f64 (fma.f64 p (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) (*.f64 (pow.f64 r #s(literal -1 binary64)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64))) r)) #s(literal 1/2 binary64))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 r (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p)))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) (*.f64 r (fma.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) (*.f64 #s(literal -1 binary64) (/.f64 r p)))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) (*.f64 r (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p r)) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (+ (fabs p) (- (fabs r) r)) (*.f64 #s(literal -1 binary64) r))
#s(approx (+ (fabs p) (- (fabs r) r)) (*.f64 r (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) #s(literal 1 binary64))))
#s(approx (- (fabs r) r) (*.f64 #s(literal -1 binary64) r))
#s(approx (- (fabs r) r) (*.f64 r (-.f64 (/.f64 (fabs.f64 r) r) #s(literal 1 binary64))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1/2 binary64))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))) #s(literal 1/2 binary64))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))))) #s(literal 1/2 binary64))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (*.f64 #s(literal -1 binary64) r))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (*.f64 r (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) #s(literal 1 binary64))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (*.f64 r (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) r)
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 r #s(literal 6 binary64)))))))))
#s(approx (+ (* (* q q) 4) (* r r)) (*.f64 r r))
#s(approx (+ (* (* q q) 4) (* r r)) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 q r) (/.f64 q r))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r)
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (*.f64 r (-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) (/.f64 p r))))
#s(approx (+ (+ r (fabs p)) (fabs r)) r)
#s(approx (+ (+ r (fabs p)) (fabs r)) (*.f64 r (+.f64 #s(literal 1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))))
#s(approx (+ r (fabs p)) r)
#s(approx (+ r (fabs p)) (*.f64 r (+.f64 #s(literal 1 binary64) (/.f64 (fabs.f64 p) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (*.f64 (/.f64 q r) (/.f64 q r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 (/.f64 q r) (/.f64 q r)))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (/.f64 (*.f64 q q) r))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 q q)) r))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r r)) (*.f64 q q))) r))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 3 binary64)))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r r)) (*.f64 q q)))) r))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (pow.f64 r #s(literal -1 binary64)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 p r)) r))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (+.f64 (/.f64 p r) (/.f64 (*.f64 p p) (*.f64 r r))))) r))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (+.f64 (/.f64 p r) (+.f64 (/.f64 (*.f64 p p) (*.f64 r r)) (pow.f64 (/.f64 p r) #s(literal 3 binary64))))))) r))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (pow.f64 r #s(literal 3 binary64))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r) (fma.f64 #s(literal -1 binary64) (*.f64 q q) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 q q)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)))))) (*.f64 r r)))) (pow.f64 r #s(literal 3 binary64))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r) (fma.f64 #s(literal -1 binary64) (*.f64 q q) (+.f64 (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 4 binary64) p)))) (fma.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)))) (pow.f64 p #s(literal 3 binary64)))))) (pow.f64 r #s(literal 3 binary64))) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 q q)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)))))) (*.f64 r r))))) (pow.f64 r #s(literal 3 binary64))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (/.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) r)) #s(literal 1 binary64)) (pow.f64 r #s(literal 3 binary64))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 p p) (*.f64 r r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p p) (*.f64 r r)) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (+.f64 (/.f64 p r) (/.f64 (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) (*.f64 r r)))))))) (pow.f64 r #s(literal 3 binary64))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 4 binary64) p))) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 p p) (*.f64 r r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p p) (*.f64 r r)) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (+.f64 (/.f64 p r) (+.f64 (/.f64 (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64))))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 p r) #s(literal 3 binary64)) (/.f64 (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) (*.f64 r r))))))))))) (pow.f64 r #s(literal 3 binary64))))
#s(approx (/ (* q q) (pow (- p r) 5)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 4 binary64) p))) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (pow.f64 r #s(literal 5 binary64))))
#s(approx (/ (* q q) (pow (- p r) 5)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))))) (pow.f64 (*.f64 q (+.f64 p (*.f64 #s(literal 4 binary64) p))) #s(literal 2 binary64))) (*.f64 r r)) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 4 binary64) p))) r)) (pow.f64 r #s(literal 5 binary64))))
#s(approx (/ (* q q) (pow (- p r) 5)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) (fma.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))))) (pow.f64 (*.f64 q (+.f64 p (*.f64 #s(literal 4 binary64) p))) #s(literal 2 binary64))) (fma.f64 (*.f64 q q) (*.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) (fma.f64 #s(literal -4 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))))) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 4 binary64) p))) r) (/.f64 (fma.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))))) (pow.f64 (*.f64 q (+.f64 p (*.f64 #s(literal 4 binary64) p))) #s(literal 2 binary64))) (*.f64 r r)))) (pow.f64 r #s(literal 5 binary64))))
#s(approx (pow (- p r) 5) (*.f64 (pow.f64 r #s(literal 5 binary64)) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 p r) (/.f64 p r)) #s(literal 1 binary64))))
#s(approx (pow (- p r) 5) (*.f64 (pow.f64 r #s(literal 5 binary64)) (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 p p) (*.f64 r r)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))) (*.f64 r r)) (fma.f64 #s(literal 4 binary64) (/.f64 p r) (/.f64 p r)))) #s(literal 1 binary64))))
#s(approx (pow (- p r) 5) (*.f64 (pow.f64 r #s(literal 5 binary64)) (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 p p) (*.f64 r r)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))) (*.f64 r r)) (fma.f64 #s(literal 4 binary64) (/.f64 p r) (fma.f64 #s(literal 4 binary64) (pow.f64 (/.f64 p r) #s(literal 3 binary64)) (+.f64 (/.f64 p r) (/.f64 (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))) (pow.f64 r #s(literal 3 binary64)))))))) #s(literal 1 binary64))))
#s(approx (- p r) (*.f64 r (-.f64 (/.f64 p r) #s(literal 1 binary64))))
#s(approx (pow (- p r) -3) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) r)) #s(literal 1 binary64)) (pow.f64 r #s(literal 3 binary64))))
#s(approx (pow (- p r) -3) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)))) (*.f64 r r))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (/.f64 p r)))) (pow.f64 r #s(literal 3 binary64))))
#s(approx (pow (- p r) -3) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)))) (pow.f64 p #s(literal 3 binary64)))) (pow.f64 r #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 p p) (*.f64 r r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p p) (*.f64 r r)) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (+.f64 (/.f64 p r) (/.f64 (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) (*.f64 r r)))))))) (pow.f64 r #s(literal 3 binary64))))
#s(approx (pow (- p r) -1) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p r)) #s(literal 1 binary64)) r))
#s(approx (pow (- p r) -1) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p p) (*.f64 r r))) (+.f64 #s(literal 1 binary64) (/.f64 p r))) r))
#s(approx (pow (- p r) -1) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 p r) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 p r) (/.f64 (*.f64 p p) (*.f64 r r))))) r))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (*.f64 (/.f64 q r) (/.f64 q r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 (/.f64 q r) (/.f64 q r)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (*.f64 q q) r))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 q q)) r))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r r)) (*.f64 q q))) r))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r r)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (-.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))))) (pow.f64 r #s(literal 3 binary64))) (*.f64 q q)))) r))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (pow.f64 r #s(literal -1 binary64)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 p r)) r))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (+.f64 (/.f64 p r) (/.f64 (*.f64 p p) (*.f64 r r))))) r))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (+.f64 (/.f64 p r) (+.f64 (/.f64 (*.f64 p p) (*.f64 r r)) (pow.f64 (/.f64 p r) #s(literal 3 binary64)))))) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 r #s(literal 3 binary64)))) r))
#s(approx (/ (* q q) (pow (- p r) 3)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (pow.f64 r #s(literal 3 binary64))))
#s(approx (/ (* q q) (pow (- p r) 3)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 (*.f64 q (+.f64 p (*.f64 #s(literal 2 binary64) p))) #s(literal 2 binary64))) (*.f64 r r)) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r)) (pow.f64 r #s(literal 3 binary64))))
#s(approx (/ (* q q) (pow (- p r) 3)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 (*.f64 q (+.f64 p (*.f64 #s(literal 2 binary64) p))) #s(literal 2 binary64))) (fma.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q) (*.f64 (*.f64 q q) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))))))) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r) (/.f64 (fma.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 (*.f64 q (+.f64 p (*.f64 #s(literal 2 binary64) p))) #s(literal 2 binary64))) (*.f64 r r)))) (pow.f64 r #s(literal 3 binary64))))
#s(approx (pow (- p r) 3) (*.f64 (pow.f64 r #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 p r) (/.f64 p r)) #s(literal 1 binary64))))
#s(approx (pow (- p r) 3) (*.f64 (pow.f64 r #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 p p) (*.f64 r r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p p) (*.f64 r r)) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (/.f64 p r)))) #s(literal 1 binary64))))
#s(approx (pow (- p r) 3) (*.f64 (pow.f64 r #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 p p) (*.f64 r r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p p) (*.f64 r r)) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (+.f64 (/.f64 p r) (pow.f64 (/.f64 p r) #s(literal 3 binary64)))))) #s(literal 1 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (*.f64 (/.f64 q r) (/.f64 q r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 (/.f64 q r) (/.f64 q r)))))))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 q q)) r))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (+.f64 (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 r r)) (*.f64 q q))) r))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (+.f64 (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 r r)) (+.f64 (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 q q)))) r))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) r))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 r (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r))))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) r)
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (*.f64 r (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) #s(literal 1 binary64))) r))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (*.f64 r (-.f64 (+.f64 (pow.f64 p #s(literal -1 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p r))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (+ (* (/ r p) -1) 1) (*.f64 r (-.f64 (pow.f64 r #s(literal -1 binary64)) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) r)
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 r (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64))) r))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (/.f64 r p))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (*.f64 (*.f64 p p) r)) (+.f64 (pow.f64 p #s(literal -1 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p r)))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -1 binary64) r))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 r (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(literal -1 binary64))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) #s(literal -1 binary64))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) r)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) r) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (*.f64 p p))))) (*.f64 r r)))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p (*.f64 q q)) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))) (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (*.f64 p p)))))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) r) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (*.f64 p p))))) (*.f64 r r))))) #s(literal 1/2 binary64))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) r))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) r))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 p r) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 r r))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) r) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (*.f64 p p)) (*.f64 r r)))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p (*.f64 q q)) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))) (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (*.f64 p p)))))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 r r)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) r) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (*.f64 p p)) (*.f64 r r)))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -1 binary64) (*.f64 r r)))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 r r) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p r)) #s(literal 1 binary64))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 r r) (-.f64 (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 r r)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 p r) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (*.f64 p p) (*.f64 r r))))))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 r r))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 p r)))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 p r) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (*.f64 p p) (*.f64 r r)))))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 r r))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 p r)))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 p r) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (*.f64 p p) (*.f64 r r)))))))
#s(approx (pow (- p r) 2) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 p r)))))
#s(approx (pow (- p r) 2) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 p r) (/.f64 (*.f64 p p) (*.f64 r r))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) r)
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) r)
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (*.f64 q q) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) r)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1/2 binary64) (*.f64 p (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) r))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) r))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64))) r)))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (/ (+ (fabs p) (- (fabs r) r)) p) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (+ (fabs p) (- (fabs r) r)) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))))))
#s(approx (- (fabs r) r) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fabs.f64 r) r))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1/2 binary64)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)) (/.f64 (*.f64 q q) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 q q) (/.f64 (pow.f64 q #s(literal 4 binary64)) (*.f64 r r))) r) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) r)) #s(literal 1/2 binary64)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) r)
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r)))) r)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (*.f64 r r))) (*.f64 #s(literal 2 binary64) (*.f64 q q))) r)))) r)) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (*.f64 #s(literal -1 binary64) r))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 r #s(literal 6 binary64))))))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1 binary64)))))
#s(approx (+ (+ r (fabs p)) (fabs r)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64)))))
#s(approx (+ r (fabs p)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fabs.f64 p) r)) #s(literal 1 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (*.f64 q q) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) r)) #s(literal 1/2 binary64)))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (*.f64 q q))) r) (*.f64 p (*.f64 q q))) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 3 binary64)))) r) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (*.f64 q q)))) r) (*.f64 p (*.f64 q q))) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p r)) #s(literal 1 binary64)) r)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p p) (*.f64 q q)) r))) r)) #s(literal 1 binary64)) r)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 3 binary64))) r) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (*.f64 q q))) r))) r)) #s(literal 1 binary64)) r)))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r) (*.f64 q q)) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 q q)) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p))))) r))) r) (*.f64 q q)) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 4 binary64) p)))) (fma.f64 #s(literal -1 binary64) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p)))) (fma.f64 #s(literal -1 binary64) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p))) (pow.f64 p #s(literal 3 binary64)))))) r) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 q q)) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p)))))) r))) r) (*.f64 q q)) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (/.f64 p r))) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 q q)) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p)))) r)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r))) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 4 binary64) p)))) (fma.f64 #s(literal -1 binary64) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p)))) (fma.f64 #s(literal -1 binary64) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p))) (pow.f64 p #s(literal 3 binary64))))) r))) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p)))) r)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r))) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 5)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 4 binary64) p))) r) (*.f64 q q)) (pow.f64 r #s(literal 5 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 5)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (+.f64 p (*.f64 #s(literal 4 binary64) p))) #s(literal 2 binary64)) r) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 8 binary64) (*.f64 p p)))) r)) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 4 binary64) p)))) r) (*.f64 q q)) (pow.f64 r #s(literal 5 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 5)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q (+.f64 p (*.f64 #s(literal 4 binary64) p))) #s(literal 2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 8 binary64) (*.f64 p p)))))) r) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 8 binary64) (*.f64 p p))))) r) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) r))) (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q (+.f64 p (*.f64 #s(literal 4 binary64) p))) #s(literal 2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 8 binary64) (*.f64 p p)))))) r)) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 4 binary64) p)))) r) (*.f64 q q)) (pow.f64 r #s(literal 5 binary64)))))
#s(approx (pow (- p r) 5) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 r #s(literal 5 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) r))))))
#s(approx (pow (- p r) 5) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 r #s(literal 5 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 8 binary64) (*.f64 p p))) r) (*.f64 #s(literal 4 binary64) p))) r))))))
#s(approx (pow (- p r) 5) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 r #s(literal 5 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))))) r) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 8 binary64) (*.f64 p p)))) r) (*.f64 #s(literal 4 binary64) p))) r))))))
#s(approx (- p r) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (pow (- p r) -3) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (/.f64 p r))) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (pow (- p r) -3) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p p) r) (/.f64 (*.f64 p p) r))) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r))) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (pow (- p r) -3) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p)))) r) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p))) r) (/.f64 (pow.f64 p #s(literal 3 binary64)) r))) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p)))) r)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r))) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (pow (- p r) -1) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 p r)) r)))
#s(approx (pow (- p r) -1) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p p) r)) p) r))) r)))
#s(approx (pow (- p r) -1) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 p #s(literal 3 binary64)) r) (*.f64 #s(literal -1 binary64) (*.f64 p p))) r)) p) r))) r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (*.f64 q q) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) r)) #s(literal 1/2 binary64)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (*.f64 q q))) r) (*.f64 p (*.f64 q q))) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))))) r) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (*.f64 q q)))) r) (*.f64 p (*.f64 q q))) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p r)) #s(literal 1 binary64)) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p p) (*.f64 q q)) r))) r)) #s(literal 1 binary64)) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p)))) r) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (*.f64 q q))) r))) r)) #s(literal 1 binary64)) r)))
#s(approx (/ (* q q) (pow (- p r) 3)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r) (*.f64 q q)) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 3)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (+.f64 p (*.f64 #s(literal 2 binary64) p))) #s(literal 2 binary64)) r) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p))) r)) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p)))) r) (*.f64 q q)) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (/ (* q q) (pow (- p r) 3)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q (+.f64 p (*.f64 #s(literal 2 binary64) p))) #s(literal 2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p))))) r) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p)))) r) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) r))) (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q (+.f64 p (*.f64 #s(literal 2 binary64) p))) #s(literal 2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p))))) r)) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p)))) r) (*.f64 q q)) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (pow (- p r) 3) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 r #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) r))))))
#s(approx (pow (- p r) 3) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 r #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p)) r) (*.f64 #s(literal 2 binary64) p))) r))))))
#s(approx (pow (- p r) 3) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 r #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 3 binary64)) r) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 p p))) r) (*.f64 #s(literal 2 binary64) p))) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (*.f64 q q) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) r)) #s(literal 1/2 binary64)))))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 p (*.f64 q q) (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) r)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) r))) r) (*.f64 p (*.f64 q q))) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) r)
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r)))) p) r)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r)) (*.f64 #s(literal 2 binary64) (*.f64 q q))) r)))) p) r)) #s(literal 1 binary64)))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) #s(literal 1 binary64))) r)) #s(literal 1 binary64)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) #s(literal 1 binary64)) r)) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (+ (* (/ r p) -1) 1) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (pow.f64 p #s(literal -1 binary64)) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64))) r)) #s(literal 1 binary64)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)) r)) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))) (/.f64 p r)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) r))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r))) p) r)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r))) p) r)) #s(literal 1 binary64)))
#s(approx (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r))) p) r)) #s(literal 1 binary64)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))) r))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal 2 binary64) (*.f64 q q))) r))) r))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 p p))))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))))) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 p p))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p (*.f64 q q)) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r)))))) (*.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 p p)))))))) r))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))))) r)) #s(literal 1/2 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) r)
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) r)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) p (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 p p))))) r))) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) r)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) p (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r)))))) r) (+.f64 (/.f64 (*.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 p p)))))) r) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 p p))))) r))) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) r)) #s(literal 1 binary64)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 r r) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) r)) (*.f64 #s(literal 2 binary64) p)) r)) #s(literal 1 binary64))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) r) (*.f64 #s(literal 2 binary64) p)) r)))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) r) (*.f64 #s(literal 2 binary64) p)) r)))))
#s(approx (pow (- p r) 2) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p p) r) (*.f64 #s(literal 2 binary64) p)) r)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))))) r))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal 2 binary64) (*.f64 q q))) r))))) r))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))) r))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal 2 binary64) (*.f64 q q))) r))) r))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx q q)
#s(approx (neg q) (*.f64 #s(literal -1 binary64) q))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p p))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p p))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p p))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))) (*.f64 (*.f64 q q) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -20 binary64) (/.f64 r (pow.f64 p #s(literal 6 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal -5 binary64))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -3 binary64)))))))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p p))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))) p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p p)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -3 binary64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))) p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p p)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -3 binary64)) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -20 binary64) (/.f64 r (pow.f64 p #s(literal 6 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal -5 binary64))))))))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))) p))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 6 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (fma.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -20 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 6 binary64) (pow.f64 p #s(literal -5 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (* q q) (*.f64 q q))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p)))) p))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64))))))) p))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -3 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64))))))) p))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (+.f64 p (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) p))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (+.f64 p (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (+.f64 p (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -3 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64))) (pow.f64 r #s(literal -3 binary64)))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))) r))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -1 binary64))))))) r))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -3 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -1 binary64))))))) r))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (+.f64 r (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (+.f64 r (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (+.f64 r (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -3 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r)))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (-.f64 p r) #s(literal -3 binary64))))
#s(approx (/ (* q q) (pow (- p r) 5)) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))
#s(approx (/ (* q q) (pow (- p r) 3)) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
#s(approx (neg (* q q)) (*.f64 #s(literal -1 binary64) (*.f64 q q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))) p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))))) p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))))) p))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p) (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r) (*.f64 r (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (-.f64 p r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (-.f64 (+.f64 p (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))) r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (-.f64 (+.f64 p (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))) r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (-.f64 (+.f64 p (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))) r))
#s(approx (* -2 q) (*.f64 #s(literal -2 binary64) q))
#s(approx (* q 2) (*.f64 #s(literal 2 binary64) q))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (fma.f64 #s(literal 2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal 4 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (fma.f64 #s(literal 2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal 4 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (fma.f64 #s(literal -4 binary64) (*.f64 q q) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))) r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))))) r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))))) r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (-.f64 p r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (-.f64 (+.f64 p (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))) r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (-.f64 (+.f64 p (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))) r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (-.f64 (+.f64 p (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (*.f64 p p))) (*.f64 q q)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) r)) (*.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (*.f64 p p))) (*.f64 q q))))) #s(literal 1 binary64))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -2 binary64) q))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 q (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) #s(literal 2 binary64))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p r) (*.f64 q q)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p r) (*.f64 q q)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))) (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p p) (*.f64 q q))))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))) q))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p p) (*.f64 q q))))) q))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 6 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 p p) (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64))))))) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))))) q))
#s(approx (+ (* (* q q) 4) (* p p)) (*.f64 (*.f64 q q) (+.f64 #s(literal 4 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -2 binary64) q))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 q (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) #s(literal 2 binary64))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 p p) (*.f64 q q)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p p) (*.f64 q q))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 p #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p p) (*.f64 q q))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1 binary64) q))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 p p) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))) #s(literal 1 binary64))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 p p) (*.f64 q q)) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)))) #s(literal 1 binary64))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 #s(literal -1 binary64) q))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 r r) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))) #s(literal 1 binary64))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 r r) (*.f64 q q)) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 r #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)))) #s(literal 1 binary64))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (*.f64 #s(literal -2 binary64) q))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (*.f64 q (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) #s(literal 2 binary64))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 r r) (*.f64 q q)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 r #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 r r) (*.f64 q q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 r r) (*.f64 q q))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 r #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 r r) (*.f64 q q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 r #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 r #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 r r) (*.f64 q q))))))))
#s(approx (+ (* (* q q) 4) (* r r)) (*.f64 (*.f64 q q) (+.f64 #s(literal 4 binary64) (/.f64 (*.f64 r r) (*.f64 q q)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64))))))
#s(approx (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q)) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)) (+.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)))))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64))))))
#s(approx (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64))))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))))
#s(approx (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64))))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))))
#s(approx (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 4 binary64))) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 q q))) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -2 binary64) q))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) #s(literal 2 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))) (*.f64 q q)) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p (*.f64 q q))) (fma.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (*.f64 q q))) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -2 binary64)) (pow.f64 q #s(literal -2 binary64)))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 r (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))) (*.f64 q q)) (*.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 (*.f64 q q) r)) (fma.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (*.f64 q q) r)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -2 binary64)) (pow.f64 q #s(literal -2 binary64)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal 2 binary64) q))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (*.f64 q q)))) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)))))))) (pow.f64 q #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (*.f64 q q))))) #s(literal 1 binary64))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -2 binary64) q))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 q (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) #s(literal 2 binary64))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 q q))) (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 q q)))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)))))))) (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 q q)))) (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 q q)))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q)))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 q q) (-.f64 (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 q q)) (+.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q))))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 #s(literal 4 binary64) (*.f64 q q)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 (*.f64 q q) (+.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)))))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 #s(literal 4 binary64) (*.f64 q q)))
#s(approx (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1) (*.f64 (*.f64 q q) (+.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal 2 binary64) q))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 q (+.f64 #s(literal 2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal 2 binary64) q))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (*.f64 q q)))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) q)
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (*.f64 p p))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (*.f64 p p))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) r)) (*.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)))) (*.f64 q q)))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal 2 binary64) q))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (*.f64 p p))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (*.f64 p r))) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (*.f64 q q)) (*.f64 #s(literal 1/4 binary64) (*.f64 p p)))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal -1/2 binary64) q))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))) q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p p) (*.f64 q q))))) q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 6 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 p p) (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64))))))) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))))) q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal 2 binary64) q))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p p) q)))) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (*.f64 q q))) (*.f64 #s(literal 1/4 binary64) (*.f64 p p))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -2 binary64) q))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p p) (*.f64 q q))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 p #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) q)
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 p p) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 p p) (*.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (*.f64 q q)))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) q)
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 r r) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 r r) (*.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 r #s(literal 4 binary64)) (*.f64 q q)))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (*.f64 #s(literal 2 binary64) q))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 r r) q)))) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* r r)))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 r #s(literal 4 binary64)) (*.f64 q q))) (*.f64 #s(literal 1/4 binary64) (*.f64 r r))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (*.f64 #s(literal -2 binary64) q))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 r r) (*.f64 q q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 r #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 r r) (*.f64 q q))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* r r))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 r #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 r #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 r r) (*.f64 q q)))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal 2 binary64) q))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q)))) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (*.f64 q q))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) q)
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)))))))) q))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal 2 binary64) q))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) q)) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 2 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) q) (fma.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)))))) q)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) q)) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 2 binary64)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -2 binary64) q))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q)))) q))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (*.f64 q q)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) q)))) q))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -2 binary64) q))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)))))))))

eval380.0ms (4.7%)

Memory
34.0MiB live, 436.7MiB allocated; 115ms collecting garbage
Compiler

Compiled 143 226 to 10 298 computations (92.8% saved)

prune112.0ms (1.4%)

Memory
7.7MiB live, 199.3MiB allocated; 32ms collecting garbage
Pruning

39 alts after pruning (29 fresh and 10 done)

PrunedKeptTotal
New2 108292 137
Fresh000
Picked131023
Done000
Total2 121392 160
Accuracy
86.6%
Counts
2 160 → 39
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶41.3%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
▶2.1%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (sqrt.f64 (*.f64 p p)) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))))
▶2.1%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)))))))
▶3.9%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p)) p)))
▶26.0%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)))
▶11.0%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)))
▶28.6%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))))
▶2.9%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p))))
▶39.1%
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
▶2.0%
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
▶8.1%
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))))
▶11.7%
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)))
▶2.1%
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
▶1.9%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))))
▶2.6%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))))
▶2.8%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))))) (*.f64 q q))))
▶3.0%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))))
▶1.8%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))))
✓2.2%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)))
✓24.3%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) #s(literal 1/2 binary64)))
✓22.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64)))
▶2.2%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (* p p))) p)) #s(literal 1/2 binary64)))
✓27.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
▶6.6%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p)))))
▶8.6%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))))))
▶2.2%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))) #s(literal 1/2 binary64)))
▶2.4%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))) #s(literal 1/2 binary64)))
▶19.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
▶19.3%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
▶5.3%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))
✓2.5%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
✓5.2%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
✓5.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
✓2.9%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
✓40.3%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
▶17.0%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))
▶0.3%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))))))
▶38.8%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))))))
✓3.0%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
Compiler

Compiled 1 882 to 1 285 computations (31.7% saved)

series431.0ms (5.3%)

Memory
-8.4MiB live, 713.7MiB allocated; 122ms collecting garbage
Counts
232 → 1 869
Calls
Call 1
Inputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))))
#s(literal 1/2 binary64)
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))
(+.f64 (fabs.f64 p) (fabs.f64 r))
(fabs.f64 p)
p
(fabs.f64 r)
r
(*.f64 #s(literal 2 binary64) q)
#s(literal 2 binary64)
q
(*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q))))
(fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))
#s(literal -1/8 binary64)
(/.f64 p q)
(*.f64 #s(literal 1/4 binary64) (/.f64 r q))
#s(literal 1/4 binary64)
(/.f64 r q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64))))))
(*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))))
(pow.f64 q #s(literal 6 binary64))
#s(literal 6 binary64)
(-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64))))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)))
(/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64)))
(-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)
(+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))
(pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))
(*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64)))
(*.f64 q q)
(pow.f64 (-.f64 p r) #s(literal 3 binary64))
(-.f64 p r)
#s(literal 3 binary64)
#s(literal -1 binary64)
(fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))
(pow.f64 (-.f64 p r) #s(literal -5 binary64))
#s(literal -5 binary64)
(pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64))
(*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r))
(pow.f64 q #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))
(/.f64 (*.f64 q q) (-.f64 p r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
(*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
(*.f64 p r)
(/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))
#s(literal 1 binary64)
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))
(fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))
(*.f64 p p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
(*.f64 #s(literal 1/2 binary64) (fma.f64 #s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))))
(fma.f64 #s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q))
(/.f64 #s(literal 1/2 binary64) q)
(*.f64 r p)
(-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))
(+.f64 (fabs.f64 r) (fabs.f64 p))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
(*.f64 #s(literal 1/2 binary64) (fma.f64 (exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))))
(fma.f64 (exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
(exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64)))
(*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))
(log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))
#s(literal -1/2 binary64)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))) #s(literal 1/2 binary64))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64))))
(*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))
(-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64))
(fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
#s(literal -2 binary64)
(*.f64 (/.f64 q p) (/.f64 q p))
(/.f64 q p)
(/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))) #s(literal 1/2 binary64)))
(*.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))) #s(literal 1/2 binary64))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))))))
(*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64))))))))
(neg.f64 p)
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))))
(*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64))))))
(*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))
(-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64))))
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r))
(/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)
(-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
(*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))
(pow.f64 p #s(literal -1 binary64))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p)))))
(*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p)))
(*.f64 #s(literal 1/2 binary64) (/.f64 r p))
(/.f64 r p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (* p p))) p)) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (* p p))) p)) #s(literal 1/2 binary64))
(-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (* p p))) p))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))))
(fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r)
(/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))
(neg.f64 (*.f64 q q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q)))
(-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p)
(+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r))
(+.f64 r (fabs.f64 p))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)))
(*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))
(/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p)))
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))
(/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p)
(-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r)
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p))
(/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)
(-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r)))
(*.f64 #s(literal -1 binary64) (*.f64 q q))
(*.f64 #s(literal -1 binary64) (*.f64 r r))
(*.f64 r r)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))))) (*.f64 q q)))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64)))))
(*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))))
(-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64)))
(pow.f64 (-.f64 p r) #s(literal -3 binary64))
#s(literal -3 binary64)
(pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))
(*.f64 (*.f64 q q) (-.f64 p r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q)))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p))
(/.f64 #s(literal -1 binary64) p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q)))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r)))
(/.f64 #s(literal -1 binary64) (-.f64 p r))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p))
(*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)
(-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))
(/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p)
(fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))
(*.f64 #s(literal -2 binary64) q)
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))
(*.f64 q #s(literal 2 binary64))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p))))
(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p))
(/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p)
(fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r))))
(*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))
(-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r))
(+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))
(+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))
(*.f64 #s(literal -1 binary64) p)
(*.f64 #s(literal -1 binary64) r)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))
(/.f64 (*.f64 q q) r)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p))
(*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p))))
(*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r))
(*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r))))
(*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))
(*.f64 (/.f64 q r) (/.f64 q r))
(/.f64 q r)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p)) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p)) p))
(*.f64 #s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p)) p)
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p))))))
(*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)))))
(-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p))))
(*.f64 #s(literal 2 binary64) (/.f64 r p))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)))
(*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p))
(/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)
(+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))
(+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (sqrt.f64 (*.f64 p p)) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))))
(-.f64 (+.f64 (sqrt.f64 (*.f64 p p)) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r)))
(+.f64 (sqrt.f64 (*.f64 p p)) (fabs.f64 r))
(sqrt.f64 (*.f64 p p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))
(neg.f64 r)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
(/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q)))
(*.f64 #s(literal -4 binary64) (*.f64 q q))
#s(literal -4 binary64)
(+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
(pow.f64 (-.f64 p r) #s(literal 2 binary64))
Outputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* 1/4 (/ r q)) (* p (- (* -1/32 (/ (* p r) (pow q 3))) (* 1/8 (/ 1 q)))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (+ (fabs p) (fabs r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (fabs p) #s(hole binary64 (fabs p)))
#s(approx p #s(hole binary64 p))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* 1/4 (/ (* p r) q))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* 1/4 (/ r q))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))
#s(approx (/ p q) #s(hole binary64 (/ p q)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2)))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (* 2 (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (/ 1 (pow r 4))))) (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3)))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* p (* (pow q 6) (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4)))))))) (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* p (+ (* p (* (pow q 6) (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (/ 1 (* (pow q 4) (pow r 3)))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))))) (* (pow q 6) (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))))) (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 6) (- (/ 1 (* (pow q 4) (pow r 4))) (+ (* -2 (+ (* -1 (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (pow r 5))) (+ (* 5 (/ (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (pow r 11))) (* 10 (/ 1 (pow r 8)))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (* (pow q 2) (pow r 7)))) (/ 1 (* (pow q 2) (pow r 6))))))))) (* (pow q 6) (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (/ 1 (* (pow q 4) (pow r 3)))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7))))))))) (* (pow q 6) (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))))) (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (+ (* p (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))) (/ 1 (* (pow q 4) r))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (+ (* p (- (+ (* 10 (/ 1 (pow r 6))) (+ (* p (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (/ 1 (* (pow q 4) (pow r 3)))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7))))))) (/ 1 (* (pow q 4) (pow r 2))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))) (/ 1 (* (pow q 4) r))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (+ (* p (- (+ (* 10 (/ 1 (pow r 6))) (+ (* p (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (+ (* p (- (/ 1 (* (pow q 4) (pow r 4))) (+ (* -2 (+ (* -1 (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (pow r 5))) (+ (* 5 (/ (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (pow r 11))) (* 10 (/ 1 (pow r 8)))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (* (pow q 2) (pow r 7)))) (/ 1 (* (pow q 2) (pow r 6)))))))) (/ 1 (* (pow q 4) (pow r 3))))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7))))))) (/ 1 (* (pow q 4) (pow r 2))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))) (/ 1 (* (pow q 4) r))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (- (+ (* -1 (* p (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6)))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (* p (- (* p (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4)))))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (* p (- (* p (- (+ (* -1 (* p (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (* (pow q 2) (pow r 7)))) (/ 1 (* (pow q 2) (pow r 6))))))) (* 3 (/ 1 (* (pow q 2) (pow r 5))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4)))))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (+ (* -1 (/ p (pow q 6))) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (+ r (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (+ r (+ (fabs p) (fabs r))) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ -1 (* (pow q 2) (pow r 3)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (- (* -3 (/ p (* (pow q 2) (pow r 4)))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (- (* p (- (* p (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (* 3 (/ 1 (* (pow q 2) (pow r 4)))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (- (* p (- (* p (- (+ (* -1 (* p (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (* (pow q 2) (pow r 7)))) (/ 1 (* (pow q 2) (pow r 6))))))) (* 3 (/ 1 (* (pow q 2) (pow r 5))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (* 3 (/ 1 (* (pow q 2) (pow r 4)))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (* (pow q 2) (pow r 3)))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* -1 (* (pow q 2) (pow r 3))) (* p (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2)))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* -1 (* (pow q 2) (pow r 3))) (* p (+ (* p (* (pow q 2) (+ (* -2 r) (* -1 r)))) (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* -1 (* (pow q 2) (pow r 3))) (* p (+ (* p (+ (* p (pow q 2)) (* (pow q 2) (+ (* -2 r) (* -1 r))))) (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (pow r 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* -1 (pow r 3)) (* p (+ (* 2 (pow r 2)) (pow r 2))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* -1 (pow r 3)) (* p (+ (* 2 (pow r 2)) (+ (* p (+ (* -2 r) (* -1 r))) (pow r 2)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* -1 (pow r 3)) (* p (+ (* 2 (pow r 2)) (+ (* p (+ p (+ (* -2 r) (* -1 r)))) (pow r 2)))))))
#s(approx (- p r) #s(hole binary64 (* -1 r)))
#s(approx (- p r) #s(hole binary64 (- p r)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (* -1 (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (- (* -1 (* p (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (- (* p (- (* p (- (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (/ 1 (* (pow q 4) (pow r 3))))) (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (- (* p (- (* p (- (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* p (- (* -2 (+ (* -1 (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (pow r 5))) (+ (* 5 (/ (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (pow r 11))) (* 10 (/ 1 (pow r 8)))))) (/ 1 (* (pow q 4) (pow r 4)))))) (/ 1 (* (pow q 4) (pow r 3))))) (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r))))))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ -1 (pow r 5))))
#s(approx (pow (- p r) -5) #s(hole binary64 (- (* -5 (/ p (pow r 6))) (/ 1 (pow r 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (- (* p (- (* p (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 5 (/ 1 (pow r 6))))) (/ 1 (pow r 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (- (* p (- (* p (- (+ (* -1 (* p (+ (* -1 (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (pow r 5))) (+ (* 5 (/ (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (pow r 11))) (* 10 (/ 1 (pow r 8))))))) (* 4 (/ 1 (pow r 7)))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 5 (/ 1 (pow r 6))))) (/ 1 (pow r 5)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ -1 (* (pow q 4) r))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (- (* -1 (/ p (* (pow q 4) (pow r 2)))) (/ 1 (* (pow q 4) r)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (- (* p (- (* -1 (/ p (* (pow q 4) (pow r 3)))) (/ 1 (* (pow q 4) (pow r 2))))) (/ 1 (* (pow q 4) r)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (- (* p (- (* p (- (* -1 (/ p (* (pow q 4) (pow r 4)))) (/ 1 (* (pow q 4) (pow r 3))))) (/ 1 (* (pow q 4) (pow r 2))))) (/ 1 (* (pow q 4) r)))))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (* -1 (* (pow q 4) r))))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (+ (* -1 (* (pow q 4) r)) (* p (pow q 4)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (/ (pow q 2) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (/ (pow q 2) (pow r 2)) 1/2)) (/ (pow q 2) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))) 1/2)) (/ (pow q 2) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2))) 1/2)) (/ (pow q 2) r)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (/ (* p (pow q 2)) (pow r 2)) (/ (pow q 2) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* p (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* p (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* -1 (/ (* p (pow q 2)) (pow r 2))) (* -1 (/ (pow q 2) r)))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) r)) (* p (- (* -1 (/ (* p (pow q 2)) (pow r 3))) (/ (pow q 2) (pow r 2)))))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) r)) (* p (- (* p (- (* -1 (/ (* p (pow q 2)) (pow r 4))) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* 1/2 (/ (* p r) q)))) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* -1/4 (/ p q)) (* 1/2 (/ r q)))))) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* 1/2 (/ r q)) (* p (- (* -1/16 (/ (* p r) (pow q 3))) (* 1/4 (/ 1 q)))))))) (* 2 q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* 1/2 (/ (* p r) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* p (+ (* -1/16 (/ (* (pow p 2) r) (pow q 3))) (* 1/2 (/ r q))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* p (+ (* 1/2 (/ r q)) (* (pow p 2) (+ (* -1/16 (/ r (pow q 3))) (* 3/256 (/ (* (pow p 2) r) (pow q 5)))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* p (+ (* 1/2 (/ r q)) (* (pow p 2) (+ (* -1/16 (/ r (pow q 3))) (* (pow p 2) (+ (* -5/2048 (/ (* (pow p 2) r) (pow q 7))) (* 3/256 (/ r (pow q 5)))))))))))
#s(approx (* p r) #s(hole binary64 (* p r)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ 1/2 q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* -1/16 (/ (pow p 2) (pow q 3))) (* 1/2 (/ 1 q)))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow p 2) (- (* 3/256 (/ (pow p 2) (pow q 5))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow p 2) (- (* (pow p 2) (+ (* -5/2048 (/ (pow p 2) (pow q 7))) (* 3/256 (/ 1 (pow q 5))))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (+ (* 1/4 (/ (pow p 2) q)) (* 2 q))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (+ (* 2 q) (* (pow p 2) (+ (* -1/64 (/ (pow p 2) (pow q 3))) (* 1/4 (/ 1 q)))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (+ (* 2 q) (* (pow p 2) (+ (* (pow p 2) (- (* 1/512 (/ (pow p 2) (pow q 5))) (* 1/64 (/ 1 (pow q 3))))) (* 1/4 (/ 1 q)))))))
#s(approx (+ (* 4 (* q q)) (* p p)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (* 4 (* q q)) (* p p)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (* p p) #s(hole binary64 (pow p 2)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ 1/2 q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* -1/16 (/ (pow p 2) (pow q 3))) (* 1/2 (/ 1 q)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow p 2) (- (* 3/256 (/ (pow p 2) (pow q 5))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow p 2) (- (* (pow p 2) (+ (* -5/2048 (/ (pow p 2) (pow q 7))) (* 3/256 (/ 1 (pow q 5))))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (* r p) #s(hole binary64 (* p r)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1/4 (/ (pow p 2) q)))) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow p 2) (- (* 1/64 (/ (pow p 2) (pow q 3))) (* 1/4 (/ 1 q)))))) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow p 2) (- (* (pow p 2) (+ (* -1/512 (/ (pow p 2) (pow q 5))) (* 1/64 (/ 1 (pow q 3))))) (* 1/4 (/ 1 q)))))) (* 2 q))))
#s(approx (+ (fabs r) (fabs p)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* 1/4 (/ (pow p 2) q)) (* 2 q))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* 2 q) (* (pow p 2) (+ (* -1/64 (/ (pow p 2) (pow q 3))) (* 1/4 (/ 1 q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* 2 q) (* (pow p 2) (+ (* (pow p 2) (- (* 1/512 (/ (pow p 2) (pow q 5))) (* 1/64 (/ 1 (pow q 3))))) (* 1/4 (/ 1 q)))))))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* 1/4 (/ r q)) (* p (- (* -1/32 (/ (* p r) (pow q 3))) (* 1/8 (/ 1 q)))))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* 1/2 (/ (* p r) q)))) (* 2 q))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* -1/4 (/ p q)) (* 1/2 (/ r q)))))) (* 2 q))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* 1/2 (/ r q)) (* p (- (* -1/16 (/ (* p r) (pow q 3))) (* 1/4 (/ 1 q)))))))) (* 2 q))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ 1/2 q)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (+ (* -1/16 (/ (pow p 2) (pow q 3))) (* 1/2 (/ 1 q)))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (+ (* (pow p 2) (- (* 3/256 (/ (pow p 2) (pow q 5))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (+ (* (pow p 2) (- (* (pow p 2) (+ (* -5/2048 (/ (pow p 2) (pow q 7))) (* 3/256 (/ 1 (pow q 5))))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (* -1/2 (log (* 4 (pow q 2))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (log (* 4 (pow q 2)))) (* -1/8 (/ (pow p 2) (pow q 2))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (log (* 4 (pow q 2)))) (* (pow p 2) (- (* 1/64 (/ (pow p 2) (pow q 4))) (* 1/8 (/ 1 (pow q 2))))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (log (* 4 (pow q 2)))) (* (pow p 2) (- (* (pow p 2) (+ (* -1/384 (/ (pow p 2) (pow q 6))) (* 1/64 (/ 1 (pow q 4))))) (* 1/8 (/ 1 (pow q 2))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (log (* 4 (pow q 2)))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log (* 4 (pow q 2))) (* 1/4 (/ (pow p 2) (pow q 2))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log (* 4 (pow q 2))) (* (pow p 2) (+ (* -1/32 (/ (pow p 2) (pow q 4))) (* 1/4 (/ 1 (pow q 2))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log (* 4 (pow q 2))) (* (pow p 2) (+ (* (pow p 2) (- (* 1/192 (/ (pow p 2) (pow q 6))) (* 1/32 (/ 1 (pow q 4))))) (* 1/4 (/ 1 (pow q 2))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* (pow p 2) (- (* 1/128 (/ (pow p 2) (pow q 3))) (* 1/8 (/ 1 q)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* (pow p 2) (- (* (pow p 2) (+ (* -1/1024 (/ (pow p 2) (pow q 5))) (* 1/128 (/ 1 (pow q 3))))) (* 1/8 (/ 1 q)))))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (* -2 (/ (pow q 2) p))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (fabs r)))) p)))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))) p)))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 (* -2 (/ (pow q 2) (pow p 2)))))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (fabs r)))) (pow p 2))))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))) (pow p 2))))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (* -2 (/ (pow q 2) (pow p 2)))))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (fabs r)))) (pow p 2))))
#s(approx (* (/ q p) (/ q p)) #s(hole binary64 (/ (pow q 2) (pow p 2))))
#s(approx (/ q p) #s(hole binary64 (/ q p)))
#s(approx (/ (+ (fabs p) (fabs r)) p) #s(hole binary64 (/ (+ (fabs p) (fabs r)) p)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* 1/2 (+ r (+ (fabs p) (fabs r))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (+ (* -1/2 p) (* 1/2 (+ r (+ (fabs p) (fabs r)))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (+ r (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) r))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (+ (* 1/2 p) (* 1/2 (- (+ (fabs p) (fabs r)) r)))))
#s(approx (neg p) #s(hole binary64 (* -1 p)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (/ (+ (* -1/2 p) (* -1/2 (- (+ (fabs p) (fabs r)) r))) p)))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (* -1 (/ (* r (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2)) p))))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (/ (+ (* -1 (* r (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2))) (* -1/2 p)) p)))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (/ (* r (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2)) p)))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (/ (+ (* 1/2 p) (* r (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2))) p)))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (/ (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2) p)))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (/ (- (+ (* 1/2 (/ p r)) (* 1/2 (/ (+ (fabs p) (fabs r)) r))) 1/2) p)))
#s(approx (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) #s(hole binary64 (* 1/2 (/ (+ (fabs p) (fabs r)) (* p r)))))
#s(approx (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) #s(hole binary64 (/ (+ (* 1/2 (/ p r)) (* 1/2 (/ (+ (fabs p) (fabs r)) r))) p)))
#s(approx (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) #s(hole binary64 (* -1/2 (/ (+ (fabs p) (fabs r)) (* p r)))))
#s(approx (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) #s(hole binary64 (/ (+ (* -1/2 (/ p r)) (* -1/2 (/ (+ (fabs p) (fabs r)) r))) p)))
#s(approx (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) #s(hole binary64 (* -1/2 (/ (+ (fabs p) (fabs r)) p))))
#s(approx (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) #s(hole binary64 (/ (+ (* -1/2 p) (* -1/2 (+ (fabs p) (fabs r)))) p)))
#s(approx (* -1/2 (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (* -1/2 (/ (+ (fabs p) (fabs r)) p))))
#s(approx (* 1/2 (pow p -1)) #s(hole binary64 (/ 1/2 p)))
#s(approx (pow p -1) #s(hole binary64 (/ 1 p)))
#s(approx (* 1/2 (/ r p)) #s(hole binary64 (* 1/2 (/ r p))))
#s(approx (/ r p) #s(hole binary64 (/ r p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (/ (* p (pow q 2)) (pow r 2)) (/ (pow q 2) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* p (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* p (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6))))))) (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (+ r (fabs p)) #s(hole binary64 (+ r (fabs p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6))))))) (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (+ (* p (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ 1 (pow r 2))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (+ (* p (- (+ (* p (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6)))))) (/ 1 (pow r 3))) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ 1 (pow r 2))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 3)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (+ (* -1 (* p r)) (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2))))) (pow p 3))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (+ (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2)))) (* p (+ (* -1 p) (* -1 r)))) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p r)) (* -1 (pow r 2))) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p (+ p r))) (* -1 (pow r 2))) (pow p 3))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p r)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p (+ p r))) (* -1 (pow r 2))) (pow p 2))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p r)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (+ (* -1 (* p r)) (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2))))) (pow p 2))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (/ (+ (* -1 (* p r)) (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2))))) p)))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* p (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4)))))) (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* p (+ (* p (* (pow q 2) (- (+ (* 3 (/ 1 (pow r 5))) (/ 1 (* (pow q 2) (pow r 3)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7)))))) (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4))))))) (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 4))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6))))))) (* (pow q 2) (- (+ (* 3 (/ 1 (pow r 5))) (/ 1 (* (pow q 2) (pow r 3)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))))) (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4))))))) (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* p (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4))))) (/ 1 (* (pow q 2) r))) (/ 1 (pow r 3)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* p (- (+ (* p (- (+ (* 3 (/ 1 (pow r 5))) (/ 1 (* (pow q 2) (pow r 3)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (* (pow q 2) (pow r 2)))) (* 3 (/ 1 (pow r 4))))) (/ 1 (* (pow q 2) r))) (/ 1 (pow r 3)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* p (- (+ (* p (- (+ (* 3 (/ 1 (pow r 5))) (+ (* p (- (/ 1 (* (pow q 2) (pow r 4))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (/ 1 (* (pow q 2) (pow r 3))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (* (pow q 2) (pow r 2)))) (* 3 (/ 1 (pow r 4))))) (/ 1 (* (pow q 2) r))) (/ 1 (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ -1 (pow r 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (- (* -3 (/ p (pow r 4))) (/ 1 (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (- (* p (- (* p (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (- (* p (- (* p (- (+ (* -1 (* p (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 3)))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ -1 (* (pow q 2) r))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (- (* -1 (/ p (* (pow q 2) (pow r 2)))) (/ 1 (* (pow q 2) r)))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (- (* p (- (* -1 (/ p (* (pow q 2) (pow r 3)))) (/ 1 (* (pow q 2) (pow r 2))))) (/ 1 (* (pow q 2) r)))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (- (* p (- (* p (- (* -1 (/ p (* (pow q 2) (pow r 4)))) (/ 1 (* (pow q 2) (pow r 3))))) (/ 1 (* (pow q 2) (pow r 2))))) (/ 1 (* (pow q 2) r)))))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (* -1 (* (pow q 2) r))))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (+ (* -1 (* (pow q 2) r)) (* p (pow q 2)))))
#s(approx (/ -1 p) #s(hole binary64 (/ -1 p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ 1 r)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (+ (/ 1 r) (/ p (pow r 2)))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (+ (* p (+ (/ 1 (pow r 2)) (/ p (pow r 3)))) (/ 1 r))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (+ (* p (+ (* p (+ (/ 1 (pow r 3)) (/ p (pow r 4)))) (/ 1 (pow r 2)))) (/ 1 r))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* -1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* p (- (* -1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* -1 r))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (/ (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) p)))
#s(approx (/ (+ (fabs r) (fabs p)) p) #s(hole binary64 (/ (+ (fabs p) (fabs r)) p)))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (* -1 (/ r p))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (/ (+ p (* -1 r)) p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -2 (/ (pow q 2) p))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -2 (/ (pow q 2) p))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p)))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* -2 (pow q 2))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p (- (+ (fabs p) (fabs r)) (* -1 r)))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* -1 r))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 p))) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 p))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (* -1 p)))))
#s(approx (+ (fabs r) (* -1 p)) #s(hole binary64 (fabs r)))
#s(approx (+ (fabs r) (* -1 p)) #s(hole binary64 (+ (fabs r) (* -1 p))))
#s(approx (* -1 p) #s(hole binary64 (* -1 p)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (+ p (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* -2 (/ (pow q 2) (pow p 2)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) (pow p 2))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (pow p 2))))
#s(approx (* -2 (* (/ q p) (/ q p))) #s(hole binary64 (* -2 (/ (pow q 2) (pow p 2)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ p r) (+ (/ (fabs p) r) (/ (fabs r) r)))) 1)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* p (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* -1/2 (* p (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))) (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (* p (+ (* -1/2 (* p (+ (* 1/2 (* (/ (* r (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* (/ (* r (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* -1/2 (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (+ (* -1 (* p (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))) (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (+ (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (- (* -1 (* p (+ (* 1/2 (* (/ (* r (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* (/ (* r (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (- (+ (* -1 p) (* 2 r)) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (/ (- (+ (* -1 p) (* 2 r)) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)))
#s(approx (* 2 (/ r p)) #s(hole binary64 (* 2 (/ r p))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (/ (+ p (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) #s(hole binary64 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) #s(hole binary64 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 r))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (* -1 r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* p (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* p (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* p (- (+ 1 (* -1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* p (- (+ 1 (* p (- (* -1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (+ (sqrt (* p p)) (fabs r)) #s(hole binary64 (fabs r)))
#s(approx (+ (sqrt (* p p)) (fabs r)) #s(hole binary64 (+ p (fabs r))))
#s(approx (sqrt (* p p)) #s(hole binary64 p))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* 2 (* p r)) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* p (- (* -1 p) (* -2 r))) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow r 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* p (+ p (* -2 r))) (pow r 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow r 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow r 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* p (+ p (* -2 r))) (pow r 2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1/8 (/ (pow p 2) q))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* (pow p 2) (- (* 1/4 (/ r (* p q))) (* 1/8 (/ 1 q))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* (pow p 2) (- (+ (* 1/4 (/ r (* p q))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* 2 q)) (pow p 2)))) (* 1/8 (/ 1 q))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* -1/8 (/ (pow p 2) q))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* (pow p 2) (- (* 1/4 (/ r (* p q))) (* 1/8 (/ 1 q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1/8 (/ p q))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* p (- (* 1/4 (/ r (* p q))) (* 1/8 (/ 1 q))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* p (- (* 1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p)) 1/2))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p))) 1/2))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p)))) 1/2))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1/2 (/ p (pow q 6)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* p (- (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* p (- (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (+ (* 1/2 (/ 1 (pow q 6))) (/ 1 (* (pow p 2) (pow q 4))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* p (- (+ (* -1 (/ r (* (pow p 3) (pow q 4)))) (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p))) (+ (* 1/2 (/ 1 (pow q 6))) (/ 1 (* (pow p 2) (pow q 4))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* -1/2 (/ p (pow q 6)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* p (- (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* p (- (+ (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (/ 1 (* (pow p 4) (pow q 2)))) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* p (- (+ (* -1 (/ (+ (* -2 (/ r (pow q 2))) (* -1 (/ r (pow q 2)))) (pow p 5))) (+ (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (/ 1 (* (pow p 4) (pow q 2))))) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (* -1 (/ p (pow q 6)))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (* p (- (+ (/ r (* p (pow q 6))) (+ (/ (fabs p) (* p (pow q 6))) (/ (fabs r) (* p (pow q 6))))) (/ 1 (pow q 6))))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (* -1 p)))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ 1 (* (pow p 3) (pow q 2)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ (+ (* -1 (/ (+ (* -2 (/ r (pow q 2))) (* -1 (/ r (pow q 2)))) p)) (/ 1 (pow q 2))) (pow p 3))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* -2 (/ r (pow q 2))) (* -1 (/ r (pow q 2)))))) (+ (* 2 (/ (pow r 2) (pow q 2))) (/ (pow r 2) (pow q 2)))) (pow p 2))) (/ 1 (pow q 2))) (+ (* -2 (/ r (* p (pow q 2)))) (* -1 (/ r (* p (pow q 2)))))) (pow p 3))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* -2 (/ r (pow q 2))) (* -1 (/ r (pow q 2)))))) (+ (* 2 (/ (pow r 2) (pow q 2))) (/ (pow r 2) (pow q 2)))))) (+ (* -1 (* (+ (* -2 (/ r (pow q 2))) (* -1 (/ r (pow q 2)))) (+ (* 2 (pow r 2)) (pow r 2)))) (* -1 (/ (pow r 3) (pow q 2))))) (pow p 3))) (/ 1 (pow q 2))) (+ (* -2 (/ r (* p (pow q 2)))) (+ (* -1 (/ r (* p (pow q 2)))) (+ (* -1 (/ (* (+ (* -2 r) (* -1 r)) (+ (* -2 (/ r (pow q 2))) (* -1 (/ r (pow q 2))))) (pow p 2))) (+ (* 2 (/ (pow r 2) (* (pow p 2) (pow q 2)))) (/ (pow r 2) (* (pow p 2) (pow q 2)))))))) (pow p 3))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow p 3) (pow q 2))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow p 3) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p) (pow q 2)))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow p 3) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p) (+ (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow p 2)) (pow q 2))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow p 3) (+ (* -1 (/ (* (pow q 2) (pow r 3)) (pow p 3))) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p) (+ (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow p 2)) (pow q 2)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (pow p 3)))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow p 3) (+ 1 (+ (* -2 (/ r p)) (* -1 (/ r p)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow p 3) (+ 1 (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2)))))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow p 3) (+ 1 (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 3) (pow p 3))) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))))))
#s(approx (- p r) #s(hole binary64 p))
#s(approx (- p r) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ 1 (* p (pow q 4)))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ (+ (/ 1 (pow q 4)) (/ r (* p (pow q 4)))) p)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ (- (+ (/ 1 (pow q 4)) (/ (pow r 2) (* (pow p 2) (pow q 4)))) (* -1 (/ r (* p (pow q 4))))) p)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ (- (+ (/ 1 (pow q 4)) (/ (pow r 3) (* (pow p 3) (pow q 4)))) (+ (* -1 (/ r (* p (pow q 4)))) (* -1 (/ (pow r 2) (* (pow p 2) (pow q 4)))))) p)))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ 1 (pow p 5))))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ (+ 1 (* -1 (/ (+ (* -4 r) (* -1 r)) p))) (pow p 5))))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ (- (+ 1 (* -1 (/ (+ (* -1 (pow (+ (* -4 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow p 2)))) (+ (* -4 (/ r p)) (* -1 (/ r p)))) (pow p 5))))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ (- (+ 1 (* -1 (/ (+ (* -4 (pow r 3)) (+ (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))) (+ (* -1 (* (+ (* -4 r) (* -1 r)) (+ (* -1 (pow (+ (* -4 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))))) (* -1 (* (+ (* -4 r) (* -1 r)) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))))))) (pow p 3)))) (+ (* -4 (/ r p)) (+ (* -1 (/ r p)) (+ (* -1 (/ (pow (+ (* -4 r) (* -1 r)) 2) (pow p 2))) (+ (* 2 (/ (pow r 2) (pow p 2))) (* 8 (/ (pow r 2) (pow p 2)))))))) (pow p 5))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ 1 (* p (pow q 4)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ (+ (/ 1 (pow q 4)) (/ r (* p (pow q 4)))) p)))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ (- (+ (/ 1 (pow q 4)) (/ (pow r 2) (* (pow p 2) (pow q 4)))) (* -1 (/ r (* p (pow q 4))))) p)))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ (- (+ (/ 1 (pow q 4)) (/ (pow r 3) (* (pow p 3) (pow q 4)))) (+ (* -1 (/ r (* p (pow q 4)))) (* -1 (/ (pow r 2) (* (pow p 2) (pow q 4)))))) p)))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (* p (pow q 4))))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (* p (+ (* -1 (/ (* (pow q 4) r) p)) (pow q 4)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (* -1 (pow q 2)))) p)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow r 3)) (pow p 3))) (* -1 (pow q 2))))) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (pow q 2) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (/ (* (pow q 2) (pow r 2)) (pow p 2)) (pow q 2)) (* -1 (/ (* (pow q 2) r) p))) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (/ (* (pow q 2) (pow r 3)) (pow p 3)) (pow q 2)) (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 r))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (* -2 (/ (* (pow q 2) r) (pow p 2))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (* -1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4)))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4))) (* -1/2 (/ (* r (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6)))) (pow p 6))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ 1 p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p)))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 p))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* p (+ 1 (* 2 (/ (pow q 2) (pow p 2)))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (+ (* 2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 6) (pow p 6)))))))))
#s(approx (+ (* 4 (* q q)) (* p p)) #s(hole binary64 (pow p 2)))
#s(approx (+ (* 4 (* q q)) (* p p)) #s(hole binary64 (* (pow p 2) (+ 1 (* 4 (/ (pow q 2) (pow p 2)))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ 1 p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* p (- (+ (* 2 (/ (pow q 4) (pow p 4))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 p))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* p (+ 1 (* 2 (/ (pow q 2) (pow p 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (+ (* 2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 6) (pow p 6)))))))))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (pow p 2)))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (* (pow p 2) (+ 1 (* 4 (/ (pow q 2) (pow p 2)))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 p)))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) 1))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ 1 p)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p)))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (log (/ 1 p))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (log (/ 1 p)) (* -2 (/ (pow q 2) (pow p 2))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (log (/ 1 p)) (+ (* -2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 4) (pow p 4)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (log (/ 1 p)) (+ (* -32/3 (/ (pow q 6) (pow p 6))) (+ (* -2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 4) (pow p 4))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -2 (log (/ 1 p)))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* -2 (log (/ 1 p))) (* 4 (/ (pow q 2) (pow p 2))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* -8 (/ (pow q 4) (pow p 4))) (+ (* -2 (log (/ 1 p))) (* 4 (/ (pow q 2) (pow p 2)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* -8 (/ (pow q 4) (pow p 4))) (+ (* -2 (log (/ 1 p))) (+ (* 4 (/ (pow q 2) (pow p 2))) (* 64/3 (/ (pow q 6) (pow p 6))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1/2 p)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* p (- (* 1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) p))) 1/2))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (+ (* 1/2 (/ (+ (fabs p) (fabs r)) p)) (/ (pow q 4) (pow p 4)))) 1/2))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (* -1 p)))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 -1))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (/ (+ (fabs p) (fabs r)) p)))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (/ (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p)))) p)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* -1/2 p)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* 1/2 p)))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* p (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) r) p))))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 -1/2))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (- (* -1 (/ (* r (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2)) p)) 1/2)))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 1/2))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (+ 1/2 (/ (* r (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2)) p))))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (/ 1/2 r)))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) (* p r))) (* 1/2 (/ 1 r))) (* 1/2 (/ 1 p)))))
#s(approx (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) #s(hole binary64 (/ 1/2 r)))
#s(approx (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) #s(hole binary64 (+ (* 1/2 (/ (+ (fabs p) (fabs r)) (* p r))) (* 1/2 (/ 1 r)))))
#s(approx (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) #s(hole binary64 (/ -1/2 r)))
#s(approx (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) #s(hole binary64 (- (* -1/2 (/ (+ (fabs p) (fabs r)) (* p r))) (* 1/2 (/ 1 r)))))
#s(approx (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) #s(hole binary64 (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (* -1 (pow q 2)))) p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow r 3)) (pow p 3))) (* -1 (pow q 2))))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2)))) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (+ (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2)) (/ (* (pow q 2) (- (* -1 (pow r 3)) (* (pow q 2) (+ (* -2 r) (* -1 r))))) (pow p 3))))) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ -1 p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 2) (pow p 2))) (/ (pow q 2) (pow p 2)))) 1) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 2) (pow p 2))) (+ (* -1 (/ (pow r 3) (pow p 3))) (/ (pow q 2) (pow p 2))))) (+ 1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow p 3)))) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ -1 p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2)))) 1) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ 1 p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (+ 1 (/ r p)) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p))) (* -1 (/ (pow r 2) (pow p 2)))) p)))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (/ r p))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (- (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p))) (* -1 (/ (pow r 2) (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ r p)))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (- (+ r (* -1 (/ (pow q 2) p))) (* -1 (/ (pow r 2) p))) p)))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ r p))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 r)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (- (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ -1 p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (/ (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) (pow p 2))) 1) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (/ (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) (pow p 2)) (/ (* (pow q 2) (- (* -1 (/ (pow r 3) (pow q 2))) (+ (* -2 r) (* -1 r)))) (pow p 3)))) 1) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ -1 (* p (pow q 2)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (* -1 (/ r (* p (pow q 2)))) (/ 1 (pow q 2))) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r (* p (pow q 2)))) (+ (* -1 (/ (pow r 2) (* (pow p 2) (pow q 2)))) (/ 1 (pow p 2)))) (/ 1 (pow q 2))) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r (* p (pow q 2)))) (+ (* -1 (/ (pow r 2) (* (pow p 2) (pow q 2)))) (+ (* -1 (/ (pow r 3) (* (pow p 3) (pow q 2)))) (/ 1 (pow p 2))))) (+ (* -2 (/ r (pow p 3))) (+ (* -1 (/ r (pow p 3))) (/ 1 (pow q 2))))) p)))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ 1 (pow p 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (+ 1 (* -1 (/ (+ (* -2 r) (* -1 r)) p))) (pow p 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (+ 1 (* -1 (/ (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))) (pow p 2)))) (+ (* -2 (/ r p)) (* -1 (/ r p)))) (pow p 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (+ 1 (* -1 (/ (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))))) (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (* -1 (pow r 3)))) (pow p 3)))) (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* -1 (/ (pow (+ (* -2 r) (* -1 r)) 2) (pow p 2))) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))) (pow p 3))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ 1 (* p (pow q 2)))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ (+ (/ 1 (pow q 2)) (/ r (* p (pow q 2)))) p)))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ (- (+ (/ 1 (pow q 2)) (/ (pow r 2) (* (pow p 2) (pow q 2)))) (* -1 (/ r (* p (pow q 2))))) p)))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ (- (+ (/ 1 (pow q 2)) (/ (pow r 3) (* (pow p 3) (pow q 2)))) (+ (* -1 (/ r (* p (pow q 2)))) (* -1 (/ (pow r 2) (* (pow p 2) (pow q 2)))))) p)))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (* p (pow q 2))))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (* p (+ (* -1 (/ (* (pow q 2) r) p)) (pow q 2)))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ -1 p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (+ 1 (/ r p))) p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (* -1 (/ (pow r 3) (pow p 3))) (+ 1 (+ (/ r p) (/ (pow r 2) (pow p 2))))) p)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p))) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))) 1/2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* -1 p)))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 -1))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 1))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (+ 1 (* -1 (/ r p)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* -1 (pow p 2))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow p 2) (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow p 2) (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* -1 (pow p 2))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* (pow p 2) (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 p))) #s(hole binary64 (* -1 p)))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 p))) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1))))
#s(approx (+ (fabs r) (* -1 p)) #s(hole binary64 (* -1 p)))
#s(approx (+ (fabs r) (* -1 p)) #s(hole binary64 (* p (- (/ (fabs r) p) 1))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 p))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* p (+ 1 (/ (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)) p)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 -1))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ p r)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (* p (pow r 2)))) (+ (/ 1 r) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))))) (/ 1 p)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2)))) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* -1/2 (/ (+ (* -2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))))) (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2)))))))) (pow p 3))) (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2))))) 1/2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 p)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (+ (* 2 (/ r p)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2))) (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow p 2)) (/ (pow r 2) (pow p 2)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (+ (* -1 (/ (+ (* -2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))))) (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2)))))))) (pow p 3))) (+ (* 2 (/ r p)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2)))) (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow p 2)) (/ (pow r 2) (pow p 2)))))))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (* -1 p)))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 -1))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (fabs r) (* -1 r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (fabs r) (* -1 r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (fabs r) (* -1 r)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1 (/ (pow q 2) p)) (+ (* 1/4 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) (pow p 3))) (* 1/2 (- (fabs r) (* -1 r))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (fabs r) (* -1 r))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -2 (/ (pow q 2) p))) (* -1 r))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -2 (/ (* (pow q 2) r) (pow p 2)))) (+ (* -1 r) (* 2 (/ (pow q 2) p))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* 1/2 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) (pow p 3)))) (+ (* -1 r) (+ (* 2 (/ (* (pow q 2) r) (pow p 2))) (* 2 (/ (pow q 2) p)))))))
#s(approx (+ (sqrt (* p p)) (fabs r)) #s(hole binary64 p))
#s(approx (+ (sqrt (* p p)) (fabs r)) #s(hole binary64 (* p (+ 1 (/ (fabs r) p)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -1 (pow p 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (* 2 (/ r p)) 1))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2)) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2)))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 p))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (/ (fabs p) p) (/ (fabs r) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (+ (* 2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 p))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow p 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow p 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (/ (pow r 2) (pow p 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (+ (fabs p) (fabs r)) r))) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r)))) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* (pow p 2) (- (* -1 (/ (+ (* -1/2 (/ (- (+ (fabs p) (fabs r)) (* 2 q)) p)) (* -1/4 (/ r q))) p)) (* 1/8 (/ 1 q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1 (* p (+ (* -1/4 (/ r (* p q))) (* 1/8 (/ 1 q)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))))) p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))))) p)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* p (+ (* -1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* p (+ (* -1 (/ (- (* 1/2 (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) (/ 1 (* p (pow q 4)))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* p (+ (* -1 (/ (+ (* -1 (/ (+ (/ 1 (pow q 4)) (/ r (* p (pow q 4)))) p)) (* 1/2 (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* -1 (* p (+ (* -1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* -1 (* p (+ (* -1 (/ (+ (* 1/2 (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) (/ 1 (* (pow p 3) (pow q 2)))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* -1 (* p (+ (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (+ (* 2 (/ r (pow q 2))) (/ r (pow q 2))) p)) (/ 1 (pow q 2))) (pow p 3))) (* 1/2 (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (* -1 (* p (+ (* -1 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (/ 1 (pow q 6)))))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ r (* 2 r)) (* p (pow q 2)))) (/ 1 (pow q 2))) (pow p 3)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* p (pow q 2)))) (/ (pow (+ r (* 2 r)) 2) (* p (pow q 2)))) (* -1 (/ (+ r (* 2 r)) (pow q 2)))) p)) (/ 1 (pow q 2))) (pow p 3)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ r (* 2 r)) (+ (* -1 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow q 2))) (/ (pow (+ r (* 2 r)) 2) (pow q 2)))) p)) (+ (* -1 (/ (pow r 3) (* p (pow q 2)))) (/ (* (+ r (* 2 r)) (+ (* 2 (pow r 2)) (pow r 2))) (* p (pow q 2))))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow q 2))) (/ (pow (+ r (* 2 r)) 2) (pow q 2)))) p)) (* -1 (/ (+ r (* 2 r)) (pow q 2)))) p)) (/ 1 (pow q 2))) (pow p 3)))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (* (pow p 3) (+ (* -1 (pow q 2)) (/ (* (pow q 2) (+ r (* 2 r))) p))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (* (pow p 3) (+ (* -1 (/ (+ (* -1 (* (pow q 2) (+ r (* 2 r)))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) p)) p)) (* -1 (pow q 2)))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (* (pow p 3) (+ (* -1 (/ (+ (* -1 (* (pow q 2) (+ r (* 2 r)))) (* -1 (/ (+ (* -1 (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2)))) (/ (* (pow q 2) (pow r 3)) p)) p))) p)) (* -1 (pow q 2)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow p 3) (- (+ (* 2 (/ r p)) (/ r p)) 1)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow p 3) (- (* -1 (/ (+ (* -1 (+ r (* 2 r))) (+ (* 2 (/ (pow r 2) p)) (/ (pow r 2) p))) p)) 1)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow p 3) (- (* -1 (/ (+ (* -1 (+ r (* 2 r))) (* -1 (/ (+ (* -1 (+ (* 2 (pow r 2)) (pow r 2))) (/ (pow r 3) p)) p))) p)) 1)))))
#s(approx (- p r) #s(hole binary64 (* -1 (* p (- (/ r p) 1)))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ r (* p (pow q 4)))) (/ 1 (pow q 4))) p))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ (/ r (pow q 4)) (/ (pow r 2) (* p (pow q 4)))) p)) (/ 1 (pow q 4))) p))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (pow r 2) (pow q 4))) (* -1 (/ (pow r 3) (* p (pow q 4))))) p)) (/ r (pow q 4))) p)) (/ 1 (pow q 4))) p))))
#s(approx (pow (- p r) -5) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ r (* 4 r)) p)) 1) (pow p 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 8 (pow r 2))) p)) (/ (pow (+ r (* 4 r)) 2) p)) (* -1 (+ r (* 4 r)))) p)) 1) (pow p 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ r (* 4 r)) (+ (* -1 (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow (+ r (* 4 r)) 2))) p)) (+ (* -1 (/ (+ (* 4 (pow r 3)) (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))) p)) (/ (* (+ r (* 4 r)) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) p))) (+ (* -1 (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow (+ r (* 4 r)) 2))) p)) (* -1 (+ r (* 4 r)))) p)) 1) (pow p 5)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ r (* p (pow q 4)))) (/ 1 (pow q 4))) p))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (/ (pow r 2) (* p (pow q 4))) (* -1 (/ r (pow q 4)))) p)) (/ 1 (pow q 4))) p))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (* -1 (/ (pow r 3) (* p (pow q 4)))) (/ (pow r 2) (pow q 4))) p)) (* -1 (/ r (pow q 4)))) p)) (/ 1 (pow q 4))) p))))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (* -1 (* p (+ (* -1 (pow q 4)) (/ (* (pow q 4) r) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow q 2) (pow r 2)) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow q 2) (pow r 3)) p) (* -1 (* (pow q 2) (pow r 2)))) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* (pow q 2) r) (/ (* (pow q 2) (pow r 2)) p)) p)) (* -1 (pow q 2))) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow r 2))) (* -1 (/ (* (pow q 2) (pow r 3)) p))) p)) (* (pow q 2) r)) p)) (* -1 (pow q 2))) p))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* 2 (/ (pow q 2) p))))) p)) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))) p)) 1)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 r)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ (* -1 r) (* 2 (/ (* (pow q 2) r) (pow p 2))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ (* -1 r) (+ (* 1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4))) (* 2 (/ (* (pow q 2) r) (pow p 2)))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ (* -1 r) (+ (* 1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4))) (+ (* 1/2 (/ (* r (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6)))) (pow p 6))) (* 2 (/ (* (pow q 2) r) (pow p 2))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ -1 p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (+ (* 2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 6) (pow p 6))))))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ -1 p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 p))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (fabs r)) p)) 1)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) p)))) p)) 1)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 2 (/ (pow q 4) (pow p 2))) (* 2 (pow q 2))) p)))) p)) 1)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (+ (* 2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 6) (pow p 6))))))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r)))) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 p))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* 2 (/ (pow q 2) p))))) p)) 1)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))) p)) 1)))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ -1 p)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (* -1 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (log (/ -1 p))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (log (/ -1 p)) (* -2 (/ (pow q 2) (pow p 2))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (log (/ -1 p)) (+ (* -2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 4) (pow p 4)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (log (/ -1 p)) (+ (* -32/3 (/ (pow q 6) (pow p 6))) (+ (* -2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 4) (pow p 4))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -2 (log (/ -1 p)))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* -2 (log (/ -1 p))) (* 4 (/ (pow q 2) (pow p 2))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* -8 (/ (pow q 4) (pow p 4))) (+ (* -2 (log (/ -1 p))) (* 4 (/ (pow q 2) (pow p 2)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* -8 (/ (pow q 4) (pow p 4))) (+ (* -2 (log (/ -1 p))) (+ (* 4 (/ (pow q 2) (pow p 2))) (* 64/3 (/ (pow q 6) (pow p 6))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 p)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (+ (fabs p) (fabs r))) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (pow q 2)) (/ (pow q 4) (pow p 2))) p)) (* 1/2 (+ (fabs p) (fabs r)))) p)) 1/2)))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p)))))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p)))) p)))))))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 (- (* -1 (/ (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) p))) p)) 1)))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (* -1 (/ (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) p))) p))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (- (/ (* r (+ 1/2 (* -1/2 (/ (+ (fabs p) (fabs r)) r)))) p) 1/2)))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (+ 1/2 (* -1 (/ (* r (+ 1/2 (* -1/2 (/ (+ (fabs p) (fabs r)) r)))) p)))))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (+ (* -1 (/ (+ 1/2 (* -1/2 (/ (+ (fabs p) (fabs r)) r))) p)) (* 1/2 (/ 1 r)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow q 2) (pow r 2)) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow q 2) (pow r 3)) p) (* -1 (* (pow q 2) (pow r 2)))) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2)))) p))) p)) (pow q 2)) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (* (pow q 2) (+ r (* 2 r))) (pow r 3))) p)) (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2))))) p))) p)) (pow q 2)) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (- (* (pow q 2) (+ r (* 2 r))) (pow r 3)) p)) (* -1 (pow q 2))) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p))) p))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* -1 (/ (- (* -1 (/ r p)) 1) p))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (+ r (* -1 (/ (pow q 2) p))) (* -1 (/ (pow r 2) p))) p)) 1) p))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* -1 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ (- (+ r (* -1 (/ (pow q 2) p))) (* -1 (/ (pow r 2) p))) p))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (+ (* -1 r) (/ (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) p)) p))) p))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (+ (* -1 r) (* -1 (/ (+ (* -1 (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2)))))) (* -1 (/ (* (pow q 2) (- (+ r (* 2 r)) (/ (pow r 3) (pow q 2)))) p))) p))) p))) p))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (/ 1 (pow q 2)) (/ r (* p (pow q 2)))) p))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (pow r 2) (* p (pow q 2)))) (/ 1 p)) (/ r (pow q 2))) p)) (/ 1 (pow q 2))) p))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (+ r (* 2 r)) (/ (pow r 3) (pow q 2))) p)) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) p)) (/ r (pow q 2))) p)) (/ 1 (pow q 2))) p))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ r (* 2 r)) p)) 1) (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (+ (* 2 (pow r 2)) (pow r 2)) p)) (/ (pow (+ r (* 2 r)) 2) p)) (* -1 (+ r (* 2 r)))) p)) 1) (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ r (* 2 r)) (+ (* -1 (+ (* 2 (pow r 2)) (pow r 2))) (pow (+ r (* 2 r)) 2))) p)) (+ (* -1 (/ (pow r 3) p)) (/ (* (+ r (* 2 r)) (+ (* 2 (pow r 2)) (pow r 2))) p))) (+ (* -1 (+ (* 2 (pow r 2)) (pow r 2))) (pow (+ r (* 2 r)) 2))) p)) (* -1 (+ r (* 2 r)))) p)) 1) (pow p 3)))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ r (* p (pow q 2)))) (/ 1 (pow q 2))) p))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (/ (pow r 2) (* p (pow q 2))) (* -1 (/ r (pow q 2)))) p)) (/ 1 (pow q 2))) p))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (* -1 (/ (pow r 3) (* p (pow q 2)))) (/ (pow r 2) (pow q 2))) p)) (* -1 (/ r (pow q 2)))) p)) (/ 1 (pow q 2))) p))))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (* -1 (* p (+ (* -1 (pow q 2)) (/ (* (pow q 2) r) p))))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (/ (pow r 3) p) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (+ (fabs p) (fabs r)) r))) p)) 1/2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (fabs r)) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) p)))) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p)))) r) p)) 1)))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* -1 (* p (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))) (/ r p))))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) r) p)) 1)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ r p)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -2 (/ (pow q 2) p))) p)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) p)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* p (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))) (/ r p))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ (* -2 (/ (pow q 2) p)) (* -1 (- (* -1 (+ (fabs p) (fabs r))) r))) p)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p)))) (* -1 r)) p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow p 2) (- (* -1 (/ (+ (* -1 (- (+ (fabs p) (fabs r)) (* -1 r))) (* 2 (/ (pow q 2) p))) p)) 1))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 p))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p)))))))
#s(approx (+ (fabs r) (* -1 p)) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (fabs r) p)))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* p (- (* -1 (/ (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)) p)) 1)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) r) p)) 1)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) p))) r) p)) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1) p)) (/ 1 r))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))) (* 1/2 (/ (+ (* 2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) (* (+ r (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))))) p))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 p))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 r) (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p))) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 r) (* -1 (/ (- (+ (* 2 (/ (* (pow q 2) r) p)) (+ (* 2 (/ (* (pow q 2) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) p)) (+ (/ (* (+ r (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))) p) (pow (+ (fabs p) (fabs r)) 2)))) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p))) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (* -1 (* p (- (+ 1 (* -2 (/ r p))) (+ (* -1 (/ r p)) (+ (/ (fabs p) p) (/ (fabs r) p))))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (- (* -1 (/ (- (* -2 r) (+ (fabs p) (+ (fabs r) (* -1 r)))) p)) 1)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (fabs r) r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (fabs r) r)) (/ (pow q 2) p))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (fabs r) r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) p)) (* (pow q 2) r)) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (fabs r) r)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (fabs r) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* 2 (/ (pow q 2) p))) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -1 (/ (- (* -1 (/ (- (* -1/2 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) p)) (* -2 (* (pow q 2) r))) p)) (* 2 (pow q 2))) p))) r)))
#s(approx (+ (sqrt (* p p)) (fabs r)) #s(hole binary64 (* -1 p)))
#s(approx (+ (sqrt (* p p)) (fabs r)) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (fabs r) p)))))))
#s(approx (sqrt (* p p)) #s(hole binary64 (* -1 p)))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (* -1 (/ (- (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) p)) (* 2 r)) p)) 1))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 p)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p))))) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))) p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ r p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -2 (/ (pow q 2) p))) p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) p)))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow r 2)) p)) (* 2 r)) p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow r 2) p)) (* 2 r)) p))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))))
#s(approx (fabs r) #s(hole binary64 (fabs r)))
#s(approx r #s(hole binary64 r))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (* 1/4 (/ (* p r) q)))))
#s(approx (* 1/4 (/ r q)) #s(hole binary64 (* 1/4 (/ r q))))
#s(approx (/ r q) #s(hole binary64 (/ r q)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2)))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* (pow q 2) (* r (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2))))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* r (+ (* (pow q 2) (* r (- (* (pow q 2) (- (+ (* 2 (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ 1 (pow p 6))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7)))))) (/ 1 (pow p 4))))) (* (pow q 2) (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3)))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2))))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* (pow q 6) (* r (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4))))))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 6) (* r (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4))))))))) (* (pow q 6) (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* r (+ (* r (+ (* -1 (* (pow q 6) (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4)))))))) (* (pow q 6) (* r (- (/ 1 (* (pow p 6) (pow q 2))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (* 3 (/ 1 (* (pow p 5) (pow q 2)))))) (pow p 3))) (+ (* 2 (- (* 4 (/ 1 (pow p 8))) (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (pow p 5))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow p 10))) (* 5 (/ (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))) (pow p 11))))))) (+ (* 3 (/ (+ p (* 2 p)) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 4) (pow q 4))))))))))) (* (pow q 6) (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* (pow p 3) (pow q 2))))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (- (+ (* -1 (* r (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4)))))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2)))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* (pow p 3) (pow q 2))))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (- (+ (* 1/2 (/ 1 (pow q 6))) (+ (* 3 (/ 1 (* (pow p 4) (pow q 2)))) (* r (- (* r (- (/ 1 (* (pow p 6) (pow q 2))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (* 3 (/ 1 (* (pow p 5) (pow q 2)))))) (pow p 3))) (+ (* 2 (- (* 4 (/ 1 (pow p 8))) (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (pow p 5))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow p 10))) (* 5 (/ (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))) (pow p 11))))))) (+ (* 3 (/ (+ p (* 2 p)) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 4) (pow q 4)))))))) (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4)))))))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* (pow p 3) (pow q 2))))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (+ (* 3 (/ 1 (* (pow p 4) (pow q 2)))) (* 1/2 (/ 1 (pow q 6))))) (/ 1 (* (pow p 3) (pow q 2)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (+ (* -1 (* r (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2))))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))))) (/ 1 (* (pow p 3) (pow q 2)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (+ (* 1/2 (/ 1 (pow q 6))) (+ (* 3 (/ 1 (* (pow p 4) (pow q 2)))) (* r (- (* r (- (/ 1 (* (pow p 6) (pow q 2))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (* 3 (/ 1 (* (pow p 5) (pow q 2)))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (* (pow p 7) (pow q 2))))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))))))))) (/ 1 (* (pow p 3) (pow q 2)))))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (- (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) (/ p (pow q 6)))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (- (+ (fabs p) (fabs r)) p)))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (+ r (+ (fabs p) (fabs r))) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (+ (* 3 (/ r (* (pow p 4) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 2))))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (+ (* r (+ (* -1 (* r (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2))))))) (* 3 (/ 1 (* (pow p 4) (pow q 2)))))) (/ 1 (* (pow p 3) (pow q 2))))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (+ (* r (+ (* r (- (* r (- (/ 1 (* (pow p 6) (pow q 2))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (* 3 (/ 1 (* (pow p 5) (pow q 2)))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (* (pow p 7) (pow q 2))))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2))))))) (* 3 (/ 1 (* (pow p 4) (pow q 2)))))) (/ 1 (* (pow p 3) (pow q 2))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* (pow p 3) (pow q 2)) (* (pow q 2) (* r (+ (* -2 (pow p 2)) (* -1 (pow p 2))))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* r (+ (* (pow q 2) (* r (+ p (* 2 p)))) (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))))) (* (pow p 3) (pow q 2)))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* r (+ (* r (+ (* -1 (* (pow q 2) r)) (* (pow q 2) (+ p (* 2 p))))) (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))))) (* (pow p 3) (pow q 2)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* r (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* r (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (* r (+ p (* 2 p)))))) (pow p 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* r (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (* r (+ p (+ (* -1 r) (* 2 p))))))) (pow p 3))))
#s(approx (- p r) #s(hole binary64 (+ p (* -1 r))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (+ (/ 1 (* p (pow q 4))) (* 2 (/ 1 (pow p 5))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (+ (* 2 (/ 1 (pow p 5))) (+ (* r (+ (/ 1 (* (pow p 2) (pow q 4))) (* 10 (/ 1 (pow p 6))))) (/ 1 (* p (pow q 4)))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (+ (* 2 (/ 1 (pow p 5))) (+ (* r (+ (* 10 (/ 1 (pow p 6))) (+ (* r (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (/ 1 (* (pow p 3) (pow q 4))))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* p (pow q 4)))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (+ (* 2 (/ 1 (pow p 5))) (+ (* r (+ (* 10 (/ 1 (pow p 6))) (+ (* r (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* r (+ (* 2 (- (* 4 (/ 1 (pow p 8))) (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (pow p 5))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow p 10))) (* 5 (/ (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))) (pow p 11))))))) (/ 1 (* (pow p 4) (pow q 4))))) (/ 1 (* (pow p 3) (pow q 4)))))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* p (pow q 4)))))))
#s(approx (pow (- p r) -5) #s(hole binary64 (+ (* 5 (/ r (pow p 6))) (/ 1 (pow p 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (+ (* r (+ (* -1 (* r (+ (* 4 (/ 1 (pow p 7))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 6 (/ 1 (pow p 7))))))) (* 5 (/ 1 (pow p 6))))) (/ 1 (pow p 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (+ (* r (+ (* r (- (* r (- (* 4 (/ 1 (pow p 8))) (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (pow p 5))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow p 10))) (* 5 (/ (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))) (pow p 11))))))) (+ (* 4 (/ 1 (pow p 7))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 6 (/ 1 (pow p 7))))))) (* 5 (/ 1 (pow p 6))))) (/ 1 (pow p 5)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (+ (/ 1 (* p (pow q 4))) (/ r (* (pow p 2) (pow q 4))))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (+ (* r (+ (/ 1 (* (pow p 2) (pow q 4))) (/ r (* (pow p 3) (pow q 4))))) (/ 1 (* p (pow q 4))))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (+ (* r (+ (* r (+ (/ 1 (* (pow p 3) (pow q 4))) (/ r (* (pow p 4) (pow q 4))))) (/ 1 (* (pow p 2) (pow q 4))))) (/ 1 (* p (pow q 4))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (+ (fabs p) (fabs r)) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (* -1 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (* -1 (/ (pow q 2) p)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (/ (* (pow q 2) r) (pow p 2)) (/ (pow q 2) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* r (- (/ (* (pow q 2) r) (pow p 3)) (* -1 (/ (pow q 2) (pow p 2))))) (/ (pow q 2) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* r (- (* r (- (/ (* (pow q 2) r) (pow p 4)) (* -1 (/ (pow q 2) (pow p 3))))) (* -1 (/ (pow q 2) (pow p 2))))) (/ (pow q 2) p))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p)))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) p))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (+ (* 1/2 r) (* 1/2 (- (+ (fabs p) (fabs r)) p)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (- (+ (fabs p) (fabs r)) p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (+ (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2))) (* -1/2 r))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (- (+ (* -1/2 (/ (+ (fabs p) (fabs r)) p)) (* 1/2 (/ r p))) 1/2)))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (- (+ (* -1/2 (/ (+ (fabs p) (fabs r)) p)) (* 1/2 (/ r p))) 1/2)))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (* -1 (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2))))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (+ (* -1 (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)) (* -1/2 (/ r p)))))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r))))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (/ (+ (* -1 (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)) (* -1/2 (/ r p))) r)))
#s(approx (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) #s(hole binary64 (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r))))
#s(approx (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) #s(hole binary64 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (* -1 (/ (pow q 2) p)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))) (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4)))))))) (* -1 (* (pow q 2) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (+ r (fabs p)) #s(hole binary64 (fabs p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* -1 (* (pow q 2) (* r (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))) (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4)))))))) (* -1 (* (pow q 2) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (/ (pow q 2) (pow p 3)) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* -1 (* r (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (* -1 (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (* r (- (* -1 (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4))))))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (+ (* -1 (/ r (pow p 2))) (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (+ (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p)) (* r (- (* -1 (/ r (pow p 3))) (/ 1 (pow p 2)))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 3))) (+ (/ 1 p) (/ r (pow p 2))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 3))) (+ (* r (+ (/ 1 (pow p 2)) (/ r (pow p 3)))) (/ 1 p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (* -1 (/ (pow q 2) (pow p 2))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (/ 1 p) (/ r (pow p 2))))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* -1 (/ (pow q 2) (pow p 2)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (/ 1 p) (/ r (pow p 2)))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (pow q 2) (pow p 2))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (+ (* -1 (/ r p)) (/ (pow q 2) (pow p 2)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (+ (* r (- (* -1 (/ r (pow p 2))) (/ 1 p))) (/ (pow q 2) (pow p 2)))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (/ (pow q 2) p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (+ (* -1 r) (/ (pow q 2) p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (+ (* r (- (* -1 (/ r p)) 1)) (/ (pow q 2) p))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (/ (pow q 2) p)))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (+ (* -1 (/ (pow r 2) p)) (/ (pow q 2) p))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (/ (pow r 2) p))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (* -1 (pow q 2))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (+ (* -1 (pow q 2)) (pow r 2))))
#s(approx (* -1 (* r r)) #s(hole binary64 (* -1 (pow r 2))))
#s(approx (* r r) #s(hole binary64 (pow r 2)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* (pow q 2) (* r (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2)))))) (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (* r (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2)))))))) (* (pow q 2) (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2))))))) (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* r (+ (* r (+ (* -1 (* (pow q 2) (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2))))))) (* (pow q 2) (* r (- (/ 1 (pow p 6)) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (+ (* 3 (/ (+ p (* 2 p)) (pow p 7))) (/ 1 (* (pow p 4) (pow q 2)))))))))) (* (pow q 2) (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2))))))) (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* r (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2))))) (/ 1 (pow p 3))) (/ 1 (* p (pow q 2))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* r (- (+ (* -1 (* r (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2))))))) (* 3 (/ 1 (pow p 4)))) (/ 1 (* (pow p 2) (pow q 2))))) (/ 1 (pow p 3))) (/ 1 (* p (pow q 2))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* r (- (+ (* 3 (/ 1 (pow p 4))) (* r (- (* r (- (/ 1 (pow p 6)) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (+ (* 3 (/ (+ p (* 2 p)) (pow p 7))) (/ 1 (* (pow p 4) (pow q 2))))))) (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2)))))))) (/ 1 (* (pow p 2) (pow q 2))))) (/ 1 (pow p 3))) (/ 1 (* p (pow q 2))))))
#s(approx (pow (- p r) -3) #s(hole binary64 (+ (* 3 (/ r (pow p 4))) (/ 1 (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (+ (* r (+ (* -1 (* r (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (+ (* r (+ (* r (- (* r (- (/ 1 (pow p 6)) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7)))))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 3)))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (+ (/ 1 (* p (pow q 2))) (/ r (* (pow p 2) (pow q 2))))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (+ (* r (+ (/ 1 (* (pow p 2) (pow q 2))) (/ r (* (pow p 3) (pow q 2))))) (/ 1 (* p (pow q 2))))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (+ (* r (+ (* r (+ (/ 1 (* (pow p 3) (pow q 2))) (/ r (* (pow p 4) (pow q 2))))) (/ 1 (* (pow p 2) (pow q 2))))) (/ 1 (* p (pow q 2))))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (- (* -1 (/ r (pow p 2))) (/ 1 p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (- (* r (- (* -1 (/ r (pow p 3))) (/ 1 (pow p 2)))) (/ 1 p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (- (* r (- (* r (- (* -1 (/ r (pow p 4))) (/ 1 (pow p 3)))) (/ 1 (pow p 2)))) (/ 1 p))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* -1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* r (- (* -1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (+ r (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (+ r (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))) p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (+ r (+ (* -2 (/ (pow q 2) p)) (+ (fabs p) (+ (fabs r) (* -1 p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (+ (* p r) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (+ (* p r) (* p (+ (fabs p) (+ (fabs r) (* -1 p)))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (+ (fabs p) (+ (fabs r) (* -1 p)))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (+ r (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (* -1 r) #s(hole binary64 (* -1 r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -2 (/ (pow q 2) r))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (fabs r)) (* -1 p)))) r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (+ (fabs r) (* -1 r))) (* -1 p)))) r)))
#s(approx (* -2 (/ (* q q) r)) #s(hole binary64 (* -2 (/ (pow q 2) r))))
#s(approx (/ (* q q) r) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* -2 (/ (pow q 2) (pow r 2)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (fabs r)) (* -1 p)))) (pow r 2))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (+ (fabs r) (* -1 r))) (* -1 p)))) (pow r 2))))
#s(approx (* -2 (* (/ q r) (/ q r))) #s(hole binary64 (* -2 (/ (pow q 2) (pow r 2)))))
#s(approx (* (/ q r) (/ q r)) #s(hole binary64 (/ (pow q 2) (pow r 2))))
#s(approx (/ q r) #s(hole binary64 (/ q r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* r (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* -1/2 (* r (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))) (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (* r (+ (* -1/2 (* r (+ (* 1/2 (* (/ (* p (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* (/ (* p (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* -1/2 (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (+ (* -1 (* r (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))) (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (+ (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (- (* -1 (* r (+ (* 1/2 (* (/ (* p (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* (/ (* p (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p)))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (+ r (* -1 (* p (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (* -1 (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (- (/ r p) (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p)))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (+ 1 (+ (* -1 (/ (+ (fabs p) (fabs r)) p)) (/ r p)))))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) #s(hole binary64 (* -1 (/ (+ (fabs p) (fabs r)) p))))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) #s(hole binary64 (+ (* -1 (/ (+ (fabs p) (fabs r)) p)) (/ r p))))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) #s(hole binary64 (/ (+ (fabs p) (fabs r)) p)))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) #s(hole binary64 (+ (* -1 (/ r p)) (+ (/ (fabs p) p) (/ (fabs r) p)))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 r))) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (+ (fabs r) (* -1 r)) #s(hole binary64 (fabs r)))
#s(approx (+ (fabs r) (* -1 r)) #s(hole binary64 (+ (fabs r) (* -1 r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (+ (fabs r) (* r (- (* -1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (+ (fabs r) (* r (- (* r (- (* -1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (neg r) #s(hole binary64 (* -1 r)))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* 2 (* p r)) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* r (- (* -1 r) (* -2 p))) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* r (+ r (* -2 p))) (pow p 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow p 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* r (+ r (* -2 p))) (pow p 2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* 1/4 (/ (* p r) q))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* r (+ (* -1/8 (/ (pow p 2) (* q r))) (+ (* 1/4 (/ p q)) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* 2 q)) r)))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* r (+ (* -1/8 (/ (pow p 2) (* q r))) (* 1/4 (/ p q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* r (+ (* -1/8 (/ p (* q r))) (* 1/4 (/ 1 q))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* 1/2 (/ r (pow q 6)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* r (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* r (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (+ (/ 1 (* (pow q 4) (pow r 2))) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* r (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (+ (/ 1 (* (pow q 4) (pow r 2))) (+ (* 1/2 (/ 1 (pow q 6))) (/ p (* (pow q 4) (pow r 3)))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* 1/2 (/ r (pow q 6)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* r (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* r (- (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6)))) (/ 1 (* (pow q 2) (pow r 4)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* r (- (+ (* -1 (/ (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2))) (pow r 5))) (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6))))) (/ 1 (* (pow q 2) (pow r 4)))))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (/ r (pow q 6))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (* r (- (+ (/ 1 (pow q 6)) (+ (/ (fabs p) (* (pow q 6) r)) (/ (fabs r) (* (pow q 6) r)))) (/ p (* (pow q 6) r))))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 r))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (* r (- (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))) (/ p r)))))
#s(approx (+ r (+ (fabs p) (fabs r))) #s(hole binary64 r))
#s(approx (+ r (+ (fabs p) (fabs r))) #s(hole binary64 (* r (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ (- (* -1 (/ (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2))) r)) (/ 1 (pow q 2))) (pow r 3))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ (- (* -1 (/ (+ (* -2 (/ (pow p 2) (pow q 2))) (+ (* -1 (/ (pow p 2) (pow q 2))) (* (+ p (* 2 p)) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2)))))) (pow r 2))) (+ (* 2 (/ p (* (pow q 2) r))) (+ (/ 1 (pow q 2)) (/ p (* (pow q 2) r))))) (pow r 3))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ (- (* -1 (/ (+ (* (+ p (* 2 p)) (+ (* -2 (/ (pow p 2) (pow q 2))) (+ (* -1 (/ (pow p 2) (pow q 2))) (* (+ p (* 2 p)) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2))))))) (+ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2)))) (/ (pow p 3) (pow q 2)))) (pow r 3))) (+ (* -2 (/ (pow p 2) (* (pow q 2) (pow r 2)))) (+ (* -1 (/ (pow p 2) (* (pow q 2) (pow r 2)))) (+ (* 2 (/ p (* (pow q 2) r))) (+ (/ 1 (pow q 2)) (+ (/ p (* (pow q 2) r)) (/ (* (+ p (* 2 p)) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2)))) (pow r 2)))))))) (pow r 3))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow r 3) (+ (* -1 (pow q 2)) (/ (* (pow q 2) (+ p (* 2 p))) r)))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow r 3) (+ (* -1 (pow q 2)) (+ (/ (* (pow q 2) (+ p (* 2 p))) r) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow r 2)))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow r 3) (+ (* -1 (pow q 2)) (+ (/ (* (pow p 3) (pow q 2)) (pow r 3)) (+ (/ (* (pow q 2) (+ p (* 2 p))) r) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow r 2))))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow r 3) (- (+ (* 2 (/ p r)) (/ p r)) 1))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow r 3) (- (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (/ p r)))) 1))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow r 3) (- (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (+ (/ p r) (/ (pow p 3) (pow r 3)))))) 1))))
#s(approx (- p r) #s(hole binary64 (* r (- (/ p r) 1))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ -1 (* (pow q 4) r))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ (- (* -1 (/ p (* (pow q 4) r))) (/ 1 (pow q 4))) r)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ (- (* -1 (/ (pow p 2) (* (pow q 4) (pow r 2)))) (+ (/ 1 (pow q 4)) (/ p (* (pow q 4) r)))) r)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ (- (* -1 (/ (pow p 3) (* (pow q 4) (pow r 3)))) (+ (/ 1 (pow q 4)) (+ (/ p (* (pow q 4) r)) (/ (pow p 2) (* (pow q 4) (pow r 2)))))) r)))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ (- (* -1 (/ (+ p (* 4 p)) r)) 1) (pow r 5))))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ (- (* -1 (/ (+ (* -4 (pow p 2)) (+ (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))) (pow (+ p (* 4 p)) 2))) (pow r 2))) (+ 1 (+ (* 4 (/ p r)) (/ p r)))) (pow r 5))))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ (- (* -1 (/ (+ (* 4 (pow p 3)) (+ (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))) (+ (* (+ p (* 4 p)) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (* (+ p (* 4 p)) (+ (* -4 (pow p 2)) (+ (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))) (pow (+ p (* 4 p)) 2))))))) (pow r 3))) (+ 1 (+ (* -4 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow r 2))) (+ (* 4 (/ p r)) (+ (/ p r) (/ (pow (+ p (* 4 p)) 2) (pow r 2)))))))) (pow r 5))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ (- (* -1 (/ p (* (pow q 4) r))) (/ 1 (pow q 4))) r)))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ (- (* -1 (/ (pow p 2) (* (pow q 4) (pow r 2)))) (+ (/ 1 (pow q 4)) (/ p (* (pow q 4) r)))) r)))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ (- (* -1 (/ (pow p 3) (* (pow q 4) (pow r 3)))) (+ (/ 1 (pow q 4)) (+ (/ p (* (pow q 4) r)) (/ (pow p 2) (* (pow q 4) (pow r 2)))))) r)))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (* r (+ (* -1 (pow q 4)) (/ (* p (pow q 4)) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (pow q 2))) r)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (+ (/ (* (pow p 3) (pow q 2)) (pow r 3)) (pow q 2)))) r)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow p 2) (pow q 2)) (pow r 2))) (* -1 (pow q 2))) (/ (* p (pow q 2)) r)) r)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow p 3) (pow q 2)) (pow r 3))) (* -1 (pow q 2))) (+ (/ (* p (pow q 2)) r) (/ (* (pow p 2) (pow q 2)) (pow r 2)))) r)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* r (- (+ (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))) (+ (/ (fabs p) r) (/ (fabs r) r))) (* (/ 1 r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* r (- (+ (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))) (+ (/ (fabs p) r) (/ (fabs r) r))) (* (/ 1 r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* 1/2 r)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 r))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* r (- (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))) (/ p r)))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1/2 r)))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* r (- (* -1 (/ (* p (- (* -1/2 (+ (/ (fabs p) p) (/ (fabs r) p))) 1/2)) r)) 1/2))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* 1/2 (/ r p))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* r (- (+ (* -1/2 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (* 1/2 (/ 1 p))) (* 1/2 (/ 1 r))))))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (* 1/2 (/ r p))))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (* r (- (+ (* -1/2 (/ (+ (fabs p) (fabs r)) (* p r))) (* 1/2 (/ 1 p))) (* 1/2 (/ 1 r))))))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (* -1/2 (/ r p))))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (/ 1 p))))))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (/ -1/2 p)))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (/ 1 p)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (pow q 2))) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (+ (/ (* (pow p 3) (pow q 2)) (pow r 3)) (pow q 2)))) r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 r))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (* r (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))))))
#s(approx (+ r (fabs p)) #s(hole binary64 r))
#s(approx (+ r (fabs p)) #s(hole binary64 (* r (+ 1 (/ (fabs p) r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (pow q 2))) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (+ (/ (* (pow q 2) (- (pow p 3) (* (pow q 2) (+ p (* 2 p))))) (pow r 3)) (pow q 2)))) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ 1 r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (/ (pow p 2) (pow r 2))))) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ 1 (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (+ (/ (pow p 2) (pow r 2)) (/ (pow p 3) (pow r 3)))))) (/ (* (pow q 2) (+ p (* 2 p))) (pow r 3))) r)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (pow r 2) (pow p 3)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (* (pow r 2) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3)))))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ (* -1 (/ (pow q 2) (pow p 3))) (/ 1 p)) (pow r 2))) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3)))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (pow r 2) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow r 2) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* (pow p 3) (pow r 2)))) (+ (/ 1 (* p (pow r 2))) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3))))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (pow r 2) (pow p 2))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow r 2) (+ (/ 1 (* p r)) (/ 1 (pow p 2))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* (pow p 2) (pow r 2)))) (+ (/ 1 (* p r)) (+ (/ 1 (pow p 2)) (/ 1 (pow r 2))))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (pow r 2) (pow p 2))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow r 2) (+ (/ 1 (* p r)) (/ 1 (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* (pow p 2) (pow r 2)))) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ (pow r 2) (pow p 2)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (* (pow r 2) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* (pow r 2) (- (/ (pow q 2) (* (pow p 2) (pow r 2))) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 (/ (pow r 2) p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 (* (pow r 2) (+ (/ 1 p) (/ 1 r))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* (pow r 2) (- (/ (pow q 2) (* p (pow r 2))) (+ (/ 1 p) (/ 1 r))))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* -1 (/ (pow r 2) p))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* (pow r 2) (- (/ (pow q 2) (* p (pow r 2))) (/ 1 p)))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (/ (pow r 2) p)))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* p (pow r 2)))) (/ 1 p)))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (pow r 2)))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (pow q 2) (pow r 2)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ 1 r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (+ 1 (+ (/ p r) (/ (* (pow q 2) (- (/ (pow p 2) (pow q 2)) 1)) (pow r 2)))) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (+ 1 (+ (/ p r) (+ (/ (* (pow q 2) (- (/ (pow p 2) (pow q 2)) 1)) (pow r 2)) (/ (* (pow q 2) (- (/ (pow p 3) (pow q 2)) (+ p (* 2 p)))) (pow r 3))))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ 1 (* (pow q 2) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (+ (/ 1 (pow q 2)) (/ p (* (pow q 2) r))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (/ 1 (pow q 2)) (+ (/ p (* (pow q 2) r)) (/ (pow p 2) (* (pow q 2) (pow r 2))))) (/ 1 (pow r 2))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (/ 1 (pow q 2)) (+ (/ p (* (pow q 2) r)) (+ (/ (pow p 2) (* (pow q 2) (pow r 2))) (/ (pow p 3) (* (pow q 2) (pow r 3)))))) (+ (* 2 (/ p (pow r 3))) (+ (/ 1 (pow r 2)) (/ p (pow r 3))))) r)))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (* -1 (/ (+ p (* 2 p)) r)) 1) (pow r 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (* -1 (/ (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2))) (pow r 2))) (+ 1 (+ (* 2 (/ p r)) (/ p r)))) (pow r 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (* -1 (/ (+ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (+ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2)))) (pow p 3))) (pow r 3))) (+ 1 (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (+ (/ p r) (/ (pow (+ p (* 2 p)) 2) (pow r 2)))))))) (pow r 3))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ (- (* -1 (/ p (* (pow q 2) r))) (/ 1 (pow q 2))) r)))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ (- (* -1 (/ (pow p 2) (* (pow q 2) (pow r 2)))) (+ (/ 1 (pow q 2)) (/ p (* (pow q 2) r)))) r)))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ (- (* -1 (/ (pow p 3) (* (pow q 2) (pow r 3)))) (+ (/ 1 (pow q 2)) (+ (/ p (* (pow q 2) r)) (/ (pow p 2) (* (pow q 2) (pow r 2)))))) r)))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (* r (+ (* -1 (pow q 2)) (/ (* p (pow q 2)) r)))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (+ 1 (/ (pow p 2) (pow r 2))) (* -1 (/ p r))) r)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (+ 1 (/ (pow p 3) (pow r 3))) (+ (* -1 (/ p r)) (* -1 (/ (pow p 2) (pow r 2))))) r)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (* p (pow q 2)) (pow r 3))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 r))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* r (+ 1 (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)) r)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (/ r p)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (* r (- (+ (/ 1 p) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r)))) (/ 1 r)))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (* r (- (/ 1 r) (/ 1 p)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (* -1 (/ p r))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 r))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* r (+ 1 (/ (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)) r)))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 r))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* r (+ 1 (+ (* -2 (/ (pow q 2) (* p r))) (+ (* -1 (/ p r)) (+ (/ (fabs p) r) (/ (fabs r) r))))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* p r)))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* r (+ p (+ (* -2 (/ (pow q 2) r)) (/ (* p (+ (fabs p) (+ (fabs r) (* -1 p)))) r))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p r)))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* r (+ p (/ (* p (+ (fabs p) (+ (fabs r) (* -1 p)))) r)))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 r))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (/ (fabs p) r) (/ (fabs r) r)))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ r p)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (* (pow p 2) r))) (+ (/ 1 p) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))))) (/ 1 r)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 -1))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2)))) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* -1/2 (/ (+ (* -2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))))) (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2)))))))) (pow r 3))) (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2))))) 1/2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 r)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (* 2 (/ p r)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (+ (* 2 (/ p r)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2))) (+ 1 (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow r 2)) (/ (pow p 2) (pow r 2)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (+ (* -1 (/ (+ (* -2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))))) (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2)))))))) (pow r 3))) (+ (* 2 (/ p r)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2)))) (+ 1 (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow r 2)) (/ (pow p 2) (pow r 2)))))))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 r))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (* r (+ 1 (* -1 (/ (* p (+ 1 (* -1 (+ (/ (fabs p) p) (/ (fabs r) p))))) r))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (/ r p)))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (* r (+ (* -1 (/ (+ 1 (* -1 (+ (/ (fabs p) p) (/ (fabs r) p)))) r)) (/ 1 p)))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (/ r p)))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (* r (+ (* -1 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (+ (/ 1 p) (/ 1 r))))))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) #s(hole binary64 (/ r p)))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) #s(hole binary64 (* r (+ (* -1 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (/ 1 p)))))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) #s(hole binary64 (* -1 (/ r p))))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) #s(hole binary64 (* r (- (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))) (/ 1 p)))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 r))) #s(hole binary64 (* -1 r)))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 r))) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) 1))))
#s(approx (+ (fabs r) (* -1 r)) #s(hole binary64 (* -1 r)))
#s(approx (+ (fabs r) (* -1 r)) #s(hole binary64 (* r (- (/ (fabs r) r) 1))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ p (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ p (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ p (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (/ p r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ p r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (* p (pow q 2)) (pow r 3))) (+ (/ p r) (/ (fabs r) r))) (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -1 (pow r 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (* 2 (/ p r)) 1))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2)) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2)))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (/ (fabs p) r) (/ (fabs r) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (+ (* 2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (* -1 (/ p r))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow r 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (/ (pow p 2) (pow r 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* r (+ (* -1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 (* r (+ (* -1 (/ (+ (* -1/8 (/ (pow p 2) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))) r)) (* -1/4 (/ p q)))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* -1 (* r (+ (* -1/4 (/ p q)) (* 1/8 (/ (pow p 2) (* q r))))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1 (* r (- (* 1/8 (/ p (* q r))) (* 1/4 (/ 1 q)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r)) 1/2)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))))) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))))) r)) 1/2)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) (/ 1 (* (pow q 4) r))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (- (* -1 (/ p (* (pow q 4) r))) (/ 1 (pow q 4))) r)) (* 1/2 (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (* 1/2 (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) (/ 1 (* (pow q 2) (pow r 3)))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* 2 (/ p (* (pow q 2) r))) (+ (/ 1 (pow q 2)) (/ p (* (pow q 2) r)))) (pow r 3))) (* 1/2 (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (/ 1 (pow q 6)))))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (+ r (+ (fabs p) (fabs r))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (fabs r)) r)) 1)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (* -1 (/ (+ (* 2 (/ p (* (pow q 2) r))) (+ (/ 1 (pow q 2)) (/ p (* (pow q 2) r)))) (pow r 3)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (* (+ p (* 2 p)) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2)))) r)) (+ (* 2 (/ (pow p 2) (* (pow q 2) r))) (/ (pow p 2) (* (pow q 2) r)))) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2)))) r)) (/ 1 (pow q 2))) (pow r 3)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ p (* 2 p)) (+ (* -1 (* (+ p (* 2 p)) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2))))) (+ (* 2 (/ (pow p 2) (pow q 2))) (/ (pow p 2) (pow q 2))))) r)) (+ (* -1 (/ (* (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2))) (+ (* 2 (pow p 2)) (pow p 2))) r)) (/ (pow p 3) (* (pow q 2) r)))) (+ (* -1 (* (+ p (* 2 p)) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2))))) (+ (* 2 (/ (pow p 2) (pow q 2))) (/ (pow p 2) (pow q 2))))) r)) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2)))) r)) (/ 1 (pow q 2))) (pow r 3)))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (* (pow r 3) (+ (* -1 (/ (* (pow q 2) (+ p (* 2 p))) r)) (pow q 2))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (* (pow r 3) (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* 2 (pow p 2)) (pow p 2))) r)) (* (pow q 2) (+ p (* 2 p)))) r)) (pow q 2))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (* (pow r 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow p 3) (pow q 2)) r)) (* (pow q 2) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (* (pow q 2) (+ p (* 2 p)))) r)) (pow q 2))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow r 3) (+ 1 (* -1 (/ (+ p (* 2 p)) r)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow r 3) (+ 1 (* -1 (/ (+ p (+ (* -1 (/ (+ (* 2 (pow p 2)) (pow p 2)) r)) (* 2 p))) r)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow r 3) (+ 1 (* -1 (/ (+ p (+ (* -1 (/ (+ (* -1 (/ (pow p 3) r)) (+ (* 2 (pow p 2)) (pow p 2))) r)) (* 2 p))) r)))))))
#s(approx (- p r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (/ 1 (pow q 4)) (/ p (* (pow q 4) r))) r))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (pow p 2) (* (pow q 4) r))) (/ p (pow q 4))) r)) (/ 1 (pow q 4))) r))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (pow p 3) (* (pow q 4) r)) (* -1 (/ (pow p 2) (pow q 4)))) r)) (/ p (pow q 4))) r)) (/ 1 (pow q 4))) r))))
#s(approx (pow (- p r) -5) #s(hole binary64 (* -1 (/ (+ 1 (+ (* 4 (/ p r)) (/ p r))) (pow r 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (+ (* -1 (/ (pow (+ p (* 4 p)) 2) r)) (+ (* 2 (/ (pow p 2) r)) (* 8 (/ (pow p 2) r)))) (+ p (* 4 p))) r))) (pow r 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ p (* 4 p)) (+ (* -1 (pow (+ p (* 4 p)) 2)) (+ (* 2 (pow p 2)) (* 8 (pow p 2))))) r)) (+ (* -1 (/ (* (+ p (* 4 p)) (+ (* 2 (pow p 2)) (* 8 (pow p 2)))) r)) (+ (* 4 (/ (pow p 3) r)) (/ (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))) r)))) (+ (* -1 (pow (+ p (* 4 p)) 2)) (+ (* 2 (pow p 2)) (* 8 (pow p 2))))) r)) (+ p (* 4 p))) r))) (pow r 5)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (* -1 (/ (+ (/ 1 (pow q 4)) (/ p (* (pow q 4) r))) r))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (pow p 2) (* (pow q 4) r))) (/ p (pow q 4))) r)) (/ 1 (pow q 4))) r))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (pow p 3) (* (pow q 4) r)) (* -1 (/ (pow p 2) (pow q 4)))) r)) (/ p (pow q 4))) r)) (/ 1 (pow q 4))) r))))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (* -1 (* r (+ (* -1 (/ (* p (pow q 4)) r)) (pow q 4))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* p (pow q 2)) (/ (* (pow p 2) (pow q 2)) r)) r)) (* -1 (pow q 2))) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow p 2) (pow q 2))) (* -1 (/ (* (pow p 3) (pow q 2)) r))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow p 2) (pow q 2)) r)) (* p (pow q 2))) r)) (pow q 2)) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow p 3) (pow q 2)) r) (* -1 (* (pow p 2) (pow q 2)))) r)) (* p (pow q 2))) r)) (pow q 2)) r))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* r (+ (* -1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1 (* r (+ 1/2 (/ (* p (- (* -1/2 (+ (/ (fabs p) p) (/ (fabs r) p))) 1/2)) r))))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (* -1/2 (+ (/ (fabs p) p) (/ (fabs r) p))) 1/2) r)) (* 1/2 (/ 1 p)))))))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (/ 1 p)))))))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (* -1 (* r (- (+ (* -1/2 (/ (+ (fabs p) (fabs r)) (* p r))) (* 1/2 (/ 1 p))) (* 1/2 (/ 1 r)))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* p (pow q 2)) (/ (* (pow p 2) (pow q 2)) r)) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow p 2) (pow q 2))) (* -1 (/ (* (pow p 3) (pow q 2)) r))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (fabs r)) r)) 1)))))
#s(approx (+ r (fabs p)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (fabs p) r)) 1)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (pow p 3) (* (pow q 2) (+ p (* 2 p))))) r)) (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2)))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (pow p 2)) (pow q 2)) r))) r)) 1) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (/ (- (pow p 3) (* (pow q 2) (+ p (* 2 p)))) r)) (+ (* -1 (pow p 2)) (pow q 2))) r))) r)) 1) r))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ (* -1 (/ (pow q 2) (* (pow p 3) r))) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))) r)) (/ 1 (pow p 3))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (- (* -1 (/ (+ (* -1 (/ (pow q 2) (pow p 3))) (/ 1 p)) r)) (/ 1 (pow p 2))) r)) (/ 1 (pow p 3))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (- (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) r)) (/ 1 p)) r)) (/ 1 (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (- (/ (pow q 2) (* (pow p 2) r)) (/ 1 p)) r)) (/ 1 (pow p 2))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ (* -1 (/ (pow q 2) (* (pow p 2) r))) (/ 1 p)) r)) (/ 1 (pow p 2))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (* p r)))) r)) (/ 1 p)))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (* (pow q 2) (+ 1 (* -1 (/ (pow p 2) (pow q 2))))) r))) r)) 1) r))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (/ (pow p 3) (pow q 2)) (+ p (* 2 p)))) r)) (* (pow q 2) (+ 1 (* -1 (/ (pow p 2) (pow q 2)))))) r))) r)) 1) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p (* (pow q 2) r))) (/ 1 (pow q 2))) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ (* -1 (/ (+ 1 (* -1 (/ (pow p 2) (pow q 2)))) r)) (/ p (pow q 2))) r)) (/ 1 (pow q 2))) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ (* -1 (/ (+ 1 (+ (* -1 (/ (- (/ (pow p 3) (pow q 2)) (+ p (* 2 p))) r)) (* -1 (/ (pow p 2) (pow q 2))))) r)) (/ p (pow q 2))) r)) (/ 1 (pow q 2))) r))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (+ 1 (+ (* 2 (/ p r)) (/ p r))) (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (+ (* -1 (/ (pow (+ p (* 2 p)) 2) r)) (+ (* 2 (/ (pow p 2) r)) (/ (pow p 2) r))) (+ p (* 2 p))) r))) (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ p (* 2 p)) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (+ (* -1 (/ (* (+ p (* 2 p)) (+ (* 2 (pow p 2)) (pow p 2))) r)) (/ (pow p 3) r))) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (+ p (* 2 p))) r))) (pow r 3)))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (* -1 (/ (+ (/ 1 (pow q 2)) (/ p (* (pow q 2) r))) r))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (pow p 2) (* (pow q 2) r))) (/ p (pow q 2))) r)) (/ 1 (pow q 2))) r))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (pow p 3) (* (pow q 2) r)) (* -1 (/ (pow p 2) (pow q 2)))) r)) (/ p (pow q 2))) r)) (/ 1 (pow q 2))) r))))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (* -1 (* r (+ (* -1 (/ (* p (pow q 2)) r)) (pow q 2))))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (/ (pow p 2) r) (* -1 p)) r)) 1) r))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (* -1 (/ (pow p 3) r)) (pow p 2)) r)) (* -1 p)) r)) 1) r))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 r))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) r)))) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r)))) p) r)) 1)))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)) r)) 1)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1) r)) (/ 1 p))))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (* -1 (* r (- (/ 1 p) (/ 1 r))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -2 (/ (pow q 2) r))) r)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)) r)) 1)))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* -1 p)))) r)) 1)))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* -1 (* r (+ (* -1 p) (* -1 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))) r)))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* -1 (* r (+ (* -1 p) (* -1 (/ (* p (+ (fabs p) (+ (fabs r) (* -1 p)))) r)))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) 1)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* r (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) r))) (/ p r))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ (* -2 (/ (pow q 2) r)) (* -1 (- (* -1 (+ (fabs p) (fabs r))) p))) r)))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1) r)) (/ 1 p))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) p) r)) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) r))) p) r)) 1)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))) (* 1/2 (/ (+ (* 2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) (* (+ p (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))))) r))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 r))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 p) (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r))) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 p) (* -1 (/ (- (+ (* 2 (/ (* p (pow q 2)) r)) (+ (* 2 (/ (* (pow q 2) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) r)) (+ (/ (* (+ p (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))) r) (pow (+ (fabs p) (fabs r)) 2)))) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r))) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (* -1 (* r (- (/ (* p (+ 1 (* -1 (+ (/ (fabs p) p) (/ (fabs r) p))))) r) 1)))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (* -1 (* r (- (+ (* -1 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (/ 1 r)) (/ 1 p))))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ 1 (* -1 (+ (/ (fabs p) p) (/ (fabs r) p)))) r)) (/ 1 p))))))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) #s(hole binary64 (* -1 (* r (- (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))) (/ 1 p))))))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) #s(hole binary64 (* -1 (* r (+ (* -1 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (/ 1 p))))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 r))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) r)))))))
#s(approx (+ (fabs r) (* -1 r)) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (fabs r) r)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (fabs r) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (fabs r)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (fabs r))) r)) 1/2)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 r))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (fabs r) r)) 1)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs r) (* 2 (/ (pow q 2) r))) r)) 1)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs r) (* -1 (/ (- (* -2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)) 1)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (- (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) r)) (* 2 p)) r)) 1))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (fabs r))) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) r))))) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))))) r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -2 (/ (pow q 2) r))) r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow p 2)) r)) (* 2 p)) r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow p 2) r)) (* 2 p)) r))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5)))))) (* 1/2 (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3))))))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (/ (* p (+ (* -1/8 p) (* 1/4 r))) q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (/ (+ (* 1/2 (* q (+ (fabs p) (fabs r)))) (* p (+ (* -1/8 p) (* 1/4 r)))) q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (/ (+ (* p (+ (* -1/8 p) (* 1/4 r))) (* q (+ (* -1 q) (* 1/2 (+ (fabs p) (fabs r)))))) q)))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (+ (fabs p) (+ (fabs r) (* -2 q)))))
#s(approx (* 2 q) #s(hole binary64 (* 2 q)))
#s(approx q #s(hole binary64 q))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (/ (* p (+ (* -1/8 p) (* 1/4 r))) q)))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (/ (+ (* -1/8 p) (* 1/4 r)) q)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (pow q 6) #s(hole binary64 (pow q 6)))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))) (pow q 6))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))))) (pow q 6))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r))))) (pow q 6))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (/ (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (/ (pow q 4) (pow (- p r) 3))) (pow q 6))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ 1 (* (pow q 2) (pow (- p r) 3)))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow q 2) (pow (- p r) 3))))
#s(approx (* q q) #s(hole binary64 (pow q 2)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ 1 (* (pow q 4) (- p r)))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ (+ (* 2 (/ (pow q 4) (pow (- p r) 5))) (/ 1 (- p r))) (pow q 4))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ 1 (* (pow q 4) (- p r)))))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (* (pow q 4) (- p r))))
#s(approx (pow q 4) #s(hole binary64 (pow q 4)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (pow q 2) (- p r))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 2 (/ 1 (pow p 3))) (+ (* 6 (/ r (pow p 4))) (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5))))))))) (* 2 (/ 1 p))))))) p)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (* (pow q 2) (+ (* -2 (/ r (pow p 2))) (* 6 (/ (* (pow q 2) r) (pow p 4))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (* (pow q 2) (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* -20 (/ (* (pow q 2) r) (pow p 6))) (* 6 (/ r (pow p 4))))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow q 2) (- (* 6 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow q 2) (- (* (pow q 2) (+ (* -20 (/ (pow q 2) (pow p 7))) (* 6 (/ 1 (pow p 5))))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (+ p (* 2 (/ (pow q 2) p)))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 3))) (* 2 (/ 1 p)))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (* 2 (/ 1 p)))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow q 2) (- (* 6 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow q 2) (- (* (pow q 2) (+ (* -20 (/ (pow q 2) (pow p 7))) (* 6 (/ 1 (pow p 5))))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (/ 1/2 q) #s(hole binary64 (/ 1/2 q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p)))) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow p 3))) (* 2 (/ 1 p)))))) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (* 2 (/ 1 p)))))) p)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ p (* 2 (/ (pow q 2) p)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 3))) (* 2 (/ 1 p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (* 2 (/ 1 p)))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5)))))) (* 1/2 (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3))))))))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 2 (/ 1 (pow p 3))) (+ (* 6 (/ r (pow p 4))) (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5))))))))) (* 2 (/ 1 p))))))) p)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (+ (* (pow q 2) (- (* 6 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (+ (* (pow q 2) (- (* (pow q 2) (+ (* -20 (/ (pow q 2) (pow p 7))) (* 6 (/ 1 (pow p 5))))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (* -1/2 (log (pow p 2)))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (log (pow p 2))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (log (pow p 2))) (* (pow q 2) (- (* 4 (/ (pow q 2) (pow p 4))) (* 2 (/ 1 (pow p 2))))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (log (pow p 2))) (* (pow q 2) (- (* (pow q 2) (+ (* -32/3 (/ (pow q 2) (pow p 6))) (* 4 (/ 1 (pow p 4))))) (* 2 (/ 1 (pow p 2))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (log (pow p 2))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log (pow p 2)) (* 4 (/ (pow q 2) (pow p 2))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log (pow p 2)) (* (pow q 2) (+ (* -8 (/ (pow q 2) (pow p 4))) (* 4 (/ 1 (pow p 2))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log (pow p 2)) (* (pow q 2) (+ (* (pow q 2) (- (* 64/3 (/ (pow q 2) (pow p 6))) (* 8 (/ 1 (pow p 4))))) (* 4 (/ 1 (pow p 2))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) p))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (+ (fabs p) (fabs r)) p)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (+ (* -2 (/ (pow q 2) p)) (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)))))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (+ (/ (fabs p) p) (/ (fabs r) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (neg (* q q)) #s(hole binary64 (* -1 (pow q 2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ -1 (- p r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (+ (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p)) (/ (pow q 2) (pow p 3)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (+ (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) (pow p 2))) (+ (* -1 (/ (pow q 2) (pow p 3))) (/ 1 p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (+ (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p)) (* -1 (/ (pow q 2) (pow p 2)))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (+ (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p)) (* -1 (/ (pow q 2) (pow p 2))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (- (* -1 (/ (pow r 2) p)) r) p)))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (- (+ (* -1 (/ (pow r 2) (pow p 2))) (/ (pow q 2) (pow p 2))) (/ r p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (- (* -1 (/ (pow r 2) p)) r)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (- (+ (* -1 (/ (pow r 2) p)) (/ (pow q 2) p)) r)))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (- (* -1 (pow q 2)) (* -1 (pow r 2)))))
#s(approx (* -1 (* q q)) #s(hole binary64 (* -1 (pow q 2))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ -1 (- p r))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ -1 (* (pow q 2) (- p r)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))) (pow q 2))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ 1 (* (pow q 2) (- p r)))))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (* (pow q 2) (- p r))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- p r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* 2 (/ (pow q 2) (- p r)))) r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (* -2 q) #s(hole binary64 (* -2 q)))
#s(approx (* q 2) #s(hole binary64 (* 2 q)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (+ (* -2 (/ (pow q 2) p)) (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* -1 p)))) (* -1 r))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (+ (* -2 (/ (pow q 2) r)) (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* -1/2 (* (pow q 2) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (+ (* 2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (pow (- p r) 3) (- (+ p (+ (fabs p) (fabs r))) r)))) (* 4 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 5) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))) (* -1/2 (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* -1 (* (pow q 2) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* (pow q 2) (- (* -1 (* (pow q 2) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* (pow q 2) (- (* (pow q 2) (- (* -1 (* (pow q 2) (+ (* -2 (/ (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (+ (* 2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (pow (- p r) 3) (- (+ p (+ (fabs p) (fabs r))) r)))) (* 4 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 5) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (+ r (fabs r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (fabs r))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* -4 (pow q 2)) (pow (+ (fabs p) (fabs r)) 2)) (pow (- p r) 2))))
#s(approx (* -4 (* q q)) #s(hole binary64 (* -4 (pow q 2))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (fabs r))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) (- p r)))))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- p r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* 2 (/ (pow q 2) (- p r)))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow (- p r) 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow (- p r) 2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2)))) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (+ (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 4))) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2))))) 1))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (/ (* p (+ (* -1/8 p) (* 1/4 r))) (pow q 2))) 1))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -2 (/ (pow q 6) (pow (- p r) 5)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (/ 1 (* (pow q 2) (pow (- p r) 3)))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -2 (/ (pow q 6) (pow (- p r) 5)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (/ 1 (* (pow q 4) (- p r))) (* 2 (/ 1 (pow (- p r) 5))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (/ 1 (* (pow q 2) (pow (- p r) 3)))) (+ (/ 1 (* (pow q 4) (- p r))) (* 2 (/ 1 (pow (- p r) 5))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ -2 (pow (- p r) 5))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (/ 1 (* (pow q 2) (pow (- p r) 3)))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (/ 1 (* (pow q 2) (pow (- p r) 3)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (/ (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 4))) (/ 1 (pow (- p r) 3))) (pow q 2))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ 2 (pow (- p r) 5))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (+ (/ 1 (* (pow q 4) (- p r))) (* 2 (/ 1 (pow (- p r) 5))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* (pow q 2) (- (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 2))) (/ 1 (- p r))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -2 q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 4))) (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q)))) (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (/ (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r)))) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1 (/ (* p (* r (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))))) (pow q 6))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q)))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow p 2) (pow q 2)))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (+ (* 1/512 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (+ (* 4 (* q q)) (* p p)) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow p 2) (pow q 2))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow p 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow p 4) (pow q 4))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow p 2) (pow q 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (+ (* 1/512 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow p 2) (pow q 2))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2)))) 1))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (+ (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 4))) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2))))) 1))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -2 q)))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 4))) (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q)))) (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q)))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (* -1/2 (+ (log 4) (* -2 (log (/ 1 q)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (+ (log 4) (* -2 (log (/ 1 q))))) (* -1/8 (/ (pow p 2) (pow q 2))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (+ (log 4) (* -2 (log (/ 1 q))))) (+ (* -1/8 (/ (pow p 2) (pow q 2))) (* 1/64 (/ (pow p 4) (pow q 4)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (+ (log 4) (* -2 (log (/ 1 q))))) (+ (* -1/8 (/ (pow p 2) (pow q 2))) (+ (* -1/384 (/ (pow p 6) (pow q 6))) (* 1/64 (/ (pow p 4) (pow q 4))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (* -2 (log (/ 1 q))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (+ (* -2 (log (/ 1 q))) (* 1/4 (/ (pow p 2) (pow q 2)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (+ (* -2 (log (/ 1 q))) (+ (* -1/32 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (+ (* -2 (log (/ 1 q))) (+ (* -1/32 (/ (pow p 4) (pow q 4))) (+ (* 1/192 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 q)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow p 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow p 2) (pow q 2))) (+ (* 1/128 (/ (pow p 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (* (pow q 2) (- (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)) (pow q 2)) (* 2 (/ 1 p))))))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* p (pow q 2))) (/ (fabs r) (* p (pow q 2)))) (+ (* 2 (/ 1 (pow p 2))) (/ 1 (pow q 2)))))))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* p (pow q 2))) (/ (fabs r) (* p (pow q 2)))) (* 2 (/ 1 (pow p 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (/ (pow q 4) (pow (- p r) 3))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 4) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 4) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 4))) (/ 1 (pow (- p r) 3))) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (pow q 4) (pow (- p r) 3))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 4) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (pow q 2) (pow (- p r) 3))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* (pow q 2) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (pow q 2) (pow p 3))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* (pow q 2) (+ (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) p)) (/ 1 p)) (pow q 2))) (/ 1 (pow p 3))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* -1 (/ (pow q 2) (pow p 3)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) (* p (pow q 2)))) (/ 1 (* p (pow q 2)))) (/ 1 (pow p 3))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* -1 (/ (pow q 2) (pow p 2)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) (pow q 2))) (/ 1 (pow q 2))) (/ 1 (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow q 2) (- (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) (pow q 2))) (/ 1 (pow p 2))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (pow r 2) (* (pow p 2) (pow q 2)))) (/ 1 (pow p 2))) (/ r (* p (pow q 2)))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (pow r 2) (* p (pow q 2)))) (/ 1 p)) (/ r (pow q 2))))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* (pow q 2) (+ (* -1 (/ (pow r 2) (* p (pow q 2)))) (/ 1 p)))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (* (pow q 2) (- (/ (pow r 2) (* p (pow q 2))) (/ 1 p)))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (* (pow q 2) (- (/ (pow r 2) (pow q 2)) 1))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (pow q 2) (pow (- p r) 3))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* (pow q 2) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ 1 (pow (- p r) 3))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* (pow q 2) (- (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))) (pow q 2)) (* 2 (/ 1 p))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ p (pow q 2))) (+ (/ (fabs p) (pow q 2)) (/ (fabs r) (pow q 2)))) (+ (* -1 (/ r (pow q 2))) (* 2 (/ 1 p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow q 2) (- (/ (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (pow q 2)) 2))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* (pow q 2) (- (/ (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))) (pow q 2)) (* 2 (/ 1 r))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* p (pow q 2))) (/ (fabs r) (* p (pow q 2)))) (+ (* -1 (/ r (* p (pow q 2)))) (+ (* 2 (/ 1 (pow p 2))) (/ 1 (pow q 2))))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* (pow q 2) r)) (/ (fabs r) (* (pow q 2) r))) (+ (* -1 (/ p (* (pow q 2) r))) (+ (* 2 (/ 1 (pow r 2))) (/ 1 (pow q 2))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2)))) 1))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* -1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) (pow q 3))) (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2))))) 1))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -2 q)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (pow q 2))) (+ 2 (+ (* -1 (/ (+ (fabs p) (fabs r)) q)) (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (+ (* -1 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) (pow q 3))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (pow q 2)))) (+ 2 (+ (* -1 (/ (+ (fabs p) (fabs r)) q)) (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ p (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ p (fabs r)) q))) 1))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ p (fabs r)) q)))) 1))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (/ p q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ p q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (/ p q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -4 (pow q 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow q 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2)) (+ 4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* 2 q)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (/ (fabs p) q) (/ (fabs r) q))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (* 1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow (- p r) 2) (pow q 2))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 q))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (* p r)) (* 1/4 (pow p 2)))) (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 (* q (+ 1 (* -1/2 (/ (+ (fabs p) (fabs r)) q)))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 (* q (+ 1 (* -1 (/ (+ (* -1 (/ (* p (+ (* -1/4 r) (* 1/8 p))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)))))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (fabs r)) q)))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* -1 (/ (* p (+ (* -1/4 r) (* 1/8 p))) q))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1 (/ (+ (* -1/4 r) (* 1/8 p)) q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* 2 q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)))) q)) 2)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) (+ (* -1/64 (/ (pow p 4) (pow q 2))) (* 1/4 (pow p 2)))) q)))) q)) 2)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1/2 (/ (* p r) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 (/ (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r)))) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1 (/ (* p (* r (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))))) (pow q 6))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))))) q))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ -1/2 q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (+ (* 1/512 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2))))))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ -1/2 q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 1/4 (/ (pow p 2) q)))) q)) 2)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow p 4) (pow q 2))) (* 1/4 (pow p 2))) q)))) q)) 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (+ (* 1/512 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2))))))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 q))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (* p r)) (* 1/4 (pow p 2)))) (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* 2 q)))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)))) q)) 2)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) (+ (* -1/64 (/ (pow p 4) (pow q 2))) (* 1/4 (pow p 2)))) q)))) q)) 2)))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ -1/2 q)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (* -1 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (* -1/2 (+ (log 4) (* -2 (log (/ -1 q)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (+ (log 4) (* -2 (log (/ -1 q))))) (* -1/8 (/ (pow p 2) (pow q 2))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (+ (log 4) (* -2 (log (/ -1 q))))) (+ (* -1/8 (/ (pow p 2) (pow q 2))) (* 1/64 (/ (pow p 4) (pow q 4)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (+ (log 4) (* -2 (log (/ -1 q))))) (+ (* -1/8 (/ (pow p 2) (pow q 2))) (+ (* -1/384 (/ (pow p 6) (pow q 6))) (* 1/64 (/ (pow p 4) (pow q 4))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (* -2 (log (/ -1 q))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (+ (* -2 (log (/ -1 q))) (* 1/4 (/ (pow p 2) (pow q 2)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (+ (* -2 (log (/ -1 q))) (+ (* -1/32 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (+ (* -2 (log (/ -1 q))) (+ (* -1/32 (/ (pow p 4) (pow q 4))) (+ (* 1/192 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 q))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow p 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow p 2)) (* 1/128 (/ (pow p 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 1/4 (/ (pow (- p r) 2) q)))) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)) 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))) (* 1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) q))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* 2 q)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (- (* -1 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* -1 (+ (fabs p) (fabs r)))) q)) 2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (- (* -1 (/ (- (+ (* 1/8 (/ (* (+ (fabs p) (fabs r)) (pow (- p r) 2)) q)) (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (* 1/2 (/ (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))) q)))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* -1 (+ (fabs p) (fabs r)))) q)) 2)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ p (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ p (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ p (fabs r)))) q)) 1)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ p (fabs r)) q)) 2)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ p (+ (fabs r) (* 1/4 (/ (pow (- p r) 2) q)))) q)) 2)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ p (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)) 2)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -2 q)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (fabs r)) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1/4 (/ (pow (- p r) 2) q)))) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* -1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))))
Calls

9 calls:

TimeVariablePointExpression
59.0ms
p
@-inf
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)) (+ (fabs p) (fabs r)) (fabs p) p (fabs r) r (* 2 q) 2 q (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) -1/8 (/ p q) (* 1/4 (/ r q)) 1/4 (/ r q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (pow q 6) 6 (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (- (+ r (+ (fabs p) (fabs r))) p) (+ r (+ (fabs p) (fabs r))) (pow (* (* q q) (pow (- p r) 3)) -1) (* (* q q) (pow (- p r) 3)) (* q q) (pow (- p r) 3) (- p r) 3 -1 (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (pow (- p r) -5) -5 (pow (* (pow q 4) (- p r)) -1) (* (pow q 4) (- p r)) (pow q 4) 4 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (* -1 (/ (* q q) (- p r))) (/ (* q q) (- p r)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) 1 (sqrt (+ (* 4 (* q q)) (* p p))) (+ (* 4 (* q q)) (* p p)) (* p p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (pow (+ (* (* q q) 4) (* p p)) -1/2) (/ 1/2 q) (* r p) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))) (+ (* (* q q) 4) (* p p)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* (log (+ (* (* q q) 4) (* p p))) -1/2) (log (+ (* (* q q) 4) (* p p))) -1/2 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) -2 (* (/ q p) (/ q p)) (/ q p) (/ (+ (fabs p) (fabs r)) p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (- (+ (+ r (fabs p)) (fabs r)) p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) (* -1/2 (/ (+ (fabs p) (fabs r)) p)) (* 1/2 (pow p -1)) (pow p -1) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (* 1/2 (/ r p)) (/ r p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (sqrt (+ (* (* q q) 4) (* p p))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (- (+ (+ r (fabs p)) (fabs r)) p) (/ (neg (* q q)) (- p r)) (neg (* q q)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (- (* -1 (* q q)) (* -1 (* r r))) (* -1 (* q q)) (* -1 (* r r)) (* r r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (pow (- p r) -3) -3 (pow (* (* q q) (- p r)) -1) (* (* q q) (- p r)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 (- p r)) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* -2 q) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* q 2) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (+ (fabs p) (+ (fabs r) (* -1 p))) (+ (fabs r) (* -1 p)) (* -1 p) (* -1 r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (* -2 (/ (* q q) r)) (/ (* q q) r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (* -2 (* (/ q p) (/ q p))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (* -2 (* (/ q r) (/ q r))) (* (/ q r) (/ q r)) (/ q r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) (+ (fabs p) (+ (fabs r) (* -1 r))) (+ (fabs r) (* -1 r)) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ (sqrt (* p p)) (fabs r)) (sqrt (* p p)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg r) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (* -4 (* q q)) -4 (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+ (* (* q q) 4) (pow (- p r) 2)) (pow (- p r) 2))
56.0ms
p
@inf
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)) (+ (fabs p) (fabs r)) (fabs p) p (fabs r) r (* 2 q) 2 q (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) -1/8 (/ p q) (* 1/4 (/ r q)) 1/4 (/ r q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (pow q 6) 6 (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (- (+ r (+ (fabs p) (fabs r))) p) (+ r (+ (fabs p) (fabs r))) (pow (* (* q q) (pow (- p r) 3)) -1) (* (* q q) (pow (- p r) 3)) (* q q) (pow (- p r) 3) (- p r) 3 -1 (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (pow (- p r) -5) -5 (pow (* (pow q 4) (- p r)) -1) (* (pow q 4) (- p r)) (pow q 4) 4 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (* -1 (/ (* q q) (- p r))) (/ (* q q) (- p r)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) 1 (sqrt (+ (* 4 (* q q)) (* p p))) (+ (* 4 (* q q)) (* p p)) (* p p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (pow (+ (* (* q q) 4) (* p p)) -1/2) (/ 1/2 q) (* r p) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))) (+ (* (* q q) 4) (* p p)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* (log (+ (* (* q q) 4) (* p p))) -1/2) (log (+ (* (* q q) 4) (* p p))) -1/2 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) -2 (* (/ q p) (/ q p)) (/ q p) (/ (+ (fabs p) (fabs r)) p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (- (+ (+ r (fabs p)) (fabs r)) p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) (* -1/2 (/ (+ (fabs p) (fabs r)) p)) (* 1/2 (pow p -1)) (pow p -1) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (* 1/2 (/ r p)) (/ r p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (sqrt (+ (* (* q q) 4) (* p p))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (- (+ (+ r (fabs p)) (fabs r)) p) (/ (neg (* q q)) (- p r)) (neg (* q q)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (- (* -1 (* q q)) (* -1 (* r r))) (* -1 (* q q)) (* -1 (* r r)) (* r r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (pow (- p r) -3) -3 (pow (* (* q q) (- p r)) -1) (* (* q q) (- p r)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 (- p r)) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* -2 q) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* q 2) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (+ (fabs p) (+ (fabs r) (* -1 p))) (+ (fabs r) (* -1 p)) (* -1 p) (* -1 r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (* -2 (/ (* q q) r)) (/ (* q q) r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (* -2 (* (/ q p) (/ q p))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (* -2 (* (/ q r) (/ q r))) (* (/ q r) (/ q r)) (/ q r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) (+ (fabs p) (+ (fabs r) (* -1 r))) (+ (fabs r) (* -1 r)) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ (sqrt (* p p)) (fabs r)) (sqrt (* p p)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg r) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (* -4 (* q q)) -4 (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+ (* (* q q) 4) (pow (- p r) 2)) (pow (- p r) 2))
43.0ms
q
@inf
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)) (+ (fabs p) (fabs r)) (fabs p) p (fabs r) r (* 2 q) 2 q (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) -1/8 (/ p q) (* 1/4 (/ r q)) 1/4 (/ r q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (pow q 6) 6 (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (- (+ r (+ (fabs p) (fabs r))) p) (+ r (+ (fabs p) (fabs r))) (pow (* (* q q) (pow (- p r) 3)) -1) (* (* q q) (pow (- p r) 3)) (* q q) (pow (- p r) 3) (- p r) 3 -1 (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (pow (- p r) -5) -5 (pow (* (pow q 4) (- p r)) -1) (* (pow q 4) (- p r)) (pow q 4) 4 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (* -1 (/ (* q q) (- p r))) (/ (* q q) (- p r)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) 1 (sqrt (+ (* 4 (* q q)) (* p p))) (+ (* 4 (* q q)) (* p p)) (* p p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (pow (+ (* (* q q) 4) (* p p)) -1/2) (/ 1/2 q) (* r p) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))) (+ (* (* q q) 4) (* p p)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* (log (+ (* (* q q) 4) (* p p))) -1/2) (log (+ (* (* q q) 4) (* p p))) -1/2 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) -2 (* (/ q p) (/ q p)) (/ q p) (/ (+ (fabs p) (fabs r)) p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (- (+ (+ r (fabs p)) (fabs r)) p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) (* -1/2 (/ (+ (fabs p) (fabs r)) p)) (* 1/2 (pow p -1)) (pow p -1) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (* 1/2 (/ r p)) (/ r p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (sqrt (+ (* (* q q) 4) (* p p))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (- (+ (+ r (fabs p)) (fabs r)) p) (/ (neg (* q q)) (- p r)) (neg (* q q)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (- (* -1 (* q q)) (* -1 (* r r))) (* -1 (* q q)) (* -1 (* r r)) (* r r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (pow (- p r) -3) -3 (pow (* (* q q) (- p r)) -1) (* (* q q) (- p r)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 (- p r)) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* -2 q) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* q 2) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (+ (fabs p) (+ (fabs r) (* -1 p))) (+ (fabs r) (* -1 p)) (* -1 p) (* -1 r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (* -2 (/ (* q q) r)) (/ (* q q) r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (* -2 (* (/ q p) (/ q p))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (* -2 (* (/ q r) (/ q r))) (* (/ q r) (/ q r)) (/ q r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) (+ (fabs p) (+ (fabs r) (* -1 r))) (+ (fabs r) (* -1 r)) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ (sqrt (* p p)) (fabs r)) (sqrt (* p p)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg r) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (* -4 (* q q)) -4 (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+ (* (* q q) 4) (pow (- p r) 2)) (pow (- p r) 2))
43.0ms
r
@0
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)) (+ (fabs p) (fabs r)) (fabs p) p (fabs r) r (* 2 q) 2 q (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) -1/8 (/ p q) (* 1/4 (/ r q)) 1/4 (/ r q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (pow q 6) 6 (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (- (+ r (+ (fabs p) (fabs r))) p) (+ r (+ (fabs p) (fabs r))) (pow (* (* q q) (pow (- p r) 3)) -1) (* (* q q) (pow (- p r) 3)) (* q q) (pow (- p r) 3) (- p r) 3 -1 (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (pow (- p r) -5) -5 (pow (* (pow q 4) (- p r)) -1) (* (pow q 4) (- p r)) (pow q 4) 4 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (* -1 (/ (* q q) (- p r))) (/ (* q q) (- p r)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) 1 (sqrt (+ (* 4 (* q q)) (* p p))) (+ (* 4 (* q q)) (* p p)) (* p p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (pow (+ (* (* q q) 4) (* p p)) -1/2) (/ 1/2 q) (* r p) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))) (+ (* (* q q) 4) (* p p)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* (log (+ (* (* q q) 4) (* p p))) -1/2) (log (+ (* (* q q) 4) (* p p))) -1/2 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) -2 (* (/ q p) (/ q p)) (/ q p) (/ (+ (fabs p) (fabs r)) p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (- (+ (+ r (fabs p)) (fabs r)) p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) (* -1/2 (/ (+ (fabs p) (fabs r)) p)) (* 1/2 (pow p -1)) (pow p -1) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (* 1/2 (/ r p)) (/ r p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (sqrt (+ (* (* q q) 4) (* p p))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (- (+ (+ r (fabs p)) (fabs r)) p) (/ (neg (* q q)) (- p r)) (neg (* q q)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (- (* -1 (* q q)) (* -1 (* r r))) (* -1 (* q q)) (* -1 (* r r)) (* r r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (pow (- p r) -3) -3 (pow (* (* q q) (- p r)) -1) (* (* q q) (- p r)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 (- p r)) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* -2 q) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* q 2) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (+ (fabs p) (+ (fabs r) (* -1 p))) (+ (fabs r) (* -1 p)) (* -1 p) (* -1 r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (* -2 (/ (* q q) r)) (/ (* q q) r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (* -2 (* (/ q p) (/ q p))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (* -2 (* (/ q r) (/ q r))) (* (/ q r) (/ q r)) (/ q r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) (+ (fabs p) (+ (fabs r) (* -1 r))) (+ (fabs r) (* -1 r)) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ (sqrt (* p p)) (fabs r)) (sqrt (* p p)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg r) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (* -4 (* q q)) -4 (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+ (* (* q q) 4) (pow (- p r) 2)) (pow (- p r) 2))
37.0ms
p
@0
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)) (+ (fabs p) (fabs r)) (fabs p) p (fabs r) r (* 2 q) 2 q (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) -1/8 (/ p q) (* 1/4 (/ r q)) 1/4 (/ r q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (pow q 6) 6 (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (- (+ r (+ (fabs p) (fabs r))) p) (+ r (+ (fabs p) (fabs r))) (pow (* (* q q) (pow (- p r) 3)) -1) (* (* q q) (pow (- p r) 3)) (* q q) (pow (- p r) 3) (- p r) 3 -1 (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (pow (- p r) -5) -5 (pow (* (pow q 4) (- p r)) -1) (* (pow q 4) (- p r)) (pow q 4) 4 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (* -1 (/ (* q q) (- p r))) (/ (* q q) (- p r)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) 1 (sqrt (+ (* 4 (* q q)) (* p p))) (+ (* 4 (* q q)) (* p p)) (* p p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (pow (+ (* (* q q) 4) (* p p)) -1/2) (/ 1/2 q) (* r p) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))) (+ (* (* q q) 4) (* p p)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* (log (+ (* (* q q) 4) (* p p))) -1/2) (log (+ (* (* q q) 4) (* p p))) -1/2 (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) -2 (* (/ q p) (/ q p)) (/ q p) (/ (+ (fabs p) (fabs r)) p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (- (+ (+ r (fabs p)) (fabs r)) p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) (* -1/2 (/ (+ (fabs p) (fabs r)) p)) (* 1/2 (pow p -1)) (pow p -1) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (* 1/2 (/ r p)) (/ r p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (sqrt (+ (* (* q q) 4) (* p p))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (- (+ (+ r (fabs p)) (fabs r)) p) (/ (neg (* q q)) (- p r)) (neg (* q q)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (- (* -1 (* q q)) (* -1 (* r r))) (* -1 (* q q)) (* -1 (* r r)) (* r r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (pow (- p r) -3) -3 (pow (* (* q q) (- p r)) -1) (* (* q q) (- p r)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 (- p r)) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* -2 q) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (* q 2) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (+ (fabs p) (+ (fabs r) (* -1 p))) (+ (fabs r) (* -1 p)) (* -1 p) (* -1 r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (* -2 (/ (* q q) r)) (/ (* q q) r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (* -2 (* (/ q p) (/ q p))) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (* -2 (* (/ q r) (/ q r))) (* (/ q r) (/ q r)) (/ q r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) (+ (fabs p) (+ (fabs r) (* -1 r))) (+ (fabs r) (* -1 r)) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ (sqrt (* p p)) (fabs r)) (sqrt (* p p)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg r) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (* -4 (* q q)) -4 (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+ (* (* q q) 4) (pow (- p r) 2)) (pow (- p r) 2))

rewrite599.0ms (7.3%)

Memory
-30.3MiB live, 1 055.8MiB allocated; 180ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0759398617
0794198601
0804095601
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
2 101 → 2 122
Calls
Call 1
Inputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))))
#s(literal 1/2 binary64)
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))
(+.f64 (fabs.f64 p) (fabs.f64 r))
(fabs.f64 p)
p
(fabs.f64 r)
r
(*.f64 #s(literal 2 binary64) q)
#s(literal 2 binary64)
q
(*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q))))
(fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))
#s(literal -1/8 binary64)
(/.f64 p q)
(*.f64 #s(literal 1/4 binary64) (/.f64 r q))
#s(literal 1/4 binary64)
(/.f64 r q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64))))))
(*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))))
(pow.f64 q #s(literal 6 binary64))
#s(literal 6 binary64)
(-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64))))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)))
(/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64)))
(-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)
(+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))
(pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))
(*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64)))
(*.f64 q q)
(pow.f64 (-.f64 p r) #s(literal 3 binary64))
(-.f64 p r)
#s(literal 3 binary64)
#s(literal -1 binary64)
(fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))
(pow.f64 (-.f64 p r) #s(literal -5 binary64))
#s(literal -5 binary64)
(pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64))
(*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r))
(pow.f64 q #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))
(/.f64 (*.f64 q q) (-.f64 p r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
(*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
(*.f64 p r)
(/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))
#s(literal 1 binary64)
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))
(fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))
(*.f64 p p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
(*.f64 #s(literal 1/2 binary64) (fma.f64 #s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))))
(fma.f64 #s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q))
(/.f64 #s(literal 1/2 binary64) q)
(*.f64 r p)
(-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))
(+.f64 (fabs.f64 r) (fabs.f64 p))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
(*.f64 #s(literal 1/2 binary64) (fma.f64 (exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))))
(fma.f64 (exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
(exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64)))
(*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))
(log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))
#s(literal -1/2 binary64)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))) #s(literal 1/2 binary64))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64))))
(*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))
(-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64))
(fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
#s(literal -2 binary64)
(*.f64 (/.f64 q p) (/.f64 q p))
(/.f64 q p)
(/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))) #s(literal 1/2 binary64)))
(*.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))) #s(literal 1/2 binary64))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))))))
(*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64))))))))
(neg.f64 p)
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))))
(*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64))))))
(*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))
(-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64))))
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r))
(/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)
(-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
(*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))
(pow.f64 p #s(literal -1 binary64))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p)))))
(*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p)))
(*.f64 #s(literal 1/2 binary64) (/.f64 r p))
(/.f64 r p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (* p p))) p)) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (* p p))) p)) #s(literal 1/2 binary64))
(-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (* p p))) p))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))))
(fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r)
(/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))
(neg.f64 (*.f64 q q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q)))
(-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p)
(+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r))
(+.f64 r (fabs.f64 p))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)))
(*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))
(/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p)))
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))
(/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p)
(-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r)
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p))
(/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)
(-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r)))
(*.f64 #s(literal -1 binary64) (*.f64 q q))
(*.f64 #s(literal -1 binary64) (*.f64 r r))
(*.f64 r r)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))))) (*.f64 q q)))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64)))))
(*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))))
(-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64)))
(pow.f64 (-.f64 p r) #s(literal -3 binary64))
#s(literal -3 binary64)
(pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))
(*.f64 (*.f64 q q) (-.f64 p r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q)))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p))
(/.f64 #s(literal -1 binary64) p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q)))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r)))
(/.f64 #s(literal -1 binary64) (-.f64 p r))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p))
(*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)
(-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))
(/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p)
(fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))
(*.f64 #s(literal -2 binary64) q)
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))
(*.f64 q #s(literal 2 binary64))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p))))
(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p))
(/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p)
(fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r))))
(*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))
(-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r))
(+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))
(+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))
(*.f64 #s(literal -1 binary64) p)
(*.f64 #s(literal -1 binary64) r)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))
(/.f64 (*.f64 q q) r)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p))
(*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p))))
(*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r))
(*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r))))
(*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))
(*.f64 (/.f64 q r) (/.f64 q r))
(/.f64 q r)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p)) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p)) p))
(*.f64 #s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p)) p)
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p))))))
(*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)))))
(-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p))))
(*.f64 #s(literal 2 binary64) (/.f64 r p))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)))
(*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p))
(/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)
(+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))
(+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (sqrt.f64 (*.f64 p p)) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))))
(-.f64 (+.f64 (sqrt.f64 (*.f64 p p)) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r)))
(+.f64 (sqrt.f64 (*.f64 p p)) (fabs.f64 r))
(sqrt.f64 (*.f64 p p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))
(neg.f64 r)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
(/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q)))
(*.f64 #s(literal -4 binary64) (*.f64 q q))
#s(literal -4 binary64)
(+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
(pow.f64 (-.f64 p r) #s(literal 2 binary64))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* 1/4 (/ r q)) (* p (- (* -1/32 (/ (* p r) (pow q 3))) (* 1/8 (/ 1 q)))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (+ (fabs p) (fabs r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (fabs p) #s(hole binary64 (fabs p)))
#s(approx p #s(hole binary64 p))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* 1/4 (/ (* p r) q))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* 1/4 (/ r q))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))
#s(approx (/ p q) #s(hole binary64 (/ p q)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2)))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (* 2 (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (/ 1 (pow r 4))))) (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3)))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* p (* (pow q 6) (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4)))))))) (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* p (+ (* p (* (pow q 6) (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (/ 1 (* (pow q 4) (pow r 3)))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))))) (* (pow q 6) (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))))) (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 6) (- (/ 1 (* (pow q 4) (pow r 4))) (+ (* -2 (+ (* -1 (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (pow r 5))) (+ (* 5 (/ (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (pow r 11))) (* 10 (/ 1 (pow r 8)))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (* (pow q 2) (pow r 7)))) (/ 1 (* (pow q 2) (pow r 6))))))))) (* (pow q 6) (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (/ 1 (* (pow q 4) (pow r 3)))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7))))))))) (* (pow q 6) (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))))) (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (+ (* p (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))) (/ 1 (* (pow q 4) r))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (+ (* p (- (+ (* 10 (/ 1 (pow r 6))) (+ (* p (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (/ 1 (* (pow q 4) (pow r 3)))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7))))))) (/ 1 (* (pow q 4) (pow r 2))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))) (/ 1 (* (pow q 4) r))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (+ (* p (- (+ (* 10 (/ 1 (pow r 6))) (+ (* p (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (+ (* p (- (/ 1 (* (pow q 4) (pow r 4))) (+ (* -2 (+ (* -1 (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (pow r 5))) (+ (* 5 (/ (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (pow r 11))) (* 10 (/ 1 (pow r 8)))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (* (pow q 2) (pow r 7)))) (/ 1 (* (pow q 2) (pow r 6)))))))) (/ 1 (* (pow q 4) (pow r 3))))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7))))))) (/ 1 (* (pow q 4) (pow r 2))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))) (/ 1 (* (pow q 4) r))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (- (+ (* -1 (* p (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6)))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (* p (- (* p (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4)))))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (* p (- (* p (- (+ (* -1 (* p (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (* (pow q 2) (pow r 7)))) (/ 1 (* (pow q 2) (pow r 6))))))) (* 3 (/ 1 (* (pow q 2) (pow r 5))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4)))))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (+ (* -1 (/ p (pow q 6))) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (+ r (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (+ r (+ (fabs p) (fabs r))) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ -1 (* (pow q 2) (pow r 3)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (- (* -3 (/ p (* (pow q 2) (pow r 4)))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (- (* p (- (* p (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (* 3 (/ 1 (* (pow q 2) (pow r 4)))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (- (* p (- (* p (- (+ (* -1 (* p (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (* (pow q 2) (pow r 7)))) (/ 1 (* (pow q 2) (pow r 6))))))) (* 3 (/ 1 (* (pow q 2) (pow r 5))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (* 3 (/ 1 (* (pow q 2) (pow r 4)))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (* (pow q 2) (pow r 3)))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* -1 (* (pow q 2) (pow r 3))) (* p (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2)))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* -1 (* (pow q 2) (pow r 3))) (* p (+ (* p (* (pow q 2) (+ (* -2 r) (* -1 r)))) (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* -1 (* (pow q 2) (pow r 3))) (* p (+ (* p (+ (* p (pow q 2)) (* (pow q 2) (+ (* -2 r) (* -1 r))))) (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (pow r 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* -1 (pow r 3)) (* p (+ (* 2 (pow r 2)) (pow r 2))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* -1 (pow r 3)) (* p (+ (* 2 (pow r 2)) (+ (* p (+ (* -2 r) (* -1 r))) (pow r 2)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* -1 (pow r 3)) (* p (+ (* 2 (pow r 2)) (+ (* p (+ p (+ (* -2 r) (* -1 r)))) (pow r 2)))))))
#s(approx (- p r) #s(hole binary64 (* -1 r)))
#s(approx (- p r) #s(hole binary64 (- p r)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (* -1 (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (- (* -1 (* p (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (- (* p (- (* p (- (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (/ 1 (* (pow q 4) (pow r 3))))) (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (- (* p (- (* p (- (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* p (- (* -2 (+ (* -1 (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (pow r 5))) (+ (* 5 (/ (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (pow r 11))) (* 10 (/ 1 (pow r 8)))))) (/ 1 (* (pow q 4) (pow r 4)))))) (/ 1 (* (pow q 4) (pow r 3))))) (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r))))))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ -1 (pow r 5))))
#s(approx (pow (- p r) -5) #s(hole binary64 (- (* -5 (/ p (pow r 6))) (/ 1 (pow r 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (- (* p (- (* p (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 5 (/ 1 (pow r 6))))) (/ 1 (pow r 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (- (* p (- (* p (- (+ (* -1 (* p (+ (* -1 (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (pow r 5))) (+ (* 5 (/ (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (pow r 11))) (* 10 (/ 1 (pow r 8))))))) (* 4 (/ 1 (pow r 7)))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 5 (/ 1 (pow r 6))))) (/ 1 (pow r 5)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ -1 (* (pow q 4) r))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (- (* -1 (/ p (* (pow q 4) (pow r 2)))) (/ 1 (* (pow q 4) r)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (- (* p (- (* -1 (/ p (* (pow q 4) (pow r 3)))) (/ 1 (* (pow q 4) (pow r 2))))) (/ 1 (* (pow q 4) r)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (- (* p (- (* p (- (* -1 (/ p (* (pow q 4) (pow r 4)))) (/ 1 (* (pow q 4) (pow r 3))))) (/ 1 (* (pow q 4) (pow r 2))))) (/ 1 (* (pow q 4) r)))))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (* -1 (* (pow q 4) r))))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (+ (* -1 (* (pow q 4) r)) (* p (pow q 4)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (/ (pow q 2) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (/ (pow q 2) (pow r 2)) 1/2)) (/ (pow q 2) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))) 1/2)) (/ (pow q 2) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2))) 1/2)) (/ (pow q 2) r)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (/ (* p (pow q 2)) (pow r 2)) (/ (pow q 2) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* p (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* p (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* -1 (/ (* p (pow q 2)) (pow r 2))) (* -1 (/ (pow q 2) r)))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) r)) (* p (- (* -1 (/ (* p (pow q 2)) (pow r 3))) (/ (pow q 2) (pow r 2)))))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) r)) (* p (- (* p (- (* -1 (/ (* p (pow q 2)) (pow r 4))) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* 1/2 (/ (* p r) q)))) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* -1/4 (/ p q)) (* 1/2 (/ r q)))))) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* 1/2 (/ r q)) (* p (- (* -1/16 (/ (* p r) (pow q 3))) (* 1/4 (/ 1 q)))))))) (* 2 q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* 1/2 (/ (* p r) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* p (+ (* -1/16 (/ (* (pow p 2) r) (pow q 3))) (* 1/2 (/ r q))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* p (+ (* 1/2 (/ r q)) (* (pow p 2) (+ (* -1/16 (/ r (pow q 3))) (* 3/256 (/ (* (pow p 2) r) (pow q 5)))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* p (+ (* 1/2 (/ r q)) (* (pow p 2) (+ (* -1/16 (/ r (pow q 3))) (* (pow p 2) (+ (* -5/2048 (/ (* (pow p 2) r) (pow q 7))) (* 3/256 (/ r (pow q 5)))))))))))
#s(approx (* p r) #s(hole binary64 (* p r)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ 1/2 q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* -1/16 (/ (pow p 2) (pow q 3))) (* 1/2 (/ 1 q)))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow p 2) (- (* 3/256 (/ (pow p 2) (pow q 5))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow p 2) (- (* (pow p 2) (+ (* -5/2048 (/ (pow p 2) (pow q 7))) (* 3/256 (/ 1 (pow q 5))))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (+ (* 1/4 (/ (pow p 2) q)) (* 2 q))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (+ (* 2 q) (* (pow p 2) (+ (* -1/64 (/ (pow p 2) (pow q 3))) (* 1/4 (/ 1 q)))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (+ (* 2 q) (* (pow p 2) (+ (* (pow p 2) (- (* 1/512 (/ (pow p 2) (pow q 5))) (* 1/64 (/ 1 (pow q 3))))) (* 1/4 (/ 1 q)))))))
#s(approx (+ (* 4 (* q q)) (* p p)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (* 4 (* q q)) (* p p)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (* p p) #s(hole binary64 (pow p 2)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ 1/2 q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* -1/16 (/ (pow p 2) (pow q 3))) (* 1/2 (/ 1 q)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow p 2) (- (* 3/256 (/ (pow p 2) (pow q 5))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow p 2) (- (* (pow p 2) (+ (* -5/2048 (/ (pow p 2) (pow q 7))) (* 3/256 (/ 1 (pow q 5))))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (* r p) #s(hole binary64 (* p r)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1/4 (/ (pow p 2) q)))) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow p 2) (- (* 1/64 (/ (pow p 2) (pow q 3))) (* 1/4 (/ 1 q)))))) (* 2 q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow p 2) (- (* (pow p 2) (+ (* -1/512 (/ (pow p 2) (pow q 5))) (* 1/64 (/ 1 (pow q 3))))) (* 1/4 (/ 1 q)))))) (* 2 q))))
#s(approx (+ (fabs r) (fabs p)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* 1/4 (/ (pow p 2) q)) (* 2 q))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* 2 q) (* (pow p 2) (+ (* -1/64 (/ (pow p 2) (pow q 3))) (* 1/4 (/ 1 q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* 2 q) (* (pow p 2) (+ (* (pow p 2) (- (* 1/512 (/ (pow p 2) (pow q 5))) (* 1/64 (/ 1 (pow q 3))))) (* 1/4 (/ 1 q)))))))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* 1/4 (/ r q)) (* p (- (* -1/32 (/ (* p r) (pow q 3))) (* 1/8 (/ 1 q)))))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* 1/2 (/ (* p r) q)))) (* 2 q))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* -1/4 (/ p q)) (* 1/2 (/ r q)))))) (* 2 q))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* 1/2 (/ r q)) (* p (- (* -1/16 (/ (* p r) (pow q 3))) (* 1/4 (/ 1 q)))))))) (* 2 q))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ 1/2 q)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (+ (* -1/16 (/ (pow p 2) (pow q 3))) (* 1/2 (/ 1 q)))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (+ (* (pow p 2) (- (* 3/256 (/ (pow p 2) (pow q 5))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (+ (* (pow p 2) (- (* (pow p 2) (+ (* -5/2048 (/ (pow p 2) (pow q 7))) (* 3/256 (/ 1 (pow q 5))))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (* -1/2 (log (* 4 (pow q 2))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (log (* 4 (pow q 2)))) (* -1/8 (/ (pow p 2) (pow q 2))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (log (* 4 (pow q 2)))) (* (pow p 2) (- (* 1/64 (/ (pow p 2) (pow q 4))) (* 1/8 (/ 1 (pow q 2))))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (log (* 4 (pow q 2)))) (* (pow p 2) (- (* (pow p 2) (+ (* -1/384 (/ (pow p 2) (pow q 6))) (* 1/64 (/ 1 (pow q 4))))) (* 1/8 (/ 1 (pow q 2))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (log (* 4 (pow q 2)))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log (* 4 (pow q 2))) (* 1/4 (/ (pow p 2) (pow q 2))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log (* 4 (pow q 2))) (* (pow p 2) (+ (* -1/32 (/ (pow p 2) (pow q 4))) (* 1/4 (/ 1 (pow q 2))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log (* 4 (pow q 2))) (* (pow p 2) (+ (* (pow p 2) (- (* 1/192 (/ (pow p 2) (pow q 6))) (* 1/32 (/ 1 (pow q 4))))) (* 1/4 (/ 1 (pow q 2))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* (pow p 2) (- (* 1/128 (/ (pow p 2) (pow q 3))) (* 1/8 (/ 1 q)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* (pow p 2) (- (* (pow p 2) (+ (* -1/1024 (/ (pow p 2) (pow q 5))) (* 1/128 (/ 1 (pow q 3))))) (* 1/8 (/ 1 q)))))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (* -2 (/ (pow q 2) p))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (fabs r)))) p)))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))) p)))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 (* -2 (/ (pow q 2) (pow p 2)))))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (fabs r)))) (pow p 2))))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))) (pow p 2))))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (* -2 (/ (pow q 2) (pow p 2)))))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (fabs r)))) (pow p 2))))
#s(approx (* (/ q p) (/ q p)) #s(hole binary64 (/ (pow q 2) (pow p 2))))
#s(approx (/ q p) #s(hole binary64 (/ q p)))
#s(approx (/ (+ (fabs p) (fabs r)) p) #s(hole binary64 (/ (+ (fabs p) (fabs r)) p)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* 1/2 (+ r (+ (fabs p) (fabs r))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (+ (* -1/2 p) (* 1/2 (+ r (+ (fabs p) (fabs r)))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (+ r (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) r))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (+ (* 1/2 p) (* 1/2 (- (+ (fabs p) (fabs r)) r)))))
#s(approx (neg p) #s(hole binary64 (* -1 p)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (/ (+ (* -1/2 p) (* -1/2 (- (+ (fabs p) (fabs r)) r))) p)))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (* -1 (/ (* r (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2)) p))))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (/ (+ (* -1 (* r (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2))) (* -1/2 p)) p)))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (/ (* r (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2)) p)))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (/ (+ (* 1/2 p) (* r (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2))) p)))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (/ (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2) p)))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (/ (- (+ (* 1/2 (/ p r)) (* 1/2 (/ (+ (fabs p) (fabs r)) r))) 1/2) p)))
#s(approx (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) #s(hole binary64 (* 1/2 (/ (+ (fabs p) (fabs r)) (* p r)))))
#s(approx (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) #s(hole binary64 (/ (+ (* 1/2 (/ p r)) (* 1/2 (/ (+ (fabs p) (fabs r)) r))) p)))
#s(approx (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) #s(hole binary64 (* -1/2 (/ (+ (fabs p) (fabs r)) (* p r)))))
#s(approx (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) #s(hole binary64 (/ (+ (* -1/2 (/ p r)) (* -1/2 (/ (+ (fabs p) (fabs r)) r))) p)))
#s(approx (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) #s(hole binary64 (* -1/2 (/ (+ (fabs p) (fabs r)) p))))
#s(approx (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) #s(hole binary64 (/ (+ (* -1/2 p) (* -1/2 (+ (fabs p) (fabs r)))) p)))
#s(approx (* -1/2 (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (* -1/2 (/ (+ (fabs p) (fabs r)) p))))
#s(approx (* 1/2 (pow p -1)) #s(hole binary64 (/ 1/2 p)))
#s(approx (pow p -1) #s(hole binary64 (/ 1 p)))
#s(approx (* 1/2 (/ r p)) #s(hole binary64 (* 1/2 (/ r p))))
#s(approx (/ r p) #s(hole binary64 (/ r p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (/ (* p (pow q 2)) (pow r 2)) (/ (pow q 2) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* p (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* p (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6))))))) (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (+ r (fabs p)) #s(hole binary64 (+ r (fabs p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6))))))) (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (+ (* p (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ 1 (pow r 2))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (+ (* p (- (+ (* p (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6)))))) (/ 1 (pow r 3))) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ 1 (pow r 2))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 3)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (+ (* -1 (* p r)) (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2))))) (pow p 3))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (+ (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2)))) (* p (+ (* -1 p) (* -1 r)))) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p r)) (* -1 (pow r 2))) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p (+ p r))) (* -1 (pow r 2))) (pow p 3))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p r)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p (+ p r))) (* -1 (pow r 2))) (pow p 2))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p r)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (+ (* -1 (* p r)) (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2))))) (pow p 2))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (/ (+ (* -1 (* p r)) (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2))))) p)))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* p (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4)))))) (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* p (+ (* p (* (pow q 2) (- (+ (* 3 (/ 1 (pow r 5))) (/ 1 (* (pow q 2) (pow r 3)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7)))))) (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4))))))) (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 4))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6))))))) (* (pow q 2) (- (+ (* 3 (/ 1 (pow r 5))) (/ 1 (* (pow q 2) (pow r 3)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))))) (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4))))))) (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* p (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4))))) (/ 1 (* (pow q 2) r))) (/ 1 (pow r 3)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* p (- (+ (* p (- (+ (* 3 (/ 1 (pow r 5))) (/ 1 (* (pow q 2) (pow r 3)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (* (pow q 2) (pow r 2)))) (* 3 (/ 1 (pow r 4))))) (/ 1 (* (pow q 2) r))) (/ 1 (pow r 3)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* p (- (+ (* p (- (+ (* 3 (/ 1 (pow r 5))) (+ (* p (- (/ 1 (* (pow q 2) (pow r 4))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (/ 1 (* (pow q 2) (pow r 3))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (* (pow q 2) (pow r 2)))) (* 3 (/ 1 (pow r 4))))) (/ 1 (* (pow q 2) r))) (/ 1 (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ -1 (pow r 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (- (* -3 (/ p (pow r 4))) (/ 1 (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (- (* p (- (* p (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (- (* p (- (* p (- (+ (* -1 (* p (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 3)))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ -1 (* (pow q 2) r))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (- (* -1 (/ p (* (pow q 2) (pow r 2)))) (/ 1 (* (pow q 2) r)))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (- (* p (- (* -1 (/ p (* (pow q 2) (pow r 3)))) (/ 1 (* (pow q 2) (pow r 2))))) (/ 1 (* (pow q 2) r)))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (- (* p (- (* p (- (* -1 (/ p (* (pow q 2) (pow r 4)))) (/ 1 (* (pow q 2) (pow r 3))))) (/ 1 (* (pow q 2) (pow r 2))))) (/ 1 (* (pow q 2) r)))))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (* -1 (* (pow q 2) r))))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (+ (* -1 (* (pow q 2) r)) (* p (pow q 2)))))
#s(approx (/ -1 p) #s(hole binary64 (/ -1 p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ 1 r)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (+ (/ 1 r) (/ p (pow r 2)))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (+ (* p (+ (/ 1 (pow r 2)) (/ p (pow r 3)))) (/ 1 r))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (+ (* p (+ (* p (+ (/ 1 (pow r 3)) (/ p (pow r 4)))) (/ 1 (pow r 2)))) (/ 1 r))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* -1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* p (- (* -1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* -1 r))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (/ (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) p)))
#s(approx (/ (+ (fabs r) (fabs p)) p) #s(hole binary64 (/ (+ (fabs p) (fabs r)) p)))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (* -1 (/ r p))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (/ (+ p (* -1 r)) p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -2 (/ (pow q 2) p))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -2 (/ (pow q 2) p))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p)))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* -2 (pow q 2))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p (- (+ (fabs p) (fabs r)) (* -1 r)))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* -1 r))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 p))) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 p))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (* -1 p)))))
#s(approx (+ (fabs r) (* -1 p)) #s(hole binary64 (fabs r)))
#s(approx (+ (fabs r) (* -1 p)) #s(hole binary64 (+ (fabs r) (* -1 p))))
#s(approx (* -1 p) #s(hole binary64 (* -1 p)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (+ p (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* -2 (/ (pow q 2) (pow p 2)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) (pow p 2))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (pow p 2))))
#s(approx (* -2 (* (/ q p) (/ q p))) #s(hole binary64 (* -2 (/ (pow q 2) (pow p 2)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ p r) (+ (/ (fabs p) r) (/ (fabs r) r)))) 1)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* p (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* -1/2 (* p (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))) (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (* p (+ (* -1/2 (* p (+ (* 1/2 (* (/ (* r (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* (/ (* r (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* -1/2 (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (+ (* -1 (* p (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))) (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (+ (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (- (* -1 (* p (+ (* 1/2 (* (/ (* r (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* (/ (* r (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (- (+ (* -1 p) (* 2 r)) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (/ (- (+ (* -1 p) (* 2 r)) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)))
#s(approx (* 2 (/ r p)) #s(hole binary64 (* 2 (/ r p))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (/ (+ p (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) #s(hole binary64 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) #s(hole binary64 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 r))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (* -1 r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* p (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* p (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* p (- (+ 1 (* -1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* p (- (+ 1 (* p (- (* -1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (+ (sqrt (* p p)) (fabs r)) #s(hole binary64 (fabs r)))
#s(approx (+ (sqrt (* p p)) (fabs r)) #s(hole binary64 (+ p (fabs r))))
#s(approx (sqrt (* p p)) #s(hole binary64 p))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* 2 (* p r)) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* p (- (* -1 p) (* -2 r))) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow r 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* p (+ p (* -2 r))) (pow r 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow r 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow r 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* p (+ p (* -2 r))) (pow r 2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1/8 (/ (pow p 2) q))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* (pow p 2) (- (* 1/4 (/ r (* p q))) (* 1/8 (/ 1 q))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* (pow p 2) (- (+ (* 1/4 (/ r (* p q))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* 2 q)) (pow p 2)))) (* 1/8 (/ 1 q))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* -1/8 (/ (pow p 2) q))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* (pow p 2) (- (* 1/4 (/ r (* p q))) (* 1/8 (/ 1 q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1/8 (/ p q))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* p (- (* 1/4 (/ r (* p q))) (* 1/8 (/ 1 q))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* p (- (* 1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p)) 1/2))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p))) 1/2))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p)))) 1/2))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1/2 (/ p (pow q 6)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* p (- (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* p (- (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (+ (* 1/2 (/ 1 (pow q 6))) (/ 1 (* (pow p 2) (pow q 4))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* p (- (+ (* -1 (/ r (* (pow p 3) (pow q 4)))) (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p))) (+ (* 1/2 (/ 1 (pow q 6))) (/ 1 (* (pow p 2) (pow q 4))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* -1/2 (/ p (pow q 6)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* p (- (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* p (- (+ (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (/ 1 (* (pow p 4) (pow q 2)))) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* p (- (+ (* -1 (/ (+ (* -2 (/ r (pow q 2))) (* -1 (/ r (pow q 2)))) (pow p 5))) (+ (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (/ 1 (* (pow p 4) (pow q 2))))) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (* -1 (/ p (pow q 6)))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (* p (- (+ (/ r (* p (pow q 6))) (+ (/ (fabs p) (* p (pow q 6))) (/ (fabs r) (* p (pow q 6))))) (/ 1 (pow q 6))))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (* -1 p)))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ 1 (* (pow p 3) (pow q 2)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ (+ (* -1 (/ (+ (* -2 (/ r (pow q 2))) (* -1 (/ r (pow q 2)))) p)) (/ 1 (pow q 2))) (pow p 3))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* -2 (/ r (pow q 2))) (* -1 (/ r (pow q 2)))))) (+ (* 2 (/ (pow r 2) (pow q 2))) (/ (pow r 2) (pow q 2)))) (pow p 2))) (/ 1 (pow q 2))) (+ (* -2 (/ r (* p (pow q 2)))) (* -1 (/ r (* p (pow q 2)))))) (pow p 3))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ (- (+ (* -1 (/ (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* -2 (/ r (pow q 2))) (* -1 (/ r (pow q 2)))))) (+ (* 2 (/ (pow r 2) (pow q 2))) (/ (pow r 2) (pow q 2)))))) (+ (* -1 (* (+ (* -2 (/ r (pow q 2))) (* -1 (/ r (pow q 2)))) (+ (* 2 (pow r 2)) (pow r 2)))) (* -1 (/ (pow r 3) (pow q 2))))) (pow p 3))) (/ 1 (pow q 2))) (+ (* -2 (/ r (* p (pow q 2)))) (+ (* -1 (/ r (* p (pow q 2)))) (+ (* -1 (/ (* (+ (* -2 r) (* -1 r)) (+ (* -2 (/ r (pow q 2))) (* -1 (/ r (pow q 2))))) (pow p 2))) (+ (* 2 (/ (pow r 2) (* (pow p 2) (pow q 2)))) (/ (pow r 2) (* (pow p 2) (pow q 2)))))))) (pow p 3))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow p 3) (pow q 2))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow p 3) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p) (pow q 2)))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow p 3) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p) (+ (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow p 2)) (pow q 2))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow p 3) (+ (* -1 (/ (* (pow q 2) (pow r 3)) (pow p 3))) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) p) (+ (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow p 2)) (pow q 2)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (pow p 3)))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow p 3) (+ 1 (+ (* -2 (/ r p)) (* -1 (/ r p)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow p 3) (+ 1 (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2)))))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow p 3) (+ 1 (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 3) (pow p 3))) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))))))
#s(approx (- p r) #s(hole binary64 p))
#s(approx (- p r) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ 1 (* p (pow q 4)))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ (+ (/ 1 (pow q 4)) (/ r (* p (pow q 4)))) p)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ (- (+ (/ 1 (pow q 4)) (/ (pow r 2) (* (pow p 2) (pow q 4)))) (* -1 (/ r (* p (pow q 4))))) p)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ (- (+ (/ 1 (pow q 4)) (/ (pow r 3) (* (pow p 3) (pow q 4)))) (+ (* -1 (/ r (* p (pow q 4)))) (* -1 (/ (pow r 2) (* (pow p 2) (pow q 4)))))) p)))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ 1 (pow p 5))))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ (+ 1 (* -1 (/ (+ (* -4 r) (* -1 r)) p))) (pow p 5))))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ (- (+ 1 (* -1 (/ (+ (* -1 (pow (+ (* -4 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow p 2)))) (+ (* -4 (/ r p)) (* -1 (/ r p)))) (pow p 5))))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ (- (+ 1 (* -1 (/ (+ (* -4 (pow r 3)) (+ (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))) (+ (* -1 (* (+ (* -4 r) (* -1 r)) (+ (* -1 (pow (+ (* -4 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))))) (* -1 (* (+ (* -4 r) (* -1 r)) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))))))) (pow p 3)))) (+ (* -4 (/ r p)) (+ (* -1 (/ r p)) (+ (* -1 (/ (pow (+ (* -4 r) (* -1 r)) 2) (pow p 2))) (+ (* 2 (/ (pow r 2) (pow p 2))) (* 8 (/ (pow r 2) (pow p 2)))))))) (pow p 5))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ 1 (* p (pow q 4)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ (+ (/ 1 (pow q 4)) (/ r (* p (pow q 4)))) p)))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ (- (+ (/ 1 (pow q 4)) (/ (pow r 2) (* (pow p 2) (pow q 4)))) (* -1 (/ r (* p (pow q 4))))) p)))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ (- (+ (/ 1 (pow q 4)) (/ (pow r 3) (* (pow p 3) (pow q 4)))) (+ (* -1 (/ r (* p (pow q 4)))) (* -1 (/ (pow r 2) (* (pow p 2) (pow q 4)))))) p)))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (* p (pow q 4))))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (* p (+ (* -1 (/ (* (pow q 4) r) p)) (pow q 4)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (* -1 (pow q 2)))) p)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow r 3)) (pow p 3))) (* -1 (pow q 2))))) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (pow q 2) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (/ (* (pow q 2) (pow r 2)) (pow p 2)) (pow q 2)) (* -1 (/ (* (pow q 2) r) p))) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (/ (* (pow q 2) (pow r 3)) (pow p 3)) (pow q 2)) (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 r))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (* -2 (/ (* (pow q 2) r) (pow p 2))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (* -1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4)))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4))) (* -1/2 (/ (* r (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6)))) (pow p 6))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ 1 p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p)))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 p))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* p (+ 1 (* 2 (/ (pow q 2) (pow p 2)))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (+ (* 2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 6) (pow p 6)))))))))
#s(approx (+ (* 4 (* q q)) (* p p)) #s(hole binary64 (pow p 2)))
#s(approx (+ (* 4 (* q q)) (* p p)) #s(hole binary64 (* (pow p 2) (+ 1 (* 4 (/ (pow q 2) (pow p 2)))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ 1 p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* p (- (+ (* 2 (/ (pow q 4) (pow p 4))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 p))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* p (+ 1 (* 2 (/ (pow q 2) (pow p 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (+ (* 2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 6) (pow p 6)))))))))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (pow p 2)))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (* (pow p 2) (+ 1 (* 4 (/ (pow q 2) (pow p 2)))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 p)))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) 1))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ 1 p)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p)))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (log (/ 1 p))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (log (/ 1 p)) (* -2 (/ (pow q 2) (pow p 2))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (log (/ 1 p)) (+ (* -2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 4) (pow p 4)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (log (/ 1 p)) (+ (* -32/3 (/ (pow q 6) (pow p 6))) (+ (* -2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 4) (pow p 4))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -2 (log (/ 1 p)))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* -2 (log (/ 1 p))) (* 4 (/ (pow q 2) (pow p 2))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* -8 (/ (pow q 4) (pow p 4))) (+ (* -2 (log (/ 1 p))) (* 4 (/ (pow q 2) (pow p 2)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* -8 (/ (pow q 4) (pow p 4))) (+ (* -2 (log (/ 1 p))) (+ (* 4 (/ (pow q 2) (pow p 2))) (* 64/3 (/ (pow q 6) (pow p 6))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1/2 p)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* p (- (* 1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) p))) 1/2))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (+ (* 1/2 (/ (+ (fabs p) (fabs r)) p)) (/ (pow q 4) (pow p 4)))) 1/2))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (* -1 p)))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 -1))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (/ (+ (fabs p) (fabs r)) p)))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (/ (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p)))) p)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* -1/2 p)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* 1/2 p)))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* p (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) r) p))))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 -1/2))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (- (* -1 (/ (* r (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2)) p)) 1/2)))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 1/2))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (+ 1/2 (/ (* r (- (* 1/2 (/ (+ (fabs p) (fabs r)) r)) 1/2)) p))))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (/ 1/2 r)))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) (* p r))) (* 1/2 (/ 1 r))) (* 1/2 (/ 1 p)))))
#s(approx (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) #s(hole binary64 (/ 1/2 r)))
#s(approx (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) #s(hole binary64 (+ (* 1/2 (/ (+ (fabs p) (fabs r)) (* p r))) (* 1/2 (/ 1 r)))))
#s(approx (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) #s(hole binary64 (/ -1/2 r)))
#s(approx (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) #s(hole binary64 (- (* -1/2 (/ (+ (fabs p) (fabs r)) (* p r))) (* 1/2 (/ 1 r)))))
#s(approx (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) #s(hole binary64 (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (* -1 (pow q 2)))) p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow r 3)) (pow p 3))) (* -1 (pow q 2))))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2)))) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (+ (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2)) (/ (* (pow q 2) (- (* -1 (pow r 3)) (* (pow q 2) (+ (* -2 r) (* -1 r))))) (pow p 3))))) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ -1 p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 2) (pow p 2))) (/ (pow q 2) (pow p 2)))) 1) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 2) (pow p 2))) (+ (* -1 (/ (pow r 3) (pow p 3))) (/ (pow q 2) (pow p 2))))) (+ 1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow p 3)))) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ -1 p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2)))) 1) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ 1 p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (+ 1 (/ r p)) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p))) (* -1 (/ (pow r 2) (pow p 2)))) p)))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (/ r p))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (- (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p))) (* -1 (/ (pow r 2) (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ r p)))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (- (+ r (* -1 (/ (pow q 2) p))) (* -1 (/ (pow r 2) p))) p)))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ r p))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 r)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (- (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ -1 p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (/ (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) (pow p 2))) 1) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (/ (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) (pow p 2)) (/ (* (pow q 2) (- (* -1 (/ (pow r 3) (pow q 2))) (+ (* -2 r) (* -1 r)))) (pow p 3)))) 1) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ -1 (* p (pow q 2)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (* -1 (/ r (* p (pow q 2)))) (/ 1 (pow q 2))) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r (* p (pow q 2)))) (+ (* -1 (/ (pow r 2) (* (pow p 2) (pow q 2)))) (/ 1 (pow p 2)))) (/ 1 (pow q 2))) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r (* p (pow q 2)))) (+ (* -1 (/ (pow r 2) (* (pow p 2) (pow q 2)))) (+ (* -1 (/ (pow r 3) (* (pow p 3) (pow q 2)))) (/ 1 (pow p 2))))) (+ (* -2 (/ r (pow p 3))) (+ (* -1 (/ r (pow p 3))) (/ 1 (pow q 2))))) p)))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ 1 (pow p 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (+ 1 (* -1 (/ (+ (* -2 r) (* -1 r)) p))) (pow p 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (+ 1 (* -1 (/ (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))) (pow p 2)))) (+ (* -2 (/ r p)) (* -1 (/ r p)))) (pow p 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (+ 1 (* -1 (/ (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* -1 (pow (+ (* -2 r) (* -1 r)) 2)) (+ (* 2 (pow r 2)) (pow r 2))))) (+ (* -1 (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (* -1 (pow r 3)))) (pow p 3)))) (+ (* -2 (/ r p)) (+ (* -1 (/ r p)) (+ (* -1 (/ (pow (+ (* -2 r) (* -1 r)) 2) (pow p 2))) (+ (* 2 (/ (pow r 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))) (pow p 3))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ 1 (* p (pow q 2)))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ (+ (/ 1 (pow q 2)) (/ r (* p (pow q 2)))) p)))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ (- (+ (/ 1 (pow q 2)) (/ (pow r 2) (* (pow p 2) (pow q 2)))) (* -1 (/ r (* p (pow q 2))))) p)))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ (- (+ (/ 1 (pow q 2)) (/ (pow r 3) (* (pow p 3) (pow q 2)))) (+ (* -1 (/ r (* p (pow q 2)))) (* -1 (/ (pow r 2) (* (pow p 2) (pow q 2)))))) p)))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (* p (pow q 2))))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (* p (+ (* -1 (/ (* (pow q 2) r) p)) (pow q 2)))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ -1 p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (+ 1 (/ r p))) p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (* -1 (/ (pow r 3) (pow p 3))) (+ 1 (+ (/ r p) (/ (pow r 2) (pow p 2))))) p)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p))) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))) 1/2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* -1 p)))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 -1))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 1))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (+ 1 (* -1 (/ r p)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* -1 (pow p 2))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow p 2) (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow p 2) (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* -1 (pow p 2))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* (pow p 2) (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 p))) #s(hole binary64 (* -1 p)))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 p))) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1))))
#s(approx (+ (fabs r) (* -1 p)) #s(hole binary64 (* -1 p)))
#s(approx (+ (fabs r) (* -1 p)) #s(hole binary64 (* p (- (/ (fabs r) p) 1))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 p))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* p (+ 1 (/ (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)) p)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 -1))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ p r)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (* p (pow r 2)))) (+ (/ 1 r) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))))) (/ 1 p)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2)))) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* -1/2 (/ (+ (* -2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))))) (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2)))))))) (pow p 3))) (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2))))) 1/2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 p)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (+ (* 2 (/ r p)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2))) (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow p 2)) (/ (pow r 2) (pow p 2)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (+ (* -1 (/ (+ (* -2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))))) (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2)))))))) (pow p 3))) (+ (* 2 (/ r p)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2)))) (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow p 2)) (/ (pow r 2) (pow p 2)))))))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (* -1 p)))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 -1))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (fabs r) (* -1 r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (fabs r) (* -1 r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (fabs r) (* -1 r)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1 (/ (pow q 2) p)) (+ (* 1/4 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) (pow p 3))) (* 1/2 (- (fabs r) (* -1 r))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (fabs r) (* -1 r))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -2 (/ (pow q 2) p))) (* -1 r))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -2 (/ (* (pow q 2) r) (pow p 2)))) (+ (* -1 r) (* 2 (/ (pow q 2) p))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* 1/2 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) (pow p 3)))) (+ (* -1 r) (+ (* 2 (/ (* (pow q 2) r) (pow p 2))) (* 2 (/ (pow q 2) p)))))))
#s(approx (+ (sqrt (* p p)) (fabs r)) #s(hole binary64 p))
#s(approx (+ (sqrt (* p p)) (fabs r)) #s(hole binary64 (* p (+ 1 (/ (fabs r) p)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -1 (pow p 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (* 2 (/ r p)) 1))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2)) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2)))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 p))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (/ (fabs p) p) (/ (fabs r) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (+ (* 2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 p))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow p 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow p 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (/ (pow r 2) (pow p 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (+ (fabs p) (fabs r)) r))) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r)))) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* (pow p 2) (- (* -1 (/ (+ (* -1/2 (/ (- (+ (fabs p) (fabs r)) (* 2 q)) p)) (* -1/4 (/ r q))) p)) (* 1/8 (/ 1 q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1 (* p (+ (* -1/4 (/ r (* p q))) (* 1/8 (/ 1 q)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))))) p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))))) p)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* p (+ (* -1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* p (+ (* -1 (/ (- (* 1/2 (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) (/ 1 (* p (pow q 4)))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* p (+ (* -1 (/ (+ (* -1 (/ (+ (/ 1 (pow q 4)) (/ r (* p (pow q 4)))) p)) (* 1/2 (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* -1 (* p (+ (* -1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* -1 (* p (+ (* -1 (/ (+ (* 1/2 (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) (/ 1 (* (pow p 3) (pow q 2)))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* -1 (* p (+ (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (+ (* 2 (/ r (pow q 2))) (/ r (pow q 2))) p)) (/ 1 (pow q 2))) (pow p 3))) (* 1/2 (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (* -1 (* p (+ (* -1 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (/ 1 (pow q 6)))))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ r (* 2 r)) (* p (pow q 2)))) (/ 1 (pow q 2))) (pow p 3)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* p (pow q 2)))) (/ (pow (+ r (* 2 r)) 2) (* p (pow q 2)))) (* -1 (/ (+ r (* 2 r)) (pow q 2)))) p)) (/ 1 (pow q 2))) (pow p 3)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ r (* 2 r)) (+ (* -1 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow q 2))) (/ (pow (+ r (* 2 r)) 2) (pow q 2)))) p)) (+ (* -1 (/ (pow r 3) (* p (pow q 2)))) (/ (* (+ r (* 2 r)) (+ (* 2 (pow r 2)) (pow r 2))) (* p (pow q 2))))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow q 2))) (/ (pow (+ r (* 2 r)) 2) (pow q 2)))) p)) (* -1 (/ (+ r (* 2 r)) (pow q 2)))) p)) (/ 1 (pow q 2))) (pow p 3)))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (* (pow p 3) (+ (* -1 (pow q 2)) (/ (* (pow q 2) (+ r (* 2 r))) p))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (* (pow p 3) (+ (* -1 (/ (+ (* -1 (* (pow q 2) (+ r (* 2 r)))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) p)) p)) (* -1 (pow q 2)))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (* (pow p 3) (+ (* -1 (/ (+ (* -1 (* (pow q 2) (+ r (* 2 r)))) (* -1 (/ (+ (* -1 (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2)))) (/ (* (pow q 2) (pow r 3)) p)) p))) p)) (* -1 (pow q 2)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow p 3) (- (+ (* 2 (/ r p)) (/ r p)) 1)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow p 3) (- (* -1 (/ (+ (* -1 (+ r (* 2 r))) (+ (* 2 (/ (pow r 2) p)) (/ (pow r 2) p))) p)) 1)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow p 3) (- (* -1 (/ (+ (* -1 (+ r (* 2 r))) (* -1 (/ (+ (* -1 (+ (* 2 (pow r 2)) (pow r 2))) (/ (pow r 3) p)) p))) p)) 1)))))
#s(approx (- p r) #s(hole binary64 (* -1 (* p (- (/ r p) 1)))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ r (* p (pow q 4)))) (/ 1 (pow q 4))) p))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ (/ r (pow q 4)) (/ (pow r 2) (* p (pow q 4)))) p)) (/ 1 (pow q 4))) p))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (pow r 2) (pow q 4))) (* -1 (/ (pow r 3) (* p (pow q 4))))) p)) (/ r (pow q 4))) p)) (/ 1 (pow q 4))) p))))
#s(approx (pow (- p r) -5) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ r (* 4 r)) p)) 1) (pow p 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 8 (pow r 2))) p)) (/ (pow (+ r (* 4 r)) 2) p)) (* -1 (+ r (* 4 r)))) p)) 1) (pow p 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ r (* 4 r)) (+ (* -1 (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow (+ r (* 4 r)) 2))) p)) (+ (* -1 (/ (+ (* 4 (pow r 3)) (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))) p)) (/ (* (+ r (* 4 r)) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) p))) (+ (* -1 (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow (+ r (* 4 r)) 2))) p)) (* -1 (+ r (* 4 r)))) p)) 1) (pow p 5)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ r (* p (pow q 4)))) (/ 1 (pow q 4))) p))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (/ (pow r 2) (* p (pow q 4))) (* -1 (/ r (pow q 4)))) p)) (/ 1 (pow q 4))) p))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (* -1 (/ (pow r 3) (* p (pow q 4)))) (/ (pow r 2) (pow q 4))) p)) (* -1 (/ r (pow q 4)))) p)) (/ 1 (pow q 4))) p))))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (* -1 (* p (+ (* -1 (pow q 4)) (/ (* (pow q 4) r) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow q 2) (pow r 2)) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow q 2) (pow r 3)) p) (* -1 (* (pow q 2) (pow r 2)))) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* (pow q 2) r) (/ (* (pow q 2) (pow r 2)) p)) p)) (* -1 (pow q 2))) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow r 2))) (* -1 (/ (* (pow q 2) (pow r 3)) p))) p)) (* (pow q 2) r)) p)) (* -1 (pow q 2))) p))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* 2 (/ (pow q 2) p))))) p)) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))) p)) 1)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 r)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ (* -1 r) (* 2 (/ (* (pow q 2) r) (pow p 2))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ (* -1 r) (+ (* 1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4))) (* 2 (/ (* (pow q 2) r) (pow p 2)))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ (* -1 r) (+ (* 1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4))) (+ (* 1/2 (/ (* r (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6)))) (pow p 6))) (* 2 (/ (* (pow q 2) r) (pow p 2))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ -1 p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (+ (* 2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 6) (pow p 6))))))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ -1 p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 p))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (fabs r)) p)) 1)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) p)))) p)) 1)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 2 (/ (pow q 4) (pow p 2))) (* 2 (pow q 2))) p)))) p)) 1)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* p (+ 1 (+ (* -2 (/ (pow q 4) (pow p 4))) (+ (* 2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 6) (pow p 6))))))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r)))) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 p))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* 2 (/ (pow q 2) p))))) p)) 1)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))) p)) 1)))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ -1 p)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (* -1 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (log (/ -1 p))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (log (/ -1 p)) (* -2 (/ (pow q 2) (pow p 2))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (log (/ -1 p)) (+ (* -2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 4) (pow p 4)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (log (/ -1 p)) (+ (* -32/3 (/ (pow q 6) (pow p 6))) (+ (* -2 (/ (pow q 2) (pow p 2))) (* 4 (/ (pow q 4) (pow p 4))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -2 (log (/ -1 p)))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* -2 (log (/ -1 p))) (* 4 (/ (pow q 2) (pow p 2))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* -8 (/ (pow q 4) (pow p 4))) (+ (* -2 (log (/ -1 p))) (* 4 (/ (pow q 2) (pow p 2)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (* -8 (/ (pow q 4) (pow p 4))) (+ (* -2 (log (/ -1 p))) (+ (* 4 (/ (pow q 2) (pow p 2))) (* 64/3 (/ (pow q 6) (pow p 6))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 p)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (+ (fabs p) (fabs r))) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (pow q 2)) (/ (pow q 4) (pow p 2))) p)) (* 1/2 (+ (fabs p) (fabs r)))) p)) 1/2)))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p)))))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p)))) p)))))))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 (- (* -1 (/ (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) p))) p)) 1)))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (* -1 (/ (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) p))) p))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (- (/ (* r (+ 1/2 (* -1/2 (/ (+ (fabs p) (fabs r)) r)))) p) 1/2)))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (+ 1/2 (* -1 (/ (* r (+ 1/2 (* -1/2 (/ (+ (fabs p) (fabs r)) r)))) p)))))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (+ (* -1 (/ (+ 1/2 (* -1/2 (/ (+ (fabs p) (fabs r)) r))) p)) (* 1/2 (/ 1 r)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow q 2) (pow r 2)) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow q 2) (pow r 3)) p) (* -1 (* (pow q 2) (pow r 2)))) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2)))) p))) p)) (pow q 2)) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (* (pow q 2) (+ r (* 2 r))) (pow r 3))) p)) (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2))))) p))) p)) (pow q 2)) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (- (* (pow q 2) (+ r (* 2 r))) (pow r 3)) p)) (* -1 (pow q 2))) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p))) p))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* -1 (/ (- (* -1 (/ r p)) 1) p))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (+ r (* -1 (/ (pow q 2) p))) (* -1 (/ (pow r 2) p))) p)) 1) p))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* -1 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ (- (+ r (* -1 (/ (pow q 2) p))) (* -1 (/ (pow r 2) p))) p))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (+ (* -1 r) (/ (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) p)) p))) p))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (+ (* -1 r) (* -1 (/ (+ (* -1 (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2)))))) (* -1 (/ (* (pow q 2) (- (+ r (* 2 r)) (/ (pow r 3) (pow q 2)))) p))) p))) p))) p))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (/ 1 (pow q 2)) (/ r (* p (pow q 2)))) p))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (pow r 2) (* p (pow q 2)))) (/ 1 p)) (/ r (pow q 2))) p)) (/ 1 (pow q 2))) p))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (+ r (* 2 r)) (/ (pow r 3) (pow q 2))) p)) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) p)) (/ r (pow q 2))) p)) (/ 1 (pow q 2))) p))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ r (* 2 r)) p)) 1) (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (+ (* 2 (pow r 2)) (pow r 2)) p)) (/ (pow (+ r (* 2 r)) 2) p)) (* -1 (+ r (* 2 r)))) p)) 1) (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ r (* 2 r)) (+ (* -1 (+ (* 2 (pow r 2)) (pow r 2))) (pow (+ r (* 2 r)) 2))) p)) (+ (* -1 (/ (pow r 3) p)) (/ (* (+ r (* 2 r)) (+ (* 2 (pow r 2)) (pow r 2))) p))) (+ (* -1 (+ (* 2 (pow r 2)) (pow r 2))) (pow (+ r (* 2 r)) 2))) p)) (* -1 (+ r (* 2 r)))) p)) 1) (pow p 3)))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ r (* p (pow q 2)))) (/ 1 (pow q 2))) p))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (/ (pow r 2) (* p (pow q 2))) (* -1 (/ r (pow q 2)))) p)) (/ 1 (pow q 2))) p))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (* -1 (/ (pow r 3) (* p (pow q 2)))) (/ (pow r 2) (pow q 2))) p)) (* -1 (/ r (pow q 2)))) p)) (/ 1 (pow q 2))) p))))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (* -1 (* p (+ (* -1 (pow q 2)) (/ (* (pow q 2) r) p))))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (/ (pow r 3) p) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (+ (fabs p) (fabs r)) r))) p)) 1/2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (fabs r)) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) p)))) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p)))) r) p)) 1)))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* -1 (* p (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))) (/ r p))))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) r) p)) 1)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ r p)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -2 (/ (pow q 2) p))) p)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) p)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* p (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))) (/ r p))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ (* -2 (/ (pow q 2) p)) (* -1 (- (* -1 (+ (fabs p) (fabs r))) r))) p)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p)))) (* -1 r)) p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow p 2) (- (* -1 (/ (+ (* -1 (- (+ (fabs p) (fabs r)) (* -1 r))) (* 2 (/ (pow q 2) p))) p)) 1))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 p))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p)))))))
#s(approx (+ (fabs r) (* -1 p)) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (fabs r) p)))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* p (- (* -1 (/ (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)) p)) 1)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) r) p)) 1)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) p))) r) p)) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1) p)) (/ 1 r))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))) (* 1/2 (/ (+ (* 2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) (* (+ r (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))))) p))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 p))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 r) (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p))) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 r) (* -1 (/ (- (+ (* 2 (/ (* (pow q 2) r) p)) (+ (* 2 (/ (* (pow q 2) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) p)) (+ (/ (* (+ r (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))) p) (pow (+ (fabs p) (fabs r)) 2)))) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p))) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (* -1 (* p (- (+ 1 (* -2 (/ r p))) (+ (* -1 (/ r p)) (+ (/ (fabs p) p) (/ (fabs r) p))))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (- (* -1 (/ (- (* -2 r) (+ (fabs p) (+ (fabs r) (* -1 r)))) p)) 1)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (fabs r) r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (fabs r) r)) (/ (pow q 2) p))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (fabs r) r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) p)) (* (pow q 2) r)) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (fabs r) r)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (fabs r) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* 2 (/ (pow q 2) p))) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -1 (/ (- (* -1 (/ (- (* -1/2 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) p)) (* -2 (* (pow q 2) r))) p)) (* 2 (pow q 2))) p))) r)))
#s(approx (+ (sqrt (* p p)) (fabs r)) #s(hole binary64 (* -1 p)))
#s(approx (+ (sqrt (* p p)) (fabs r)) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (fabs r) p)))))))
#s(approx (sqrt (* p p)) #s(hole binary64 (* -1 p)))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (* -1 (/ (- (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) p)) (* 2 r)) p)) 1))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 p)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p))))) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))) p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ r p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -2 (/ (pow q 2) p))) p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) p)))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow r 2)) p)) (* 2 r)) p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow r 2) p)) (* 2 r)) p))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))))
#s(approx (fabs r) #s(hole binary64 (fabs r)))
#s(approx r #s(hole binary64 r))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (* 1/4 (/ (* p r) q)))))
#s(approx (* 1/4 (/ r q)) #s(hole binary64 (* 1/4 (/ r q))))
#s(approx (/ r q) #s(hole binary64 (/ r q)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2)))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* (pow q 2) (* r (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2))))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* r (+ (* (pow q 2) (* r (- (* (pow q 2) (- (+ (* 2 (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ 1 (pow p 6))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7)))))) (/ 1 (pow p 4))))) (* (pow q 2) (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3)))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2))))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* (pow q 6) (* r (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4))))))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 6) (* r (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4))))))))) (* (pow q 6) (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* r (+ (* r (+ (* -1 (* (pow q 6) (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4)))))))) (* (pow q 6) (* r (- (/ 1 (* (pow p 6) (pow q 2))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (* 3 (/ 1 (* (pow p 5) (pow q 2)))))) (pow p 3))) (+ (* 2 (- (* 4 (/ 1 (pow p 8))) (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (pow p 5))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow p 10))) (* 5 (/ (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))) (pow p 11))))))) (+ (* 3 (/ (+ p (* 2 p)) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 4) (pow q 4))))))))))) (* (pow q 6) (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* (pow p 3) (pow q 2))))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (- (+ (* -1 (* r (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4)))))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2)))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* (pow p 3) (pow q 2))))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (- (+ (* 1/2 (/ 1 (pow q 6))) (+ (* 3 (/ 1 (* (pow p 4) (pow q 2)))) (* r (- (* r (- (/ 1 (* (pow p 6) (pow q 2))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (* 3 (/ 1 (* (pow p 5) (pow q 2)))))) (pow p 3))) (+ (* 2 (- (* 4 (/ 1 (pow p 8))) (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (pow p 5))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow p 10))) (* 5 (/ (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))) (pow p 11))))))) (+ (* 3 (/ (+ p (* 2 p)) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 4) (pow q 4)))))))) (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4)))))))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* (pow p 3) (pow q 2))))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (+ (* 3 (/ 1 (* (pow p 4) (pow q 2)))) (* 1/2 (/ 1 (pow q 6))))) (/ 1 (* (pow p 3) (pow q 2)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (+ (* -1 (* r (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2))))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))))) (/ 1 (* (pow p 3) (pow q 2)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (+ (* 1/2 (/ 1 (pow q 6))) (+ (* 3 (/ 1 (* (pow p 4) (pow q 2)))) (* r (- (* r (- (/ 1 (* (pow p 6) (pow q 2))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (* 3 (/ 1 (* (pow p 5) (pow q 2)))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (* (pow p 7) (pow q 2))))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))))))))) (/ 1 (* (pow p 3) (pow q 2)))))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (- (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) (/ p (pow q 6)))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (- (+ (fabs p) (fabs r)) p)))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (+ r (+ (fabs p) (fabs r))) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (+ (* 3 (/ r (* (pow p 4) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 2))))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (+ (* r (+ (* -1 (* r (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2))))))) (* 3 (/ 1 (* (pow p 4) (pow q 2)))))) (/ 1 (* (pow p 3) (pow q 2))))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (+ (* r (+ (* r (- (* r (- (/ 1 (* (pow p 6) (pow q 2))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (* 3 (/ 1 (* (pow p 5) (pow q 2)))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (* (pow p 7) (pow q 2))))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2))))))) (* 3 (/ 1 (* (pow p 4) (pow q 2)))))) (/ 1 (* (pow p 3) (pow q 2))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* (pow p 3) (pow q 2)) (* (pow q 2) (* r (+ (* -2 (pow p 2)) (* -1 (pow p 2))))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* r (+ (* (pow q 2) (* r (+ p (* 2 p)))) (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))))) (* (pow p 3) (pow q 2)))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (+ (* r (+ (* r (+ (* -1 (* (pow q 2) r)) (* (pow q 2) (+ p (* 2 p))))) (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))))) (* (pow p 3) (pow q 2)))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* r (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* r (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (* r (+ p (* 2 p)))))) (pow p 3))))
#s(approx (pow (- p r) 3) #s(hole binary64 (+ (* r (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (* r (+ p (+ (* -1 r) (* 2 p))))))) (pow p 3))))
#s(approx (- p r) #s(hole binary64 (+ p (* -1 r))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (+ (/ 1 (* p (pow q 4))) (* 2 (/ 1 (pow p 5))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (+ (* 2 (/ 1 (pow p 5))) (+ (* r (+ (/ 1 (* (pow p 2) (pow q 4))) (* 10 (/ 1 (pow p 6))))) (/ 1 (* p (pow q 4)))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (+ (* 2 (/ 1 (pow p 5))) (+ (* r (+ (* 10 (/ 1 (pow p 6))) (+ (* r (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (/ 1 (* (pow p 3) (pow q 4))))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* p (pow q 4)))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (+ (* 2 (/ 1 (pow p 5))) (+ (* r (+ (* 10 (/ 1 (pow p 6))) (+ (* r (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* r (+ (* 2 (- (* 4 (/ 1 (pow p 8))) (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (pow p 5))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow p 10))) (* 5 (/ (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))) (pow p 11))))))) (/ 1 (* (pow p 4) (pow q 4))))) (/ 1 (* (pow p 3) (pow q 4)))))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* p (pow q 4)))))))
#s(approx (pow (- p r) -5) #s(hole binary64 (+ (* 5 (/ r (pow p 6))) (/ 1 (pow p 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (+ (* r (+ (* -1 (* r (+ (* 4 (/ 1 (pow p 7))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 6 (/ 1 (pow p 7))))))) (* 5 (/ 1 (pow p 6))))) (/ 1 (pow p 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (+ (* r (+ (* r (- (* r (- (* 4 (/ 1 (pow p 8))) (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (pow p 5))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow p 10))) (* 5 (/ (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))) (pow p 11))))))) (+ (* 4 (/ 1 (pow p 7))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 6 (/ 1 (pow p 7))))))) (* 5 (/ 1 (pow p 6))))) (/ 1 (pow p 5)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (+ (/ 1 (* p (pow q 4))) (/ r (* (pow p 2) (pow q 4))))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (+ (* r (+ (/ 1 (* (pow p 2) (pow q 4))) (/ r (* (pow p 3) (pow q 4))))) (/ 1 (* p (pow q 4))))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (+ (* r (+ (* r (+ (/ 1 (* (pow p 3) (pow q 4))) (/ r (* (pow p 4) (pow q 4))))) (/ 1 (* (pow p 2) (pow q 4))))) (/ 1 (* p (pow q 4))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (+ (fabs p) (fabs r)) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (* -1 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (* -1 (/ (pow q 2) p)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (/ (* (pow q 2) r) (pow p 2)) (/ (pow q 2) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* r (- (/ (* (pow q 2) r) (pow p 3)) (* -1 (/ (pow q 2) (pow p 2))))) (/ (pow q 2) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* r (- (* r (- (/ (* (pow q 2) r) (pow p 4)) (* -1 (/ (pow q 2) (pow p 3))))) (* -1 (/ (pow q 2) (pow p 2))))) (/ (pow q 2) p))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p)))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) p))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (+ (* 1/2 r) (* 1/2 (- (+ (fabs p) (fabs r)) p)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (- (+ (fabs p) (fabs r)) p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (+ (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2))) (* -1/2 r))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (- (+ (* -1/2 (/ (+ (fabs p) (fabs r)) p)) (* 1/2 (/ r p))) 1/2)))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (- (+ (* -1/2 (/ (+ (fabs p) (fabs r)) p)) (* 1/2 (/ r p))) 1/2)))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (* -1 (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2))))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (+ (* -1 (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)) (* -1/2 (/ r p)))))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r))))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (/ (+ (* -1 (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2)) (* -1/2 (/ r p))) r)))
#s(approx (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) #s(hole binary64 (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r))))
#s(approx (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) #s(hole binary64 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (* -1 (/ (pow q 2) p)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))) (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4)))))))) (* -1 (* (pow q 2) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (+ r (fabs p)) #s(hole binary64 (fabs p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* -1 (* (pow q 2) (* r (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))) (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4)))))))) (* -1 (* (pow q 2) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (/ (pow q 2) (pow p 3)) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* -1 (* r (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (* -1 (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (* r (- (* -1 (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4))))))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (+ (* -1 (/ r (pow p 2))) (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (+ (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p)) (* r (- (* -1 (/ r (pow p 3))) (/ 1 (pow p 2)))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 3))) (+ (/ 1 p) (/ r (pow p 2))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 3))) (+ (* r (+ (/ 1 (pow p 2)) (/ r (pow p 3)))) (/ 1 p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (* -1 (/ (pow q 2) (pow p 2))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (/ 1 p) (/ r (pow p 2))))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* -1 (/ (pow q 2) (pow p 2)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (/ 1 p) (/ r (pow p 2)))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (pow q 2) (pow p 2))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (+ (* -1 (/ r p)) (/ (pow q 2) (pow p 2)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (+ (* r (- (* -1 (/ r (pow p 2))) (/ 1 p))) (/ (pow q 2) (pow p 2)))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (/ (pow q 2) p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (+ (* -1 r) (/ (pow q 2) p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (+ (* r (- (* -1 (/ r p)) 1)) (/ (pow q 2) p))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (/ (pow q 2) p)))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (+ (* -1 (/ (pow r 2) p)) (/ (pow q 2) p))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (/ (pow r 2) p))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (* -1 (pow q 2))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (+ (* -1 (pow q 2)) (pow r 2))))
#s(approx (* -1 (* r r)) #s(hole binary64 (* -1 (pow r 2))))
#s(approx (* r r) #s(hole binary64 (pow r 2)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* (pow q 2) (* r (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2)))))) (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (* r (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2)))))))) (* (pow q 2) (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2))))))) (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* r (+ (* r (+ (* -1 (* (pow q 2) (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2))))))) (* (pow q 2) (* r (- (/ 1 (pow p 6)) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (+ (* 3 (/ (+ p (* 2 p)) (pow p 7))) (/ 1 (* (pow p 4) (pow q 2)))))))))) (* (pow q 2) (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2))))))) (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* r (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2))))) (/ 1 (pow p 3))) (/ 1 (* p (pow q 2))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* r (- (+ (* -1 (* r (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2))))))) (* 3 (/ 1 (pow p 4)))) (/ 1 (* (pow p 2) (pow q 2))))) (/ 1 (pow p 3))) (/ 1 (* p (pow q 2))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* r (- (+ (* 3 (/ 1 (pow p 4))) (* r (- (* r (- (/ 1 (pow p 6)) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (+ (* 3 (/ (+ p (* 2 p)) (pow p 7))) (/ 1 (* (pow p 4) (pow q 2))))))) (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2)))))))) (/ 1 (* (pow p 2) (pow q 2))))) (/ 1 (pow p 3))) (/ 1 (* p (pow q 2))))))
#s(approx (pow (- p r) -3) #s(hole binary64 (+ (* 3 (/ r (pow p 4))) (/ 1 (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (+ (* r (+ (* -1 (* r (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (+ (* r (+ (* r (- (* r (- (/ 1 (pow p 6)) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7)))))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 3)))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (+ (/ 1 (* p (pow q 2))) (/ r (* (pow p 2) (pow q 2))))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (+ (* r (+ (/ 1 (* (pow p 2) (pow q 2))) (/ r (* (pow p 3) (pow q 2))))) (/ 1 (* p (pow q 2))))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (+ (* r (+ (* r (+ (/ 1 (* (pow p 3) (pow q 2))) (/ r (* (pow p 4) (pow q 2))))) (/ 1 (* (pow p 2) (pow q 2))))) (/ 1 (* p (pow q 2))))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (- (* -1 (/ r (pow p 2))) (/ 1 p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (- (* r (- (* -1 (/ r (pow p 3))) (/ 1 (pow p 2)))) (/ 1 p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (- (* r (- (* r (- (* -1 (/ r (pow p 4))) (/ 1 (pow p 3)))) (/ 1 (pow p 2)))) (/ 1 p))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* -1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* r (- (* -1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (+ r (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (+ r (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))) p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (+ r (+ (* -2 (/ (pow q 2) p)) (+ (fabs p) (+ (fabs r) (* -1 p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (+ (* p r) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (+ (* p r) (* p (+ (fabs p) (+ (fabs r) (* -1 p)))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (+ (fabs p) (+ (fabs r) (* -1 p)))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (+ r (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (* -1 r) #s(hole binary64 (* -1 r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -2 (/ (pow q 2) r))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (fabs r)) (* -1 p)))) r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (+ (fabs r) (* -1 r))) (* -1 p)))) r)))
#s(approx (* -2 (/ (* q q) r)) #s(hole binary64 (* -2 (/ (pow q 2) r))))
#s(approx (/ (* q q) r) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* -2 (/ (pow q 2) (pow r 2)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (fabs r)) (* -1 p)))) (pow r 2))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (+ (fabs r) (* -1 r))) (* -1 p)))) (pow r 2))))
#s(approx (* -2 (* (/ q r) (/ q r))) #s(hole binary64 (* -2 (/ (pow q 2) (pow r 2)))))
#s(approx (* (/ q r) (/ q r)) #s(hole binary64 (/ (pow q 2) (pow r 2))))
#s(approx (/ q r) #s(hole binary64 (/ q r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* r (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* -1/2 (* r (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))) (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (* r (+ (* -1/2 (* r (+ (* 1/2 (* (/ (* p (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* (/ (* p (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* -1/2 (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (+ (* -1 (* r (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))) (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (+ (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (- (* -1 (* r (+ (* 1/2 (* (/ (* p (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* (/ (* p (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p)))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (+ r (* -1 (* p (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (* -1 (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (- (/ r p) (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p)))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (+ 1 (+ (* -1 (/ (+ (fabs p) (fabs r)) p)) (/ r p)))))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) #s(hole binary64 (* -1 (/ (+ (fabs p) (fabs r)) p))))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) #s(hole binary64 (+ (* -1 (/ (+ (fabs p) (fabs r)) p)) (/ r p))))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) #s(hole binary64 (/ (+ (fabs p) (fabs r)) p)))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) #s(hole binary64 (+ (* -1 (/ r p)) (+ (/ (fabs p) p) (/ (fabs r) p)))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 r))) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (+ (fabs r) (* -1 r)) #s(hole binary64 (fabs r)))
#s(approx (+ (fabs r) (* -1 r)) #s(hole binary64 (+ (fabs r) (* -1 r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (+ (fabs r) (* r (- (* -1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (+ (fabs r) (* r (- (* r (- (* -1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (neg r) #s(hole binary64 (* -1 r)))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* 2 (* p r)) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* r (- (* -1 r) (* -2 p))) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* r (+ r (* -2 p))) (pow p 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow p 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* r (+ r (* -2 p))) (pow p 2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* 1/4 (/ (* p r) q))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* r (+ (* -1/8 (/ (pow p 2) (* q r))) (+ (* 1/4 (/ p q)) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* 2 q)) r)))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* r (+ (* -1/8 (/ (pow p 2) (* q r))) (* 1/4 (/ p q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* r (+ (* -1/8 (/ p (* q r))) (* 1/4 (/ 1 q))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* 1/2 (/ r (pow q 6)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* r (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* r (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (+ (/ 1 (* (pow q 4) (pow r 2))) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* r (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (+ (/ 1 (* (pow q 4) (pow r 2))) (+ (* 1/2 (/ 1 (pow q 6))) (/ p (* (pow q 4) (pow r 3)))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* 1/2 (/ r (pow q 6)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* r (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* r (- (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6)))) (/ 1 (* (pow q 2) (pow r 4)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* r (- (+ (* -1 (/ (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2))) (pow r 5))) (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6))))) (/ 1 (* (pow q 2) (pow r 4)))))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (/ r (pow q 6))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (* r (- (+ (/ 1 (pow q 6)) (+ (/ (fabs p) (* (pow q 6) r)) (/ (fabs r) (* (pow q 6) r)))) (/ p (* (pow q 6) r))))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 r))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (* r (- (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))) (/ p r)))))
#s(approx (+ r (+ (fabs p) (fabs r))) #s(hole binary64 r))
#s(approx (+ r (+ (fabs p) (fabs r))) #s(hole binary64 (* r (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ (- (* -1 (/ (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2))) r)) (/ 1 (pow q 2))) (pow r 3))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ (- (* -1 (/ (+ (* -2 (/ (pow p 2) (pow q 2))) (+ (* -1 (/ (pow p 2) (pow q 2))) (* (+ p (* 2 p)) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2)))))) (pow r 2))) (+ (* 2 (/ p (* (pow q 2) r))) (+ (/ 1 (pow q 2)) (/ p (* (pow q 2) r))))) (pow r 3))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ (- (* -1 (/ (+ (* (+ p (* 2 p)) (+ (* -2 (/ (pow p 2) (pow q 2))) (+ (* -1 (/ (pow p 2) (pow q 2))) (* (+ p (* 2 p)) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2))))))) (+ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2)))) (/ (pow p 3) (pow q 2)))) (pow r 3))) (+ (* -2 (/ (pow p 2) (* (pow q 2) (pow r 2)))) (+ (* -1 (/ (pow p 2) (* (pow q 2) (pow r 2)))) (+ (* 2 (/ p (* (pow q 2) r))) (+ (/ 1 (pow q 2)) (+ (/ p (* (pow q 2) r)) (/ (* (+ p (* 2 p)) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2)))) (pow r 2)))))))) (pow r 3))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow r 3) (+ (* -1 (pow q 2)) (/ (* (pow q 2) (+ p (* 2 p))) r)))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow r 3) (+ (* -1 (pow q 2)) (+ (/ (* (pow q 2) (+ p (* 2 p))) r) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow r 2)))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow r 3) (+ (* -1 (pow q 2)) (+ (/ (* (pow p 3) (pow q 2)) (pow r 3)) (+ (/ (* (pow q 2) (+ p (* 2 p))) r) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow r 2))))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow r 3) (- (+ (* 2 (/ p r)) (/ p r)) 1))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow r 3) (- (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (/ p r)))) 1))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* (pow r 3) (- (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (+ (/ p r) (/ (pow p 3) (pow r 3)))))) 1))))
#s(approx (- p r) #s(hole binary64 (* r (- (/ p r) 1))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ -1 (* (pow q 4) r))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ (- (* -1 (/ p (* (pow q 4) r))) (/ 1 (pow q 4))) r)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ (- (* -1 (/ (pow p 2) (* (pow q 4) (pow r 2)))) (+ (/ 1 (pow q 4)) (/ p (* (pow q 4) r)))) r)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ (- (* -1 (/ (pow p 3) (* (pow q 4) (pow r 3)))) (+ (/ 1 (pow q 4)) (+ (/ p (* (pow q 4) r)) (/ (pow p 2) (* (pow q 4) (pow r 2)))))) r)))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ (- (* -1 (/ (+ p (* 4 p)) r)) 1) (pow r 5))))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ (- (* -1 (/ (+ (* -4 (pow p 2)) (+ (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))) (pow (+ p (* 4 p)) 2))) (pow r 2))) (+ 1 (+ (* 4 (/ p r)) (/ p r)))) (pow r 5))))
#s(approx (pow (- p r) -5) #s(hole binary64 (/ (- (* -1 (/ (+ (* 4 (pow p 3)) (+ (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))) (+ (* (+ p (* 4 p)) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (* (+ p (* 4 p)) (+ (* -4 (pow p 2)) (+ (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))) (pow (+ p (* 4 p)) 2))))))) (pow r 3))) (+ 1 (+ (* -4 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow r 2))) (+ (* 4 (/ p r)) (+ (/ p r) (/ (pow (+ p (* 4 p)) 2) (pow r 2)))))))) (pow r 5))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ (- (* -1 (/ p (* (pow q 4) r))) (/ 1 (pow q 4))) r)))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ (- (* -1 (/ (pow p 2) (* (pow q 4) (pow r 2)))) (+ (/ 1 (pow q 4)) (/ p (* (pow q 4) r)))) r)))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ (- (* -1 (/ (pow p 3) (* (pow q 4) (pow r 3)))) (+ (/ 1 (pow q 4)) (+ (/ p (* (pow q 4) r)) (/ (pow p 2) (* (pow q 4) (pow r 2)))))) r)))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (* r (+ (* -1 (pow q 4)) (/ (* p (pow q 4)) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (pow q 2))) r)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (+ (/ (* (pow p 3) (pow q 2)) (pow r 3)) (pow q 2)))) r)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow p 2) (pow q 2)) (pow r 2))) (* -1 (pow q 2))) (/ (* p (pow q 2)) r)) r)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow p 3) (pow q 2)) (pow r 3))) (* -1 (pow q 2))) (+ (/ (* p (pow q 2)) r) (/ (* (pow p 2) (pow q 2)) (pow r 2)))) r)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* r (- (+ (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))) (+ (/ (fabs p) r) (/ (fabs r) r))) (* (/ 1 r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* r (- (+ (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))) (+ (/ (fabs p) r) (/ (fabs r) r))) (* (/ 1 r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* 1/2 r)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 r))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* r (- (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))) (/ p r)))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1/2 r)))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* r (- (* -1 (/ (* p (- (* -1/2 (+ (/ (fabs p) p) (/ (fabs r) p))) 1/2)) r)) 1/2))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* 1/2 (/ r p))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* r (- (+ (* -1/2 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (* 1/2 (/ 1 p))) (* 1/2 (/ 1 r))))))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (* 1/2 (/ r p))))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (* r (- (+ (* -1/2 (/ (+ (fabs p) (fabs r)) (* p r))) (* 1/2 (/ 1 p))) (* 1/2 (/ 1 r))))))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (* -1/2 (/ r p))))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (/ 1 p))))))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (/ -1/2 p)))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) #s(hole binary64 (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (/ 1 p)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (pow q 2))) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (+ (/ (* (pow p 3) (pow q 2)) (pow r 3)) (pow q 2)))) r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 r))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (* r (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))))))
#s(approx (+ r (fabs p)) #s(hole binary64 r))
#s(approx (+ r (fabs p)) #s(hole binary64 (* r (+ 1 (/ (fabs p) r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (pow q 2))) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (+ (/ (* (pow q 2) (- (pow p 3) (* (pow q 2) (+ p (* 2 p))))) (pow r 3)) (pow q 2)))) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ 1 r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (/ (pow p 2) (pow r 2))))) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ 1 (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (+ (/ (pow p 2) (pow r 2)) (/ (pow p 3) (pow r 3)))))) (/ (* (pow q 2) (+ p (* 2 p))) (pow r 3))) r)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (pow r 2) (pow p 3)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (* (pow r 2) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3)))))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ (* -1 (/ (pow q 2) (pow p 3))) (/ 1 p)) (pow r 2))) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3)))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (pow r 2) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow r 2) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* (pow p 3) (pow r 2)))) (+ (/ 1 (* p (pow r 2))) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3))))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (pow r 2) (pow p 2))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow r 2) (+ (/ 1 (* p r)) (/ 1 (pow p 2))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* (pow p 2) (pow r 2)))) (+ (/ 1 (* p r)) (+ (/ 1 (pow p 2)) (/ 1 (pow r 2))))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (pow r 2) (pow p 2))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow r 2) (+ (/ 1 (* p r)) (/ 1 (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* (pow p 2) (pow r 2)))) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ (pow r 2) (pow p 2)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (* (pow r 2) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* (pow r 2) (- (/ (pow q 2) (* (pow p 2) (pow r 2))) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 (/ (pow r 2) p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 (* (pow r 2) (+ (/ 1 p) (/ 1 r))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* (pow r 2) (- (/ (pow q 2) (* p (pow r 2))) (+ (/ 1 p) (/ 1 r))))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* -1 (/ (pow r 2) p))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* (pow r 2) (- (/ (pow q 2) (* p (pow r 2))) (/ 1 p)))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (/ (pow r 2) p)))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* p (pow r 2)))) (/ 1 p)))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (pow r 2)))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (pow q 2) (pow r 2)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ 1 r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (+ 1 (+ (/ p r) (/ (* (pow q 2) (- (/ (pow p 2) (pow q 2)) 1)) (pow r 2)))) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (+ 1 (+ (/ p r) (+ (/ (* (pow q 2) (- (/ (pow p 2) (pow q 2)) 1)) (pow r 2)) (/ (* (pow q 2) (- (/ (pow p 3) (pow q 2)) (+ p (* 2 p)))) (pow r 3))))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ 1 (* (pow q 2) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (+ (/ 1 (pow q 2)) (/ p (* (pow q 2) r))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (/ 1 (pow q 2)) (+ (/ p (* (pow q 2) r)) (/ (pow p 2) (* (pow q 2) (pow r 2))))) (/ 1 (pow r 2))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (/ 1 (pow q 2)) (+ (/ p (* (pow q 2) r)) (+ (/ (pow p 2) (* (pow q 2) (pow r 2))) (/ (pow p 3) (* (pow q 2) (pow r 3)))))) (+ (* 2 (/ p (pow r 3))) (+ (/ 1 (pow r 2)) (/ p (pow r 3))))) r)))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (* -1 (/ (+ p (* 2 p)) r)) 1) (pow r 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (* -1 (/ (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2))) (pow r 2))) (+ 1 (+ (* 2 (/ p r)) (/ p r)))) (pow r 3))))
#s(approx (pow (- p r) -3) #s(hole binary64 (/ (- (* -1 (/ (+ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (+ (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (+ (* -1 (pow p 2)) (pow (+ p (* 2 p)) 2)))) (pow p 3))) (pow r 3))) (+ 1 (+ (* -2 (/ (pow p 2) (pow r 2))) (+ (* -1 (/ (pow p 2) (pow r 2))) (+ (* 2 (/ p r)) (+ (/ p r) (/ (pow (+ p (* 2 p)) 2) (pow r 2)))))))) (pow r 3))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ (- (* -1 (/ p (* (pow q 2) r))) (/ 1 (pow q 2))) r)))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ (- (* -1 (/ (pow p 2) (* (pow q 2) (pow r 2)))) (+ (/ 1 (pow q 2)) (/ p (* (pow q 2) r)))) r)))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ (- (* -1 (/ (pow p 3) (* (pow q 2) (pow r 3)))) (+ (/ 1 (pow q 2)) (+ (/ p (* (pow q 2) r)) (/ (pow p 2) (* (pow q 2) (pow r 2)))))) r)))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (* r (+ (* -1 (pow q 2)) (/ (* p (pow q 2)) r)))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (+ 1 (/ (pow p 2) (pow r 2))) (* -1 (/ p r))) r)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (+ 1 (/ (pow p 3) (pow r 3))) (+ (* -1 (/ p r)) (* -1 (/ (pow p 2) (pow r 2))))) r)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (* p (pow q 2)) (pow r 3))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 r))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* r (+ 1 (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)) r)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (/ r p)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (* r (- (+ (/ 1 p) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r)))) (/ 1 r)))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (* r (- (/ 1 r) (/ 1 p)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (* -1 (/ p r))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 r))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* r (+ 1 (/ (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)) r)))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 r))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* r (+ 1 (+ (* -2 (/ (pow q 2) (* p r))) (+ (* -1 (/ p r)) (+ (/ (fabs p) r) (/ (fabs r) r))))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* p r)))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* r (+ p (+ (* -2 (/ (pow q 2) r)) (/ (* p (+ (fabs p) (+ (fabs r) (* -1 p)))) r))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p r)))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* r (+ p (/ (* p (+ (fabs p) (+ (fabs r) (* -1 p)))) r)))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 r))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (/ (fabs p) r) (/ (fabs r) r)))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ r p)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (* (pow p 2) r))) (+ (/ 1 p) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))))) (/ 1 r)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 -1))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2)))) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* -1/2 (/ (+ (* -2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))))) (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2)))))))) (pow r 3))) (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2))))) 1/2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 r)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (* 2 (/ p r)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (+ (* 2 (/ p r)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2))) (+ 1 (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow r 2)) (/ (pow p 2) (pow r 2)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (+ (* -1 (/ (+ (* -2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))))) (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2)))))))) (pow r 3))) (+ (* 2 (/ p r)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2)))) (+ 1 (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow r 2)) (/ (pow p 2) (pow r 2)))))))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 r))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (* r (+ 1 (* -1 (/ (* p (+ 1 (* -1 (+ (/ (fabs p) p) (/ (fabs r) p))))) r))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (/ r p)))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (* r (+ (* -1 (/ (+ 1 (* -1 (+ (/ (fabs p) p) (/ (fabs r) p)))) r)) (/ 1 p)))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (/ r p)))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (* r (+ (* -1 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (+ (/ 1 p) (/ 1 r))))))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) #s(hole binary64 (/ r p)))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) #s(hole binary64 (* r (+ (* -1 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (/ 1 p)))))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) #s(hole binary64 (* -1 (/ r p))))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) #s(hole binary64 (* r (- (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))) (/ 1 p)))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 r))) #s(hole binary64 (* -1 r)))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 r))) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) 1))))
#s(approx (+ (fabs r) (* -1 r)) #s(hole binary64 (* -1 r)))
#s(approx (+ (fabs r) (* -1 r)) #s(hole binary64 (* r (- (/ (fabs r) r) 1))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ p (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ p (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ p (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (/ p r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ p r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (* p (pow q 2)) (pow r 3))) (+ (/ p r) (/ (fabs r) r))) (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -1 (pow r 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (* 2 (/ p r)) 1))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2)) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2)))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (/ (fabs p) r) (/ (fabs r) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (+ (* 2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (* -1 (/ p r))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow r 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (/ (pow p 2) (pow r 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* r (+ (* -1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 (* r (+ (* -1 (/ (+ (* -1/8 (/ (pow p 2) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))) r)) (* -1/4 (/ p q)))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* -1 (* r (+ (* -1/4 (/ p q)) (* 1/8 (/ (pow p 2) (* q r))))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1 (* r (- (* 1/8 (/ p (* q r))) (* 1/4 (/ 1 q)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r)) 1/2)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))))) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))))) r)) 1/2)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) (/ 1 (* (pow q 4) r))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (- (* -1 (/ p (* (pow q 4) r))) (/ 1 (pow q 4))) r)) (* 1/2 (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (* 1/2 (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) (/ 1 (* (pow q 2) (pow r 3)))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* 2 (/ p (* (pow q 2) r))) (+ (/ 1 (pow q 2)) (/ p (* (pow q 2) r)))) (pow r 3))) (* 1/2 (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (/ 1 (pow q 6)))))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (+ r (+ (fabs p) (fabs r))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (fabs r)) r)) 1)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (* -1 (/ (+ (* 2 (/ p (* (pow q 2) r))) (+ (/ 1 (pow q 2)) (/ p (* (pow q 2) r)))) (pow r 3)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (* (+ p (* 2 p)) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2)))) r)) (+ (* 2 (/ (pow p 2) (* (pow q 2) r))) (/ (pow p 2) (* (pow q 2) r)))) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2)))) r)) (/ 1 (pow q 2))) (pow r 3)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ p (* 2 p)) (+ (* -1 (* (+ p (* 2 p)) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2))))) (+ (* 2 (/ (pow p 2) (pow q 2))) (/ (pow p 2) (pow q 2))))) r)) (+ (* -1 (/ (* (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2))) (+ (* 2 (pow p 2)) (pow p 2))) r)) (/ (pow p 3) (* (pow q 2) r)))) (+ (* -1 (* (+ p (* 2 p)) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2))))) (+ (* 2 (/ (pow p 2) (pow q 2))) (/ (pow p 2) (pow q 2))))) r)) (+ (* 2 (/ p (pow q 2))) (/ p (pow q 2)))) r)) (/ 1 (pow q 2))) (pow r 3)))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (* (pow r 3) (+ (* -1 (/ (* (pow q 2) (+ p (* 2 p))) r)) (pow q 2))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (* (pow r 3) (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* 2 (pow p 2)) (pow p 2))) r)) (* (pow q 2) (+ p (* 2 p)))) r)) (pow q 2))))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* -1 (* (pow r 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow p 3) (pow q 2)) r)) (* (pow q 2) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (* (pow q 2) (+ p (* 2 p)))) r)) (pow q 2))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow r 3) (+ 1 (* -1 (/ (+ p (* 2 p)) r)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow r 3) (+ 1 (* -1 (/ (+ p (+ (* -1 (/ (+ (* 2 (pow p 2)) (pow p 2)) r)) (* 2 p))) r)))))))
#s(approx (pow (- p r) 3) #s(hole binary64 (* -1 (* (pow r 3) (+ 1 (* -1 (/ (+ p (+ (* -1 (/ (+ (* -1 (/ (pow p 3) r)) (+ (* 2 (pow p 2)) (pow p 2))) r)) (* 2 p))) r)))))))
#s(approx (- p r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (/ 1 (pow q 4)) (/ p (* (pow q 4) r))) r))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (pow p 2) (* (pow q 4) r))) (/ p (pow q 4))) r)) (/ 1 (pow q 4))) r))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (pow p 3) (* (pow q 4) r)) (* -1 (/ (pow p 2) (pow q 4)))) r)) (/ p (pow q 4))) r)) (/ 1 (pow q 4))) r))))
#s(approx (pow (- p r) -5) #s(hole binary64 (* -1 (/ (+ 1 (+ (* 4 (/ p r)) (/ p r))) (pow r 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (+ (* -1 (/ (pow (+ p (* 4 p)) 2) r)) (+ (* 2 (/ (pow p 2) r)) (* 8 (/ (pow p 2) r)))) (+ p (* 4 p))) r))) (pow r 5)))))
#s(approx (pow (- p r) -5) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ p (* 4 p)) (+ (* -1 (pow (+ p (* 4 p)) 2)) (+ (* 2 (pow p 2)) (* 8 (pow p 2))))) r)) (+ (* -1 (/ (* (+ p (* 4 p)) (+ (* 2 (pow p 2)) (* 8 (pow p 2)))) r)) (+ (* 4 (/ (pow p 3) r)) (/ (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))) r)))) (+ (* -1 (pow (+ p (* 4 p)) 2)) (+ (* 2 (pow p 2)) (* 8 (pow p 2))))) r)) (+ p (* 4 p))) r))) (pow r 5)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (* -1 (/ (+ (/ 1 (pow q 4)) (/ p (* (pow q 4) r))) r))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (pow p 2) (* (pow q 4) r))) (/ p (pow q 4))) r)) (/ 1 (pow q 4))) r))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (pow p 3) (* (pow q 4) r)) (* -1 (/ (pow p 2) (pow q 4)))) r)) (/ p (pow q 4))) r)) (/ 1 (pow q 4))) r))))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (* -1 (* r (+ (* -1 (/ (* p (pow q 4)) r)) (pow q 4))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* p (pow q 2)) (/ (* (pow p 2) (pow q 2)) r)) r)) (* -1 (pow q 2))) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow p 2) (pow q 2))) (* -1 (/ (* (pow p 3) (pow q 2)) r))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow p 2) (pow q 2)) r)) (* p (pow q 2))) r)) (pow q 2)) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow p 3) (pow q 2)) r) (* -1 (* (pow p 2) (pow q 2)))) r)) (* p (pow q 2))) r)) (pow q 2)) r))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* r (+ (* -1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) #s(hole binary64 (* -1 (* r (+ 1/2 (/ (* p (- (* -1/2 (+ (/ (fabs p) p) (/ (fabs r) p))) 1/2)) r))))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (* -1/2 (+ (/ (fabs p) p) (/ (fabs r) p))) 1/2) r)) (* 1/2 (/ 1 p)))))))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (/ 1 p)))))))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(hole binary64 (* -1 (* r (- (+ (* -1/2 (/ (+ (fabs p) (fabs r)) (* p r))) (* 1/2 (/ 1 p))) (* 1/2 (/ 1 r)))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* p (pow q 2)) (/ (* (pow p 2) (pow q 2)) r)) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow p 2) (pow q 2))) (* -1 (/ (* (pow p 3) (pow q 2)) r))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (fabs r)) r)) 1)))))
#s(approx (+ r (fabs p)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (fabs p) r)) 1)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (pow p 3) (* (pow q 2) (+ p (* 2 p))))) r)) (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2)))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (pow p 2)) (pow q 2)) r))) r)) 1) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (/ (- (pow p 3) (* (pow q 2) (+ p (* 2 p)))) r)) (+ (* -1 (pow p 2)) (pow q 2))) r))) r)) 1) r))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ (* -1 (/ (pow q 2) (* (pow p 3) r))) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))) r)) (/ 1 (pow p 3))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (- (* -1 (/ (+ (* -1 (/ (pow q 2) (pow p 3))) (/ 1 p)) r)) (/ 1 (pow p 2))) r)) (/ 1 (pow p 3))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (- (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) r)) (/ 1 p)) r)) (/ 1 (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (- (/ (pow q 2) (* (pow p 2) r)) (/ 1 p)) r)) (/ 1 (pow p 2))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ (* -1 (/ (pow q 2) (* (pow p 2) r))) (/ 1 p)) r)) (/ 1 (pow p 2))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (* p r)))) r)) (/ 1 p)))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (* (pow q 2) (+ 1 (* -1 (/ (pow p 2) (pow q 2))))) r))) r)) 1) r))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (/ (pow p 3) (pow q 2)) (+ p (* 2 p)))) r)) (* (pow q 2) (+ 1 (* -1 (/ (pow p 2) (pow q 2)))))) r))) r)) 1) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p (* (pow q 2) r))) (/ 1 (pow q 2))) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ (* -1 (/ (+ 1 (* -1 (/ (pow p 2) (pow q 2)))) r)) (/ p (pow q 2))) r)) (/ 1 (pow q 2))) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ (* -1 (/ (+ 1 (+ (* -1 (/ (- (/ (pow p 3) (pow q 2)) (+ p (* 2 p))) r)) (* -1 (/ (pow p 2) (pow q 2))))) r)) (/ p (pow q 2))) r)) (/ 1 (pow q 2))) r))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (+ 1 (+ (* 2 (/ p r)) (/ p r))) (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (+ (* -1 (/ (pow (+ p (* 2 p)) 2) r)) (+ (* 2 (/ (pow p 2) r)) (/ (pow p 2) r))) (+ p (* 2 p))) r))) (pow r 3)))))
#s(approx (pow (- p r) -3) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (+ p (* 2 p)) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (+ (* -1 (/ (* (+ p (* 2 p)) (+ (* 2 (pow p 2)) (pow p 2))) r)) (/ (pow p 3) r))) (+ (* -1 (pow (+ p (* 2 p)) 2)) (+ (* 2 (pow p 2)) (pow p 2)))) r)) (+ p (* 2 p))) r))) (pow r 3)))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (* -1 (/ (+ (/ 1 (pow q 2)) (/ p (* (pow q 2) r))) r))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (pow p 2) (* (pow q 2) r))) (/ p (pow q 2))) r)) (/ 1 (pow q 2))) r))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (pow p 3) (* (pow q 2) r)) (* -1 (/ (pow p 2) (pow q 2)))) r)) (/ p (pow q 2))) r)) (/ 1 (pow q 2))) r))))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (* -1 (* r (+ (* -1 (/ (* p (pow q 2)) r)) (pow q 2))))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (/ (pow p 2) r) (* -1 p)) r)) 1) r))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (* -1 (/ (pow p 3) r)) (pow p 2)) r)) (* -1 p)) r)) 1) r))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 r))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) r)))) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r)))) p) r)) 1)))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)) r)) 1)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1) r)) (/ 1 p))))))
#s(approx (+ (* (/ r p) -1) 1) #s(hole binary64 (* -1 (* r (- (/ 1 p) (/ 1 r))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -2 (/ (pow q 2) r))) r)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)) r)) 1)))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* -1 p)))) r)) 1)))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* -1 (* r (+ (* -1 p) (* -1 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))) r)))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* -1 (* r (+ (* -1 p) (* -1 (/ (* p (+ (fabs p) (+ (fabs r) (* -1 p)))) r)))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) 1)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* r (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) r))) (/ p r))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ (* -2 (/ (pow q 2) r)) (* -1 (- (* -1 (+ (fabs p) (fabs r))) p))) r)))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1) r)) (/ 1 p))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) p) r)) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) r))) p) r)) 1)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))) (* 1/2 (/ (+ (* 2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) (* (+ p (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))))) r))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 r))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 p) (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r))) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 p) (* -1 (/ (- (+ (* 2 (/ (* p (pow q 2)) r)) (+ (* 2 (/ (* (pow q 2) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) r)) (+ (/ (* (+ p (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))) r) (pow (+ (fabs p) (fabs r)) 2)))) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r))) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) #s(hole binary64 (* -1 (* r (- (/ (* p (+ 1 (* -1 (+ (/ (fabs p) p) (/ (fabs r) p))))) r) 1)))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(hole binary64 (* -1 (* r (- (+ (* -1 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (/ 1 r)) (/ 1 p))))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ 1 (* -1 (+ (/ (fabs p) p) (/ (fabs r) p)))) r)) (/ 1 p))))))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) #s(hole binary64 (* -1 (* r (- (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))) (/ 1 p))))))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) #s(hole binary64 (* -1 (* r (+ (* -1 (/ (+ (/ (fabs p) p) (/ (fabs r) p)) r)) (/ 1 p))))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 r))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) r)))))))
#s(approx (+ (fabs r) (* -1 r)) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (fabs r) r)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (fabs r) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (fabs r)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (fabs r))) r)) 1/2)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 r))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (fabs r) r)) 1)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs r) (* 2 (/ (pow q 2) r))) r)) 1)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs r) (* -1 (/ (- (* -2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)) 1)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (- (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) r)) (* 2 p)) r)) 1))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (fabs r))) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) r))))) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))))) r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -2 (/ (pow q 2) r))) r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow p 2)) r)) (* 2 p)) r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow p 2) r)) (* 2 p)) r))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5)))))) (* 1/2 (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3))))))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (/ (* p (+ (* -1/8 p) (* 1/4 r))) q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (/ (+ (* 1/2 (* q (+ (fabs p) (fabs r)))) (* p (+ (* -1/8 p) (* 1/4 r)))) q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (/ (+ (* p (+ (* -1/8 p) (* 1/4 r))) (* q (+ (* -1 q) (* 1/2 (+ (fabs p) (fabs r)))))) q)))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (+ (fabs p) (+ (fabs r) (* -2 q)))))
#s(approx (* 2 q) #s(hole binary64 (* 2 q)))
#s(approx q #s(hole binary64 q))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (/ (* p (+ (* -1/8 p) (* 1/4 r))) q)))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (/ (+ (* -1/8 p) (* 1/4 r)) q)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (pow q 6) #s(hole binary64 (pow q 6)))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))) (pow q 6))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))))) (pow q 6))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r))))) (pow q 6))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (/ (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (/ (pow q 4) (pow (- p r) 3))) (pow q 6))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) #s(hole binary64 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) #s(hole binary64 (/ 1 (* (pow q 2) (pow (- p r) 3)))))
#s(approx (* (* q q) (pow (- p r) 3)) #s(hole binary64 (* (pow q 2) (pow (- p r) 3))))
#s(approx (* q q) #s(hole binary64 (pow q 2)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ 1 (* (pow q 4) (- p r)))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ (+ (* 2 (/ (pow q 4) (pow (- p r) 5))) (/ 1 (- p r))) (pow q 4))))
#s(approx (pow (* (pow q 4) (- p r)) -1) #s(hole binary64 (/ 1 (* (pow q 4) (- p r)))))
#s(approx (* (pow q 4) (- p r)) #s(hole binary64 (* (pow q 4) (- p r))))
#s(approx (pow q 4) #s(hole binary64 (pow q 4)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (pow q 2) (- p r))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 2 (/ 1 (pow p 3))) (+ (* 6 (/ r (pow p 4))) (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5))))))))) (* 2 (/ 1 p))))))) p)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (* (pow q 2) (+ (* -2 (/ r (pow p 2))) (* 6 (/ (* (pow q 2) r) (pow p 4))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (* (pow q 2) (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* -20 (/ (* (pow q 2) r) (pow p 6))) (* 6 (/ r (pow p 4))))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow q 2) (- (* 6 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow q 2) (- (* (pow q 2) (+ (* -20 (/ (pow q 2) (pow p 7))) (* 6 (/ 1 (pow p 5))))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (+ p (* 2 (/ (pow q 2) p)))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 3))) (* 2 (/ 1 p)))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (* 2 (/ 1 p)))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow q 2) (- (* 6 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (+ (* (pow q 2) (- (* (pow q 2) (+ (* -20 (/ (pow q 2) (pow p 7))) (* 6 (/ 1 (pow p 5))))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (/ 1/2 q) #s(hole binary64 (/ 1/2 q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (fabs r)) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p)))) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow p 3))) (* 2 (/ 1 p)))))) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (* 2 (/ 1 p)))))) p)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ p (* 2 (/ (pow q 2) p)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 3))) (* 2 (/ 1 p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (* 2 (/ 1 p)))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5)))))) (* 1/2 (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3))))))))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 2 (/ 1 (pow p 3))) (+ (* 6 (/ r (pow p 4))) (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5))))))))) (* 2 (/ 1 p))))))) p)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (+ (* (pow q 2) (- (* 6 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (+ (* (pow q 2) (- (* (pow q 2) (+ (* -20 (/ (pow q 2) (pow p 7))) (* 6 (/ 1 (pow p 5))))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (* -1/2 (log (pow p 2)))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (log (pow p 2))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (log (pow p 2))) (* (pow q 2) (- (* 4 (/ (pow q 2) (pow p 4))) (* 2 (/ 1 (pow p 2))))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (log (pow p 2))) (* (pow q 2) (- (* (pow q 2) (+ (* -32/3 (/ (pow q 2) (pow p 6))) (* 4 (/ 1 (pow p 4))))) (* 2 (/ 1 (pow p 2))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (log (pow p 2))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log (pow p 2)) (* 4 (/ (pow q 2) (pow p 2))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log (pow p 2)) (* (pow q 2) (+ (* -8 (/ (pow q 2) (pow p 4))) (* 4 (/ 1 (pow p 2))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log (pow p 2)) (* (pow q 2) (+ (* (pow q 2) (- (* 64/3 (/ (pow q 2) (pow p 6))) (* 8 (/ 1 (pow p 4))))) (* 4 (/ 1 (pow p 2))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) p))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (+ (fabs p) (fabs r)) p)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (+ (* -2 (/ (pow q 2) p)) (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)))))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (+ (/ (fabs p) p) (/ (fabs r) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (neg (* q q)) #s(hole binary64 (* -1 (pow q 2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ -1 (- p r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (+ (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p)) (/ (pow q 2) (pow p 3)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (+ (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) (pow p 2))) (+ (* -1 (/ (pow q 2) (pow p 3))) (/ 1 p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (+ (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p)) (* -1 (/ (pow q 2) (pow p 2)))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (+ (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p)) (* -1 (/ (pow q 2) (pow p 2))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (- (* -1 (/ (pow r 2) p)) r) p)))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (- (+ (* -1 (/ (pow r 2) (pow p 2))) (/ (pow q 2) (pow p 2))) (/ r p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (- (* -1 (/ (pow r 2) p)) r)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (- (+ (* -1 (/ (pow r 2) p)) (/ (pow q 2) p)) r)))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (- (* -1 (pow q 2)) (* -1 (pow r 2)))))
#s(approx (* -1 (* q q)) #s(hole binary64 (* -1 (pow q 2))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ -1 (- p r))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ -1 (* (pow q 2) (- p r)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))) (pow q 2))))
#s(approx (pow (* (* q q) (- p r)) -1) #s(hole binary64 (/ 1 (* (pow q 2) (- p r)))))
#s(approx (* (* q q) (- p r)) #s(hole binary64 (* (pow q 2) (- p r))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- p r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* 2 (/ (pow q 2) (- p r)))) r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (* -2 q) #s(hole binary64 (* -2 q)))
#s(approx (* q 2) #s(hole binary64 (* 2 q)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (+ (* -2 (/ (pow q 2) p)) (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* -1 p)))) (* -1 r))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (+ (* -2 (/ (pow q 2) r)) (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* -1/2 (* (pow q 2) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (+ (* 2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (pow (- p r) 3) (- (+ p (+ (fabs p) (fabs r))) r)))) (* 4 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 5) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))) (* -1/2 (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* -1 (* (pow q 2) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* (pow q 2) (- (* -1 (* (pow q 2) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* (pow q 2) (- (* (pow q 2) (- (* -1 (* (pow q 2) (+ (* -2 (/ (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (+ (* 2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (pow (- p r) 3) (- (+ p (+ (fabs p) (fabs r))) r)))) (* 4 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 5) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (+ r (fabs r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (fabs r))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* -4 (pow q 2)) (pow (+ (fabs p) (fabs r)) 2)) (pow (- p r) 2))))
#s(approx (* -4 (* q q)) #s(hole binary64 (* -4 (pow q 2))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (fabs r))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) (- p r)))))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- p r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* 2 (/ (pow q 2) (- p r)))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow (- p r) 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow (- p r) 2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2)))) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (+ (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 4))) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2))))) 1))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (/ (* p (+ (* -1/8 p) (* 1/4 r))) (pow q 2))) 1))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -2 (/ (pow q 6) (pow (- p r) 5)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (/ 1 (* (pow q 2) (pow (- p r) 3)))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -2 (/ (pow q 6) (pow (- p r) 5)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (/ 1 (* (pow q 4) (- p r))) (* 2 (/ 1 (pow (- p r) 5))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (/ 1 (* (pow q 2) (pow (- p r) 3)))) (+ (/ 1 (* (pow q 4) (- p r))) (* 2 (/ 1 (pow (- p r) 5))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ -2 (pow (- p r) 5))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (/ 1 (* (pow q 2) (pow (- p r) 3)))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (/ 1 (* (pow q 2) (pow (- p r) 3)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) #s(hole binary64 (/ (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 4))) (/ 1 (pow (- p r) 3))) (pow q 2))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (/ 2 (pow (- p r) 5))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) #s(hole binary64 (+ (/ 1 (* (pow q 4) (- p r))) (* 2 (/ 1 (pow (- p r) 5))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* (pow q 2) (- (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 2))) (/ 1 (- p r))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -2 q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 4))) (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q)))) (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (/ (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r)))) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1 (/ (* p (* r (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))))) (pow q 6))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q)))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow p 2) (pow q 2)))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (+ (* 1/512 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (+ (* 4 (* q q)) (* p p)) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow p 2) (pow q 2))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow p 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow p 4) (pow q 4))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow p 2) (pow q 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (+ (* 1/512 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (+ (* (* q q) 4) (* p p)) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow p 2) (pow q 2))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2)))) 1))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (+ (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 4))) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2))))) 1))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -2 q)))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 4))) (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q)))) (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q)))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (* -1/2 (+ (log 4) (* -2 (log (/ 1 q)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (+ (log 4) (* -2 (log (/ 1 q))))) (* -1/8 (/ (pow p 2) (pow q 2))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (+ (log 4) (* -2 (log (/ 1 q))))) (+ (* -1/8 (/ (pow p 2) (pow q 2))) (* 1/64 (/ (pow p 4) (pow q 4)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (+ (log 4) (* -2 (log (/ 1 q))))) (+ (* -1/8 (/ (pow p 2) (pow q 2))) (+ (* -1/384 (/ (pow p 6) (pow q 6))) (* 1/64 (/ (pow p 4) (pow q 4))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (* -2 (log (/ 1 q))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (+ (* -2 (log (/ 1 q))) (* 1/4 (/ (pow p 2) (pow q 2)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (+ (* -2 (log (/ 1 q))) (+ (* -1/32 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (+ (* -2 (log (/ 1 q))) (+ (* -1/32 (/ (pow p 4) (pow q 4))) (+ (* 1/192 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 q)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow p 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow p 2) (pow q 2))) (+ (* 1/128 (/ (pow p 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) #s(hole binary64 (* (pow q 2) (- (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) 1)) (pow q 2)) (* 2 (/ 1 p))))))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* p (pow q 2))) (/ (fabs r) (* p (pow q 2)))) (+ (* 2 (/ 1 (pow p 2))) (/ 1 (pow q 2)))))))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* p (pow q 2))) (/ (fabs r) (* p (pow q 2)))) (* 2 (/ 1 (pow p 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (/ (pow q 4) (pow (- p r) 3))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 4) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 4) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 4))) (/ 1 (pow (- p r) 3))) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (pow q 4) (pow (- p r) 3))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 4) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (pow q 2) (pow (- p r) 3))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* (pow q 2) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (pow q 2) (pow p 3))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* (pow q 2) (+ (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) p)) (/ 1 p)) (pow q 2))) (/ 1 (pow p 3))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* -1 (/ (pow q 2) (pow p 3)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) (* p (pow q 2)))) (/ 1 (* p (pow q 2)))) (/ 1 (pow p 3))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* -1 (/ (pow q 2) (pow p 2)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) (pow q 2))) (/ 1 (pow q 2))) (/ 1 (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow q 2) (- (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) (pow q 2))) (/ 1 (pow p 2))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (pow r 2) (* (pow p 2) (pow q 2)))) (/ 1 (pow p 2))) (/ r (* p (pow q 2)))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (pow r 2) (* p (pow q 2)))) (/ 1 p)) (/ r (pow q 2))))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* (pow q 2) (+ (* -1 (/ (pow r 2) (* p (pow q 2)))) (/ 1 p)))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (* (pow q 2) (- (/ (pow r 2) (* p (pow q 2))) (/ 1 p)))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (* (pow q 2) (- (/ (pow r 2) (pow q 2)) 1))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (pow q 2) (pow (- p r) 3))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* (pow q 2) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ 1 (pow (- p r) 3))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* (pow q 2) (- (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))) (pow q 2)) (* 2 (/ 1 p))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ p (pow q 2))) (+ (/ (fabs p) (pow q 2)) (/ (fabs r) (pow q 2)))) (+ (* -1 (/ r (pow q 2))) (* 2 (/ 1 p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow q 2) (- (/ (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (pow q 2)) 2))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* (pow q 2) (- (/ (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))) (pow q 2)) (* 2 (/ 1 r))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* p (pow q 2))) (/ (fabs r) (* p (pow q 2)))) (+ (* -1 (/ r (* p (pow q 2)))) (+ (* 2 (/ 1 (pow p 2))) (/ 1 (pow q 2))))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* (pow q 2) r)) (/ (fabs r) (* (pow q 2) r))) (+ (* -1 (/ p (* (pow q 2) r))) (+ (* 2 (/ 1 (pow r 2))) (/ 1 (pow q 2))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2)))) 1))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* -1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) (pow q 3))) (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2))))) 1))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -2 q)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (pow q 2))) (+ 2 (+ (* -1 (/ (+ (fabs p) (fabs r)) q)) (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (+ (* -1 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) (pow q 3))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (pow q 2)))) (+ 2 (+ (* -1 (/ (+ (fabs p) (fabs r)) q)) (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ p (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ p (fabs r)) q))) 1))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ p (fabs r)) q)))) 1))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (/ p q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ p q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (/ p q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -4 (pow q 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow q 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2)) (+ 4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* 2 q)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (/ (fabs p) q) (/ (fabs r) q))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (* 1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow (- p r) 2) (pow q 2))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 q))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (* p r)) (* 1/4 (pow p 2)))) (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 (* q (+ 1 (* -1/2 (/ (+ (fabs p) (fabs r)) q)))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 (* q (+ 1 (* -1 (/ (+ (* -1 (/ (* p (+ (* -1/4 r) (* 1/8 p))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)))))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (fabs r)) q)))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* -1 (/ (* p (+ (* -1/4 r) (* 1/8 p))) q))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1 (/ (+ (* -1/4 r) (* 1/8 p)) q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* 2 q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)))) q)) 2)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) (+ (* -1/64 (/ (pow p 4) (pow q 2))) (* 1/4 (pow p 2)))) q)))) q)) 2)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1/2 (/ (* p r) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 (/ (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r)))) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1 (/ (* p (* r (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))))) (pow q 6))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))))) q))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ -1/2 q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (+ (* 1/512 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2))))))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (/ -1/2 q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 1/4 (/ (pow p 2) q)))) q)) 2)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow p 4) (pow q 2))) (* 1/4 (pow p 2))) q)))) q)) 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (+ (* 1/512 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2))))))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 q))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (* p r)) (* 1/4 (pow p 2)))) (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* 2 q)))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)))) q)) 2)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) (+ (* -1/64 (/ (pow p 4) (pow q 2))) (* 1/4 (pow p 2)))) q)))) q)) 2)))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (/ -1/2 q)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (* -1 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (* -1/2 (+ (log 4) (* -2 (log (/ -1 q)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (+ (log 4) (* -2 (log (/ -1 q))))) (* -1/8 (/ (pow p 2) (pow q 2))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (+ (log 4) (* -2 (log (/ -1 q))))) (+ (* -1/8 (/ (pow p 2) (pow q 2))) (* 1/64 (/ (pow p 4) (pow q 4)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) #s(hole binary64 (+ (* -1/2 (+ (log 4) (* -2 (log (/ -1 q))))) (+ (* -1/8 (/ (pow p 2) (pow q 2))) (+ (* -1/384 (/ (pow p 6) (pow q 6))) (* 1/64 (/ (pow p 4) (pow q 4))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (* -2 (log (/ -1 q))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (+ (* -2 (log (/ -1 q))) (* 1/4 (/ (pow p 2) (pow q 2)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (+ (* -2 (log (/ -1 q))) (+ (* -1/32 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) #s(hole binary64 (+ (log 4) (+ (* -2 (log (/ -1 q))) (+ (* -1/32 (/ (pow p 4) (pow q 4))) (+ (* 1/192 (/ (pow p 6) (pow q 6))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 q))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow p 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow p 2)) (* 1/128 (/ (pow p 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 1/4 (/ (pow (- p r) 2) q)))) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)) 2)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))) (* 1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) q))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* 2 q)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (- (* -1 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* -1 (+ (fabs p) (fabs r)))) q)) 2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (- (* -1 (/ (- (+ (* 1/8 (/ (* (+ (fabs p) (fabs r)) (pow (- p r) 2)) q)) (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (* 1/2 (/ (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))) q)))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* -1 (+ (fabs p) (fabs r)))) q)) 2)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ p (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ p (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ p (fabs r)))) q)) 1)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ p (fabs r)) q)) 2)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ p (+ (fabs r) (* 1/4 (/ (pow (- p r) 2) q)))) q)) 2)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ p (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)) 2)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -2 q)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (fabs r)) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1/4 (/ (pow (- p r) 2) q)))) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* -1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))))
Outputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))))
#s(literal 1/2 binary64)
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))
(+.f64 (fabs.f64 p) (fabs.f64 r))
(fabs.f64 p)
p
(fabs.f64 r)
r
(*.f64 #s(literal 2 binary64) q)
#s(literal 2 binary64)
q
(*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q))))
(fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))
(+.f64 (*.f64 #s(literal -1/8 binary64) (/.f64 p q)) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))
#s(literal -1/8 binary64)
(/.f64 p q)
(*.f64 #s(literal 1/4 binary64) (/.f64 r q))
#s(literal 1/4 binary64)
(/.f64 r q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64))))))
(*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))))
(pow.f64 q #s(literal 6 binary64))
#s(literal 6 binary64)
(-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64))))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64)))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)))
(/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64)))
(-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)
(+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))
(pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))
(*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64)))
(*.f64 q q)
(pow.f64 (-.f64 p r) #s(literal 3 binary64))
(-.f64 p r)
#s(literal 3 binary64)
#s(literal -1 binary64)
(fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))
(+.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))
(pow.f64 (-.f64 p r) #s(literal -5 binary64))
#s(literal -5 binary64)
(pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64))
(/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)))
(*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r))
(pow.f64 q #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))
(/.f64 (*.f64 q q) (-.f64 p r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) #s(literal -1 binary64))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) #s(literal -1 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) #s(literal -1 binary64))))
(*.f64 (*.f64 p r) (pow.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) #s(literal -1 binary64)))
(*.f64 p r)
(pow.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) #s(literal -1 binary64))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))
#s(literal 1 binary64)
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))
(fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))
(+.f64 (*.f64 #s(literal 4 binary64) (*.f64 q q)) (*.f64 p p))
(*.f64 p p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
(*.f64 #s(literal 1/2 binary64) (fma.f64 #s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))))
(fma.f64 #s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
(+.f64 (*.f64 #s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q)) (*.f64 r p)) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q))
(/.f64 #s(literal 1/2 binary64) q)
(*.f64 r p)
(-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))
(+.f64 (fabs.f64 r) (fabs.f64 p))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))
(+.f64 (*.f64 (*.f64 q q) #s(literal 4 binary64)) (*.f64 p p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
(*.f64 #s(literal 1/2 binary64) (fma.f64 (exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))))))
(fma.f64 (exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
(+.f64 (*.f64 (exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))) (*.f64 r p)) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))
(exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))) (sinh.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))))
(*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))
(log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))
#s(literal -1/2 binary64)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))) #s(literal 1/2 binary64))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64))))
(*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))
(-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64))
(fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
(+.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p))) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
#s(literal -2 binary64)
(*.f64 (/.f64 q p) (/.f64 q p))
(/.f64 q p)
(/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))) #s(literal 1/2 binary64)))
(*.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))) #s(literal 1/2 binary64))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))))))
(*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64))))))))
(neg.f64 p)
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))))
(*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64))))))
(*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))
(-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64))))
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r))
(/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)
(-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
(*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))
(pow.f64 p #s(literal -1 binary64))
(/.f64 #s(literal 1 binary64) p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p)))))
(*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p)))
(*.f64 #s(literal 1/2 binary64) (/.f64 r p))
(/.f64 r p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (* p p))) p)) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (* p p))) p)) #s(literal 1/2 binary64))
(-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (* p p))) p))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))))
(fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r)))
(+.f64 (*.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64)) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r)
(/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))
(neg.f64 (*.f64 q q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q)))
(+.f64 (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q)))
(-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p)
(+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r))
(+.f64 r (fabs.f64 p))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)))
(*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))
(/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p)))
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))
(/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p)
(-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r)
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p))
(/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)
(-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r)))
(*.f64 #s(literal -1 binary64) (*.f64 q q))
(*.f64 #s(literal -1 binary64) (*.f64 r r))
(*.f64 r r)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))))) (*.f64 q q)))
(+.f64 (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))))) (*.f64 q q)))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64)))))
(*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))))
(-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64)))
(pow.f64 (-.f64 p r) #s(literal -3 binary64))
#s(literal -3 binary64)
(pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))
(*.f64 (*.f64 q q) (-.f64 p r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q)))
(+.f64 (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q)))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p))
(/.f64 #s(literal -1 binary64) p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q)))
(+.f64 (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q)))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r)))
(/.f64 #s(literal -1 binary64) (-.f64 p r))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p))
(*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)
(-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))
(/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p)
(fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))
(+.f64 (*.f64 (/.f64 r p) #s(literal -1 binary64)) #s(literal 1 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))
(*.f64 #s(literal -2 binary64) q)
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))
(*.f64 q #s(literal 2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p))))
#s(literal 1/2 binary64)
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p))
(/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p)
(fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r))))
(+.f64 (*.f64 #s(literal -2 binary64) (*.f64 q q)) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r))))
(*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))
(-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r))
(+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))
(+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))
(*.f64 #s(literal -1 binary64) p)
(*.f64 #s(literal -1 binary64) r)
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))
(/.f64 (*.f64 q q) r)
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p))
(*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p))))
(*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r))
(*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r))))
(*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))
(*.f64 (/.f64 q r) (/.f64 q r))
(/.f64 q r)
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p)) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p)) p))
(*.f64 #s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p)) p)
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p))
(*.f64 #s(literal 1/2 binary64) #s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p))))))
(*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)))))
(-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p))))
(*.f64 #s(literal 2 binary64) (/.f64 r p))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)))
(*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p))
(/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)
(+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))
(+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (sqrt.f64 (*.f64 p p)) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))))
(-.f64 (+.f64 (sqrt.f64 (*.f64 p p)) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r)))
(+.f64 (sqrt.f64 (*.f64 p p)) (fabs.f64 r))
(sqrt.f64 (*.f64 p p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))
(neg.f64 r)
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
(/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q)))
(*.f64 #s(literal -4 binary64) (*.f64 q q))
#s(literal -4 binary64)
(+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
(+.f64 (*.f64 (*.f64 q q) #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
(pow.f64 (-.f64 p r) #s(literal 2 binary64))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal 1/4 binary64) (/.f64 r q) (*.f64 p (-.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (*.f64 p r) (pow.f64 q #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64)))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q))))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (fabs p) (fabs r)) (+.f64 (fabs.f64 p) (fabs.f64 r)))
#s(approx (fabs p) (fabs.f64 p))
#s(approx p p)
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q))))
#s(approx (/ p q) (/.f64 p q))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 4 binary64)) #s(literal -1 binary64)))) (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64)))) #s(literal 1/2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (fma.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal 2 binary64))) (pow.f64 r #s(literal 15 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 r #s(literal 7 binary64))))) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64)))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 4 binary64)) #s(literal -1 binary64)))) (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64))))) #s(literal 1/2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (fma.f64 p (fma.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal 2 binary64))) (pow.f64 r #s(literal 15 binary64))))) (pow.f64 r #s(literal 5 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64))))))) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))))) (pow.f64 r #s(literal 15 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 8 binary64) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 r #s(literal 10 binary64)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 r #s(literal 7 binary64)))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (pow.f64 r #s(literal 7 binary64))) (pow.f64 (pow.f64 r #s(literal 6 binary64)) #s(literal -1 binary64))))) (pow.f64 (pow.f64 r #s(literal 4 binary64)) #s(literal -1 binary64)))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal 2 binary64))) (pow.f64 r #s(literal 15 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 r #s(literal 7 binary64))))) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 4 binary64)) #s(literal -1 binary64)))) (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64))))) #s(literal 1/2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 p (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 r #s(literal 6 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64)))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 p (fma.f64 p (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 r #s(literal 7 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64)))))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64)))))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 r #s(literal 6 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 p (fma.f64 p (fma.f64 p (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 r #s(literal 7 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64))))))) (pow.f64 r #s(literal 5 binary64))) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64))))))) (pow.f64 r #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 r #s(literal 8 binary64)) #s(literal -1 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64))))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 6 binary64))) #s(literal -1 binary64))))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 r #s(literal 7 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64)))))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64))))))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 r #s(literal 6 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (fma.f64 p (-.f64 (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 r #s(literal 6 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (fma.f64 p (-.f64 (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 r #s(literal 6 binary64)) #s(literal -1 binary64)) (fma.f64 p (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 r #s(literal 7 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64)))))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64))))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (fma.f64 p (-.f64 (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 r #s(literal 6 binary64)) #s(literal -1 binary64)) (fma.f64 p (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64)) (fma.f64 p (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 r #s(literal 7 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64))))))) (pow.f64 r #s(literal 5 binary64))) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64))))))) (pow.f64 r #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 r #s(literal 8 binary64)) #s(literal -1 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64))))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 6 binary64))) #s(literal -1 binary64)))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 r #s(literal 7 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64)))))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64))))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64))))))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (*.f64 p (-.f64 (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64))))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 6 binary64))) #s(literal -1 binary64))))) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64))))))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (fma.f64 #s(literal -1 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))
#s(approx (+ r (+ (fabs p) (fabs r))) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (/.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (-.f64 (*.f64 #s(literal -3 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (-.f64 (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64))))))) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (-.f64 (*.f64 p (-.f64 (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64))))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 6 binary64))) #s(literal -1 binary64))))) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 7 binary64))))))) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))
#s(approx (* (* q q) (pow (- p r) 3)) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (* (* q q) (pow (- p r) 3)) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (*.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (* (* q q) (pow (- p r) 3)) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (*.f64 p (fma.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))
#s(approx (* (* q q) (pow (- p r) 3)) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (*.f64 p (fma.f64 p (fma.f64 p (pow.f64 q #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))
#s(approx (pow (- p r) 3) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64))))
#s(approx (pow (- p r) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))
#s(approx (pow (- p r) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (fma.f64 p (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (pow (- p r) 3) (fma.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (fma.f64 p (+.f64 p (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (- p r) (*.f64 #s(literal -1 binary64) r))
#s(approx (- p r) (-.f64 p r))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64)))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 r #s(literal 6 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64)))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (-.f64 (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 r #s(literal 7 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64))))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 r #s(literal 6 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64)))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (-.f64 (*.f64 p (-.f64 (*.f64 p (-.f64 (fma.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 r #s(literal 7 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64)))))) (*.f64 p (-.f64 (*.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 r #s(literal 7 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64))))))) (pow.f64 r #s(literal 5 binary64))) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64))))))) (pow.f64 r #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 r #s(literal 8 binary64)) #s(literal -1 binary64)))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 r #s(literal 6 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64)))))
#s(approx (pow (- p r) -5) (/.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 5 binary64))))
#s(approx (pow (- p r) -5) (-.f64 (*.f64 #s(literal -5 binary64) (/.f64 p (pow.f64 r #s(literal 6 binary64)))) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64))))
#s(approx (pow (- p r) -5) (-.f64 (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 r #s(literal 7 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64))))))) (*.f64 #s(literal 5 binary64) (pow.f64 (pow.f64 r #s(literal 6 binary64)) #s(literal -1 binary64))))) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64))))
#s(approx (pow (- p r) -5) (-.f64 (*.f64 p (-.f64 (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 r #s(literal 7 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64))))))) (pow.f64 r #s(literal 5 binary64))) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64))))))) (pow.f64 r #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 r #s(literal 8 binary64)) #s(literal -1 binary64)))))) (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 r #s(literal 7 binary64)) #s(literal -1 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64))))))) (*.f64 #s(literal 5 binary64) (pow.f64 (pow.f64 r #s(literal 6 binary64)) #s(literal -1 binary64))))) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64))))
#s(approx (pow (* (pow q 4) (- p r)) -1) (/.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 4 binary64)) r)))
#s(approx (pow (* (pow q 4) (- p r)) -1) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64))))
#s(approx (pow (* (pow q 4) (- p r)) -1) (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64))))
#s(approx (pow (* (pow q 4) (- p r)) -1) (-.f64 (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64))))
#s(approx (* (pow q 4) (- p r)) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 4 binary64)) r)))
#s(approx (* (pow q 4) (- p r)) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 4 binary64)) r) (*.f64 p (pow.f64 q #s(literal 4 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 1/2 binary64)) (/.f64 (pow.f64 q #s(literal 2 binary64)) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (/.f64 (pow.f64 q #s(literal 2 binary64)) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (fma.f64 p (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 4 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64)))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (/.f64 (pow.f64 q #s(literal 2 binary64)) r))))
#s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (pow.f64 q #s(literal 2 binary64)) r))
#s(approx (* -1 (/ (* q q) (- p r))) (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 2 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)))
#s(approx (* -1 (/ (* q q) (- p r))) (fma.f64 p (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)))
#s(approx (* -1 (/ (* q q) (- p r))) (fma.f64 p (fma.f64 p (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 4 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64)))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)))
#s(approx (/ (* q q) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) r))))
#s(approx (/ (* q q) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) r) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64)))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (/ (* q q) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) r) (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 4 binary64)))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p r) q)))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (/.f64 p q) (*.f64 #s(literal 1/2 binary64) (/.f64 r q)))))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (/.f64 r q) (*.f64 p (-.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p r) (pow.f64 q #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64))))))))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p r) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 p (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) r) (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 r q)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (/.f64 r q) (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 r (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 3/256 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) r) (pow.f64 q #s(literal 5 binary64)))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (/.f64 r q) (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 r (pow.f64 q #s(literal 3 binary64))) (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -5/2048 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) r) (pow.f64 q #s(literal 7 binary64))) (*.f64 #s(literal 3/256 binary64) (/.f64 r (pow.f64 q #s(literal 5 binary64)))))))))))
#s(approx (* p r) (*.f64 p r))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -1 binary64)))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (fma.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 3/256 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 5 binary64)))) (*.f64 #s(literal 1/16 binary64) (pow.f64 (pow.f64 q #s(literal 3 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -1 binary64)))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (fma.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -5/2048 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 7 binary64))) (*.f64 #s(literal 3/256 binary64) (pow.f64 (pow.f64 q #s(literal 5 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 1/16 binary64) (pow.f64 (pow.f64 q #s(literal 3 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -1 binary64)))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (*.f64 #s(literal 2 binary64) q))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) q) (*.f64 #s(literal 2 binary64) q)))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (fma.f64 #s(literal 2 binary64) q (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (fma.f64 #s(literal 2 binary64) q (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 5 binary64)))) (*.f64 #s(literal 1/64 binary64) (pow.f64 (pow.f64 q #s(literal 3 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (+ (* 4 (* q q)) (* p p)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))
#s(approx (+ (* 4 (* q q)) (* p p)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))
#s(approx (* p p) (pow.f64 p #s(literal 2 binary64)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -1 binary64)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (fma.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 3/256 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 5 binary64)))) (*.f64 #s(literal 1/16 binary64) (pow.f64 (pow.f64 q #s(literal 3 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -1 binary64)))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (fma.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -5/2048 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 7 binary64))) (*.f64 #s(literal 3/256 binary64) (pow.f64 (pow.f64 q #s(literal 5 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 1/16 binary64) (pow.f64 (pow.f64 q #s(literal 3 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -1 binary64)))))
#s(approx (* r p) (*.f64 p r))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) q)))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64))))))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/512 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 5 binary64))) (*.f64 #s(literal 1/64 binary64) (pow.f64 (pow.f64 q #s(literal 3 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64))))))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (fabs r) (fabs p)) (+.f64 (fabs.f64 p) (fabs.f64 r)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal 2 binary64) q))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) q) (*.f64 #s(literal 2 binary64) q)))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (fma.f64 #s(literal 2 binary64) q (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (fma.f64 #s(literal 2 binary64) q (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 5 binary64)))) (*.f64 #s(literal 1/64 binary64) (pow.f64 (pow.f64 q #s(literal 3 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (+ (* (* q q) 4) (* p p)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))
#s(approx (+ (* (* q q) 4) (* p p)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal 1/4 binary64) (/.f64 r q) (*.f64 p (-.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (*.f64 p r) (pow.f64 q #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64)))))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p r) q)))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (/.f64 p q) (*.f64 #s(literal 1/2 binary64) (/.f64 r q)))))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (/.f64 r q) (*.f64 p (-.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p r) (pow.f64 q #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64))))))))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (/.f64 #s(literal 1/2 binary64) q))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -1 binary64)))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (fma.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 3/256 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 5 binary64)))) (*.f64 #s(literal 1/16 binary64) (pow.f64 (pow.f64 q #s(literal 3 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -1 binary64)))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (fma.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -5/2048 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 7 binary64))) (*.f64 #s(literal 3/256 binary64) (pow.f64 (pow.f64 q #s(literal 5 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 1/16 binary64) (pow.f64 (pow.f64 q #s(literal 3 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -1 binary64)))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (log.f64 (pow.f64 (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))) #s(literal -1/2 binary64))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (fma.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))) (*.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (fma.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64)))) (*.f64 #s(literal 1/8 binary64) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (fma.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/384 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/64 binary64) (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 1/8 binary64) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (log.f64 (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (+.f64 (log.f64 (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (+.f64 (log.f64 (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (+.f64 (log.f64 (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/192 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 6 binary64)))) (*.f64 #s(literal 1/32 binary64) (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) q) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/1024 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 5 binary64))) (*.f64 #s(literal 1/128 binary64) (pow.f64 (pow.f64 q #s(literal 3 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r)))) p))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) p))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r)))) (pow.f64 p #s(literal 2 binary64))))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (pow.f64 p #s(literal 2 binary64))))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r)))) (pow.f64 p #s(literal 2 binary64))))
#s(approx (* (/ q p) (/ q p)) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))
#s(approx (/ q p) (/.f64 q p))
#s(approx (/ (+ (fabs p) (fabs r)) p) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (fma.f64 #s(literal -1/2 binary64) p (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (fma.f64 #s(literal 1/2 binary64) p (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))))
#s(approx (neg p) (*.f64 #s(literal -1 binary64) p))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (/.f64 (fma.f64 #s(literal -1/2 binary64) p (*.f64 #s(literal -1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))) p))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1/2 binary64))) p)))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) p)) p))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1/2 binary64))) p))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) p (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1/2 binary64)))) p))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1/2 binary64)) p))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 p r) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))) #s(literal 1/2 binary64)) p))
#s(approx (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p r))))
#s(approx (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 p r) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))) p))
#s(approx (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p r))))
#s(approx (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 p r) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))) p))
#s(approx (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))
#s(approx (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) (/.f64 (fma.f64 #s(literal -1/2 binary64) p (*.f64 #s(literal -1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) p))
#s(approx (* -1/2 (/ (+ (fabs p) (fabs r)) p)) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))
#s(approx (* 1/2 (pow p -1)) (/.f64 #s(literal 1/2 binary64) p))
#s(approx (pow p -1) (pow.f64 p #s(literal -1 binary64)))
#s(approx (* 1/2 (/ r p)) (*.f64 #s(literal 1/2 binary64) (/.f64 r p)))
#s(approx (/ r p) (/.f64 r p))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (pow.f64 q #s(literal 2 binary64)) r))
#s(approx (/ (neg (* q q)) (- p r)) (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 2 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)))
#s(approx (/ (neg (* q q)) (- p r)) (fma.f64 p (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)))
#s(approx (/ (neg (* q q)) (- p r)) (fma.f64 p (fma.f64 p (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 4 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64)))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 6 binary64))))) #s(literal 1/2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (fma.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 r #s(literal 9 binary64)))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 6 binary64)))))) #s(literal 1/2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (fma.f64 p (fma.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 r #s(literal 4 binary64)) #s(literal -1 binary64)) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 r #s(literal 9 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 6 binary64))))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 r #s(literal 9 binary64))))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 6 binary64)))))) #s(literal 1/2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))
#s(approx (+ r (fabs p)) (+.f64 r (fabs.f64 p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 6 binary64))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 p (fma.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 r #s(literal 9 binary64)))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 6 binary64)))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 p (fma.f64 p (fma.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 r #s(literal 4 binary64)) #s(literal -1 binary64)) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 r #s(literal 9 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 6 binary64))))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 r #s(literal 9 binary64))))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 6 binary64)))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (fma.f64 p (-.f64 (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 6 binary64)))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (fma.f64 p (-.f64 (fma.f64 p (-.f64 (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 6 binary64)))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (fma.f64 p (-.f64 (fma.f64 p (-.f64 (fma.f64 p (-.f64 (pow.f64 (pow.f64 r #s(literal 4 binary64)) #s(literal -1 binary64)) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 r #s(literal 9 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 6 binary64)))))) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 r #s(literal 6 binary64)))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p r) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/.f64 (fma.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) (*.f64 p (fma.f64 #s(literal -1 binary64) p (*.f64 #s(literal -1 binary64) r)))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p r)) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (+.f64 p r))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal 2 binary64))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p r)) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal 2 binary64))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (+.f64 p r))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal 2 binary64))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal 2 binary64))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p r)) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal 2 binary64))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p r) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))))) (pow.f64 p #s(literal 2 binary64))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p r) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))))) p))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) p)))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) p))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) #s(literal -1 binary64)) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64)))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (fma.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 4 binary64)) #s(literal -1 binary64))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) #s(literal -1 binary64)) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (fma.f64 p (fma.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 r #s(literal 7 binary64)))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 4 binary64)) #s(literal -1 binary64)))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) #s(literal -1 binary64)) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (fma.f64 p (fma.f64 p (fma.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 r #s(literal 7 binary64)))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (pow.f64 r #s(literal 7 binary64))) (pow.f64 (pow.f64 r #s(literal 6 binary64)) #s(literal -1 binary64)))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 r #s(literal 7 binary64))))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 4 binary64)) #s(literal -1 binary64)))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) #s(literal -1 binary64)) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) #s(literal -1 binary64)) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (fma.f64 p (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 4 binary64)) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) #s(literal -1 binary64))) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (fma.f64 p (-.f64 (fma.f64 p (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 r #s(literal 7 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 4 binary64)) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) #s(literal -1 binary64))) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (fma.f64 p (-.f64 (fma.f64 p (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)) (fma.f64 p (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 r #s(literal 7 binary64)))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (pow.f64 r #s(literal 7 binary64))) (pow.f64 (pow.f64 r #s(literal 6 binary64)) #s(literal -1 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 r #s(literal 7 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 4 binary64)) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) #s(literal -1 binary64))) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))))
#s(approx (pow (- p r) -3) (/.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64))))
#s(approx (pow (- p r) -3) (-.f64 (*.f64 #s(literal -3 binary64) (/.f64 p (pow.f64 r #s(literal 4 binary64)))) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))))
#s(approx (pow (- p r) -3) (-.f64 (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 r #s(literal 7 binary64)))))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 4 binary64)) #s(literal -1 binary64))))) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))))
#s(approx (pow (- p r) -3) (-.f64 (*.f64 p (-.f64 (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 r #s(literal 7 binary64)))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (pow.f64 r #s(literal 7 binary64))) (pow.f64 (pow.f64 r #s(literal 6 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 5 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 r #s(literal 7 binary64)))))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 r #s(literal 4 binary64)) #s(literal -1 binary64))))) (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64))))
#s(approx (pow (* (* q q) (- p r)) -1) (/.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) r)))
#s(approx (pow (* (* q q) (- p r)) -1) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) #s(literal -1 binary64))))
#s(approx (pow (* (* q q) (- p r)) -1) (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) #s(literal -1 binary64))))
#s(approx (pow (* (* q q) (- p r)) -1) (-.f64 (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) #s(literal -1 binary64))))
#s(approx (* (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) r)))
#s(approx (* (* q q) (- p r)) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (*.f64 p (pow.f64 q #s(literal 2 binary64)))))
#s(approx (/ -1 p) (/.f64 #s(literal -1 binary64) p))
#s(approx (/ -1 (- p r)) (pow.f64 r #s(literal -1 binary64)))
#s(approx (/ -1 (- p r)) (+.f64 (pow.f64 r #s(literal -1 binary64)) (/.f64 p (pow.f64 r #s(literal 2 binary64)))))
#s(approx (/ -1 (- p r)) (fma.f64 p (+.f64 (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 p (pow.f64 r #s(literal 3 binary64)))) (pow.f64 r #s(literal -1 binary64))))
#s(approx (/ -1 (- p r)) (fma.f64 p (fma.f64 p (+.f64 (pow.f64 (pow.f64 r #s(literal 3 binary64)) #s(literal -1 binary64)) (/.f64 p (pow.f64 r #s(literal 4 binary64)))) (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64))) (pow.f64 r #s(literal -1 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))) (*.f64 #s(literal -1 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)) p))
#s(approx (/ (+ (fabs r) (fabs p)) p) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
#s(approx (+ (* (/ r p) -1) 1) (*.f64 #s(literal -1 binary64) (/.f64 r p)))
#s(approx (+ (* (/ r p) -1) 1) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) r)) p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)))) p))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)))) p))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 p))) (+.f64 (fabs.f64 p) (fabs.f64 r)))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 p))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))
#s(approx (+ (fabs r) (* -1 p)) (fabs.f64 r))
#s(approx (+ (fabs r) (* -1 p)) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))
#s(approx (* -1 p) (*.f64 #s(literal -1 binary64) p))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))) #s(literal 1 binary64))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+.f64 p (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))) #s(literal 1 binary64)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)))) (pow.f64 p #s(literal 2 binary64))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) (pow.f64 p #s(literal 2 binary64))))
#s(approx (* -2 (* (/ q p) (/ q p))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 p r) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r)))) #s(literal 1 binary64)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (*.f64 p (fma.f64 #s(literal -1/2 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))) (*.f64 p (fma.f64 #s(literal -1/2 binary64) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 r (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 (/.f64 (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal -1 binary64))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal -1 binary64)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 p (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 r (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 (/.f64 (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal -1 binary64))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal -1 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) (-.f64 (fma.f64 #s(literal -1 binary64) p (*.f64 #s(literal 2 binary64) r)) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) p (*.f64 #s(literal 2 binary64) r)) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p))
#s(approx (* 2 (/ r p)) (*.f64 #s(literal 2 binary64) (/.f64 r p)))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 r))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 p (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 p (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 p (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 p (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))))) (*.f64 #s(literal -1 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))
#s(approx (+ (sqrt (* p p)) (fabs r)) (fabs.f64 r))
#s(approx (+ (sqrt (* p p)) (fabs r)) (+.f64 p (fabs.f64 r)))
#s(approx (sqrt (* p p)) p)
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p r) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (fma.f64 p (-.f64 (*.f64 #s(literal -1 binary64) p) (*.f64 #s(literal -2 binary64) r)) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (fma.f64 #s(literal -2 binary64) (*.f64 p r) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 p (+.f64 p (*.f64 #s(literal -2 binary64) r)) (pow.f64 r #s(literal 2 binary64)))))
#s(approx (pow (- p r) 2) (pow.f64 r #s(literal 2 binary64)))
#s(approx (pow (- p r) 2) (fma.f64 #s(literal -2 binary64) (*.f64 p r) (pow.f64 r #s(literal 2 binary64))))
#s(approx (pow (- p r) 2) (fma.f64 p (+.f64 p (*.f64 #s(literal -2 binary64) r)) (pow.f64 r #s(literal 2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))) #s(literal 1/2 binary64))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 r (*.f64 p q))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 r (*.f64 p q)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (pow.f64 p #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (*.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) q)))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 r (*.f64 p q))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 p (-.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 r (*.f64 p q))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))) #s(literal 1/2 binary64))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))))) p)) #s(literal 1/2 binary64))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))))) p))) #s(literal 1/2 binary64))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))))) p)))) #s(literal 1/2 binary64))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64))))) p)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64))))) p)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64))))) p))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64))))) p)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (*.f64 p (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64))))) p) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64))))) (pow.f64 p #s(literal 5 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64))))) p) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64))))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (*.f64 #s(literal -1 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64)))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (*.f64 p (-.f64 (+.f64 (/.f64 r (*.f64 p (pow.f64 q #s(literal 6 binary64)))) (+.f64 (/.f64 (fabs.f64 p) (*.f64 p (pow.f64 q #s(literal 6 binary64)))) (/.f64 (fabs.f64 r) (*.f64 p (pow.f64 q #s(literal 6 binary64)))))) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) (*.f64 #s(literal -1 binary64) p))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) (*.f64 p (-.f64 (+.f64 (/.f64 r p) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1 binary64))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64))))) p) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64)))))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))) (pow.f64 p #s(literal 2 binary64))) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 2 binary64))))))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64)))))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) (fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64))))) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64)))))) (pow.f64 p #s(literal 3 binary64))) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64)))))) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (* (* q q) (pow (- p r) 3)) (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))))
#s(approx (* (* q q) (pow (- p r) 3)) (*.f64 (pow.f64 p #s(literal 3 binary64)) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) p) (pow.f64 q #s(literal 2 binary64)))))
#s(approx (* (* q q) (pow (- p r) 3)) (*.f64 (pow.f64 p #s(literal 3 binary64)) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) p) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal 2 binary64))) (pow.f64 q #s(literal 2 binary64))))))
#s(approx (* (* q q) (pow (- p r) 3)) (*.f64 (pow.f64 p #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 p #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) p) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal 2 binary64))) (pow.f64 q #s(literal 2 binary64)))))))
#s(approx (pow (- p r) 3) (pow.f64 p #s(literal 3 binary64)))
#s(approx (pow (- p r) 3) (*.f64 (pow.f64 p #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (pow (- p r) 3) (*.f64 (pow.f64 p #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))))
#s(approx (pow (- p r) 3) (*.f64 (pow.f64 p #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))))
#s(approx (- p r) p)
#s(approx (- p r) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (/.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64)) (/.f64 r (*.f64 p (pow.f64 q #s(literal 4 binary64))))) p))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (/.f64 (-.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64)) (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 4 binary64)))))) p))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (/.f64 (-.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64)) (/.f64 (pow.f64 r #s(literal 3 binary64)) (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 4 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))))))) p))
#s(approx (pow (- p r) -5) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)))
#s(approx (pow (- p r) -5) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r)) p))) (pow.f64 p #s(literal 5 binary64))))
#s(approx (pow (- p r) -5) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 8 binary64) (pow.f64 r #s(literal 2 binary64))))) (pow.f64 p #s(literal 2 binary64))))) (fma.f64 #s(literal -4 binary64) (/.f64 r p) (*.f64 #s(literal -1 binary64) (/.f64 r p)))) (pow.f64 p #s(literal 5 binary64))))
#s(approx (pow (- p r) -5) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64))))) (fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 8 binary64) (pow.f64 r #s(literal 2 binary64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 8 binary64) (pow.f64 r #s(literal 2 binary64))))))))) (pow.f64 p #s(literal 3 binary64))))) (fma.f64 #s(literal -4 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -4 binary64) r (*.f64 #s(literal -1 binary64) r)) #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 8 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))) (pow.f64 p #s(literal 5 binary64))))
#s(approx (pow (* (pow q 4) (- p r)) -1) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))
#s(approx (pow (* (pow q 4) (- p r)) -1) (/.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64)) (/.f64 r (*.f64 p (pow.f64 q #s(literal 4 binary64))))) p))
#s(approx (pow (* (pow q 4) (- p r)) -1) (/.f64 (-.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64)) (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 4 binary64)))))) p))
#s(approx (pow (* (pow q 4) (- p r)) -1) (/.f64 (-.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64)) (/.f64 (pow.f64 r #s(literal 3 binary64)) (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 4 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))))))) p))
#s(approx (* (pow q 4) (- p r)) (*.f64 p (pow.f64 q #s(literal 4 binary64))))
#s(approx (* (pow q 4) (- p r)) (*.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) p) (pow.f64 q #s(literal 4 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))) #s(literal 1/2 binary64))))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))
#s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) p))
#s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))))) p))
#s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))))) p))
#s(approx (/ (* q q) (- p r)) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))
#s(approx (/ (* q q) (- p r)) (/.f64 (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (pow.f64 q #s(literal 2 binary64))) p))
#s(approx (/ (* q q) (- p r)) (/.f64 (-.f64 (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 p #s(literal 2 binary64))) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p))) p))
#s(approx (/ (* q q) (- p r)) (/.f64 (-.f64 (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 p #s(literal 3 binary64))) (pow.f64 q #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 p #s(literal 2 binary64)))))) p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 p (-.f64 (+.f64 (/.f64 r p) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1 binary64))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 r p) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)))) #s(literal 1 binary64))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (+.f64 (/.f64 r p) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) r)
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (+.f64 r (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (+.f64 r (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 r (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (pow.f64 p #s(literal 4 binary64)))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (+.f64 r (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 r (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal 64 binary64) (pow.f64 q #s(literal 6 binary64))))) (pow.f64 p #s(literal 6 binary64))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (pow.f64 p #s(literal -1 binary64)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) p))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64)))))) p))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal 64 binary64) (pow.f64 q #s(literal 6 binary64)))) (pow.f64 p #s(literal 6 binary64))))))) p))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) p)
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 p #s(literal 6 binary64)))))))))
#s(approx (+ (* 4 (* q q)) (* p p)) (pow.f64 p #s(literal 2 binary64)))
#s(approx (+ (* 4 (* q q)) (* p p)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (pow.f64 p #s(literal -1 binary64)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) p))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64)))))) p))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal 64 binary64) (pow.f64 q #s(literal 6 binary64)))) (pow.f64 p #s(literal 6 binary64))))))) p))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -1 binary64) p))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) #s(literal 1 binary64))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1 binary64))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) p)
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 p #s(literal 6 binary64)))))))))
#s(approx (+ (* (* q q) 4) (* p p)) (pow.f64 p #s(literal 2 binary64)))
#s(approx (+ (* (* q q) 4) (* p p)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))) #s(literal 1/2 binary64))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) p))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 p (-.f64 (+.f64 (/.f64 r p) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1 binary64))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 r p) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)))) #s(literal 1 binary64))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (+.f64 (/.f64 r p) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (pow.f64 p #s(literal -1 binary64)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) p))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64)))))) p))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal 64 binary64) (pow.f64 q #s(literal 6 binary64)))) (pow.f64 p #s(literal 6 binary64))))))) p))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (neg.f64 (log.f64 p)))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (+.f64 (neg.f64 (log.f64 p)) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (+.f64 (neg.f64 (log.f64 p)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (+.f64 (neg.f64 (log.f64 p)) (fma.f64 #s(literal -32/3 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 p #s(literal 6 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -2 binary64) (neg.f64 (log.f64 p))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (fma.f64 #s(literal -2 binary64) (neg.f64 (log.f64 p)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (fma.f64 #s(literal -2 binary64) (neg.f64 (log.f64 p)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (fma.f64 #s(literal -2 binary64) (neg.f64 (log.f64 p)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 64/3 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 p #s(literal 6 binary64))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) #s(literal 1/2 binary64))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))))) #s(literal 1/2 binary64))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) (*.f64 #s(literal -1 binary64) p))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) #s(literal 1 binary64))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1 binary64))))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) #s(literal -1 binary64))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) #s(literal 1 binary64)))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1 binary64)))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))) p))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1/2 binary64))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (*.f64 #s(literal -1 binary64) p))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (*.f64 p (-.f64 (+.f64 (/.f64 r p) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1 binary64))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)) #s(literal 1/2 binary64)))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) #s(literal -1/2 binary64))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1/2 binary64))) p)) #s(literal 1/2 binary64)))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) #s(literal 1/2 binary64))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1/2 binary64))) p)))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) (/.f64 #s(literal 1/2 binary64) r))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 r #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (/.f64 #s(literal 1/2 binary64) r))
#s(approx (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) (/.f64 #s(literal -1/2 binary64) r))
#s(approx (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p r))) (*.f64 #s(literal 1/2 binary64) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) p))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))))) p))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))))) p))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))) #s(literal 1/2 binary64))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) p))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))) (pow.f64 p #s(literal 2 binary64))))) p))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))) (pow.f64 p #s(literal 2 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))))) (pow.f64 p #s(literal 3 binary64)))))) p))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r p)) #s(literal 1 binary64)) p))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) #s(literal 1 binary64)) p))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) (pow.f64 p #s(literal 3 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 p #s(literal 3 binary64))))) p))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/.f64 #s(literal -1 binary64) p))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r p)) #s(literal 1 binary64)) p))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r p) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal 2 binary64))))) #s(literal 1 binary64)) p))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (pow.f64 p #s(literal -1 binary64)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 r p)) p))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (/.f64 r p))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) p))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (+.f64 #s(literal 1 binary64) (/.f64 r p)))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (/.f64 r p))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/.f64 r p))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/.f64 (-.f64 (+.f64 r (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p))) p))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 #s(literal -1 binary64) (/.f64 r p)))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (/.f64 (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) p))) p))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (*.f64 #s(literal -1 binary64) r))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) p)) r))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 #s(literal -1 binary64) p))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r p)) #s(literal 1 binary64)) p))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r p) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) (pow.f64 p #s(literal 2 binary64)))) #s(literal 1 binary64)) p))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r p) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) (pow.f64 p #s(literal 2 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64)))) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)))) (pow.f64 p #s(literal 3 binary64))))) #s(literal 1 binary64)) p))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 2 binary64))))) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) p))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) p))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64)))) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64))))) (fma.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 p #s(literal 3 binary64))) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))))) p))
#s(approx (pow (- p r) -3) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))
#s(approx (pow (- p r) -3) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) p))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (pow (- p r) -3) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (*.f64 #s(literal -1 binary64) (/.f64 r p)))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (pow (- p r) -3) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64))))) (pow.f64 p #s(literal 3 binary64))))) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (pow (* (* q q) (- p r)) -1) (pow.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))
#s(approx (pow (* (* q q) (- p r)) -1) (/.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 r (*.f64 p (pow.f64 q #s(literal 2 binary64))))) p))
#s(approx (pow (* (* q q) (- p r)) -1) (/.f64 (-.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))) (*.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 2 binary64)))))) p))
#s(approx (pow (* (* q q) (- p r)) -1) (/.f64 (-.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (pow.f64 r #s(literal 3 binary64)) (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))) p))
#s(approx (* (* q q) (- p r)) (*.f64 p (pow.f64 q #s(literal 2 binary64))))
#s(approx (* (* q q) (- p r)) (*.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (pow.f64 q #s(literal 2 binary64)))))
#s(approx (/ -1 (- p r)) (/.f64 #s(literal -1 binary64) p))
#s(approx (/ -1 (- p r)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r p)) #s(literal 1 binary64)) p))
#s(approx (/ -1 (- p r)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (/.f64 r p))) p))
#s(approx (/ -1 (- p r)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) (pow.f64 p #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 r p) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p)))) #s(literal 1/2 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (*.f64 #s(literal -1 binary64) p))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) #s(literal -1 binary64))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (+ (* (/ r p) -1) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ r p) -1) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) p)
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 #s(literal -1 binary64) p))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 #s(literal -1 binary64) p))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 p))) (*.f64 #s(literal -1 binary64) p))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 p))) (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) #s(literal 1 binary64))))
#s(approx (+ (fabs r) (* -1 p)) (*.f64 #s(literal -1 binary64) p))
#s(approx (+ (fabs r) (* -1 p)) (*.f64 p (-.f64 (/.f64 (fabs.f64 r) p) #s(literal 1 binary64))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) p)
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 p (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))) #s(literal 1 binary64))) p))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(literal -1 binary64))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (/.f64 p r))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 p (pow.f64 r #s(literal 2 binary64)))) (+.f64 (pow.f64 r #s(literal -1 binary64)) (+.f64 (/.f64 (fabs.f64 p) (*.f64 p r)) (/.f64 (fabs.f64 r) (*.f64 p r))))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (pow.f64 r #s(literal 2 binary64)))))) (pow.f64 p #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (fma.f64 #s(literal 2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))))) (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (pow.f64 r #s(literal 2 binary64))))))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (pow.f64 r #s(literal 2 binary64)))))) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 1/2 binary64))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) p))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 r p) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))))) (pow.f64 p #s(literal 2 binary64))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (fma.f64 #s(literal 2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))))) (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (pow.f64 r #s(literal 2 binary64))))))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 r p) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))))) (pow.f64 p #s(literal 2 binary64))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) (*.f64 #s(literal -1 binary64) p))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) #s(literal -1 binary64))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (fma.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))) (*.f64 #s(literal -1 binary64) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 2 binary64))))) (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 3 binary64))))) (fma.f64 #s(literal -1 binary64) r (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))))))
#s(approx (+ (sqrt (* p p)) (fabs r)) p)
#s(approx (+ (sqrt (* p p)) (fabs r)) (*.f64 p (+.f64 #s(literal 1 binary64) (/.f64 (fabs.f64 r) p))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) #s(literal 1 binary64))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) p)
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) p)
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (pow.f64 p #s(literal 2 binary64)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 r p)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (pow (- p r) 2) (pow.f64 p #s(literal 2 binary64)))
#s(approx (pow (- p r) 2) (*.f64 (pow.f64 p #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 r p)))))
#s(approx (pow (- p r) 2) (*.f64 (pow.f64 p #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)) p)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))) p)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)) p)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) p) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p)) #s(literal 1/2 binary64)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) p) (*.f64 #s(literal -1/4 binary64) (/.f64 r q))) p)) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (/.f64 r (*.f64 p q)) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (pow.f64 q #s(literal 2 binary64))) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))))) p))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 q #s(literal 6 binary64)) (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))))))) p))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (pow.f64 q #s(literal 2 binary64))) p) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 q #s(literal 6 binary64)) (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))))))) p))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64))))) p) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))))) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))) p) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64)) (/.f64 r (*.f64 p (pow.f64 q #s(literal 4 binary64))))) p) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64))))))) p) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64))))) p) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64))))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))) p) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64))) (/.f64 r (pow.f64 q #s(literal 2 binary64)))) p)) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64))))))) p) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64))))) p) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64))))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (*.f64 p (pow.f64 q #s(literal 2 binary64))))) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (/.f64 (pow.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) #s(literal 2 binary64)) (*.f64 p (pow.f64 q #s(literal 2 binary64))))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (pow.f64 q #s(literal 2 binary64))))) p)) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 q #s(literal 2 binary64))) (/.f64 (pow.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))) p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (/.f64 (*.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (*.f64 p (pow.f64 q #s(literal 2 binary64)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 q #s(literal 2 binary64))) (/.f64 (pow.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (pow.f64 q #s(literal 2 binary64))))) p)) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (* (* q q) (pow (- p r) 3)) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 r (*.f64 #s(literal 2 binary64) r))) p)))))
#s(approx (* (* q q) (pow (- p r) 3)) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 r (*.f64 #s(literal 2 binary64) r))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) p)) p) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))))))
#s(approx (* (* q q) (pow (- p r) 3)) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 r (*.f64 #s(literal 2 binary64) r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) p)) p))) p) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))))))
#s(approx (pow (- p r) 3) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 r p) (/.f64 r p)) #s(literal 1 binary64)))))
#s(approx (pow (- p r) 3) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (+.f64 r (*.f64 #s(literal 2 binary64) r)) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p) (/.f64 (pow.f64 r #s(literal 2 binary64)) p))) p)) #s(literal 1 binary64)))))
#s(approx (pow (- p r) 3) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (+.f64 r (*.f64 #s(literal 2 binary64) r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (/.f64 (pow.f64 r #s(literal 3 binary64)) p)) p))) p)) #s(literal 1 binary64)))))
#s(approx (- p r) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (/.f64 r p) #s(literal 1 binary64)))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 4 binary64))))) (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64))) p)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 r (pow.f64 q #s(literal 4 binary64))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 p (pow.f64 q #s(literal 4 binary64))))) p)) (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64))) p)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) (*.f64 p (pow.f64 q #s(literal 4 binary64)))))) p) (/.f64 r (pow.f64 q #s(literal 4 binary64)))) p)) (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64))) p)))
#s(approx (pow (- p r) -5) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal 4 binary64) r)) p)) #s(literal 1 binary64)) (pow.f64 p #s(literal 5 binary64)))))
#s(approx (pow (- p r) -5) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 8 binary64) (pow.f64 r #s(literal 2 binary64)))) p) (/.f64 (pow.f64 (+.f64 r (*.f64 #s(literal 4 binary64) r)) #s(literal 2 binary64)) p)) (*.f64 #s(literal -1 binary64) (+.f64 r (*.f64 #s(literal 4 binary64) r)))) p)) #s(literal 1 binary64)) (pow.f64 p #s(literal 5 binary64)))))
#s(approx (pow (- p r) -5) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (+.f64 r (*.f64 #s(literal 4 binary64) r)) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 8 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 (+.f64 r (*.f64 #s(literal 4 binary64) r)) #s(literal 2 binary64)))) p) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 r (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 2 binary64)))))) p) (/.f64 (*.f64 (+.f64 r (*.f64 #s(literal 4 binary64) r)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 8 binary64) (pow.f64 r #s(literal 2 binary64))))) p))) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (*.f64 #s(literal 8 binary64) (pow.f64 r #s(literal 2 binary64)))) (pow.f64 (+.f64 r (*.f64 #s(literal 4 binary64) r)) #s(literal 2 binary64)))) p)) (*.f64 #s(literal -1 binary64) (+.f64 r (*.f64 #s(literal 4 binary64) r)))) p)) #s(literal 1 binary64)) (pow.f64 p #s(literal 5 binary64)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 4 binary64))))) (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64))) p)))
#s(approx (pow (* (pow q 4) (- p r)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 p (pow.f64 q #s(literal 4 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 q #s(literal 4 binary64))))) p)) (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64))) p)))
#s(approx (pow (* (pow q 4) (- p r)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) (*.f64 p (pow.f64 q #s(literal 4 binary64))))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64)))) p)) (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 q #s(literal 4 binary64))))) p)) (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64))) p)))
#s(approx (* (pow q 4) (- p r)) (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 4 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (pow.f64 q #s(literal 2 binary64))) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (pow.f64 q #s(literal 2 binary64))) p)))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) p)) (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) p) (pow.f64 q #s(literal 2 binary64))) p)))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) p) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) p)) (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) p) (pow.f64 q #s(literal 2 binary64))) p)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) p)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (pow.f64 q #s(literal 2 binary64)) r (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) p)) p) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) p)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) p))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) p) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) p)
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)) #s(literal 1 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))))) p)) #s(literal 1 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p)) (*.f64 #s(literal 2 binary64) (pow.f64 q #s(literal 2 binary64)))) p))))) p)) #s(literal 1 binary64)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 #s(literal -1 binary64) r))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (fma.f64 #s(literal -1 binary64) r (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 r (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (fma.f64 #s(literal -1 binary64) r (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 r (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (pow.f64 p #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal 64 binary64) (pow.f64 q #s(literal 6 binary64))))) (pow.f64 p #s(literal 6 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1 binary64) p))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64)))))) p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal 64 binary64) (pow.f64 q #s(literal 6 binary64)))) (pow.f64 p #s(literal 6 binary64))))))) p)))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (*.f64 #s(literal -1 binary64) p))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 p #s(literal 6 binary64))))))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal -1 binary64) p))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64)))))) p)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal 64 binary64) (pow.f64 q #s(literal 6 binary64)))) (pow.f64 p #s(literal 6 binary64))))))) p)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) p)
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))) p)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 q #s(literal 2 binary64)))) p)))) p)) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -1 binary64) p))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 p #s(literal 6 binary64))))))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)) p)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) p) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) p)
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)) #s(literal 1 binary64)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))))) p)) #s(literal 1 binary64)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p)) (*.f64 #s(literal 2 binary64) (pow.f64 q #s(literal 2 binary64)))) p))))) p)) #s(literal 1 binary64)))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (/.f64 #s(literal -1 binary64) p))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) p)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64)))))) p)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal 64 binary64) (pow.f64 q #s(literal 6 binary64)))) (pow.f64 p #s(literal 6 binary64))))))) p)))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (log.f64 (/.f64 #s(literal -1 binary64) p)))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) p)) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) p)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) p)) (fma.f64 #s(literal -32/3 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 p #s(literal 6 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) p) #s(literal -2 binary64))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (fma.f64 #s(literal -2 binary64) (log.f64 (/.f64 #s(literal -1 binary64) p)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (fma.f64 #s(literal -2 binary64) (log.f64 (/.f64 #s(literal -1 binary64) p)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 4 binary64))) (fma.f64 #s(literal -2 binary64) (log.f64 (/.f64 #s(literal -1 binary64) p)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 64/3 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 p #s(literal 6 binary64))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)) p)) #s(literal 1/2 binary64)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 p #s(literal 2 binary64)))) p) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) p)) #s(literal 1/2 binary64)))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))) p))))))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))) p)) #s(literal 1 binary64)))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))) p)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)) #s(literal 1/2 binary64)))))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) (-.f64 (/.f64 (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)))) p) #s(literal 1/2 binary64)))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)))) p))))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))) p) (*.f64 #s(literal 1/2 binary64) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (pow.f64 q #s(literal 2 binary64))) p)))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) p)) (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) p) (pow.f64 q #s(literal 2 binary64))) p)))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) p) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) p)) (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) p) (pow.f64 q #s(literal 2 binary64))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (pow.f64 q #s(literal 2 binary64))) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (pow.f64 q #s(literal 2 binary64))) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64))))) p))) p) (pow.f64 q #s(literal 2 binary64))) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 r (*.f64 #s(literal 2 binary64) r))) (pow.f64 r #s(literal 3 binary64)))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))))) p))) p) (pow.f64 q #s(literal 2 binary64))) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 r p)) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) p)) r) p))) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 r (*.f64 #s(literal 2 binary64) r))) (pow.f64 r #s(literal 3 binary64))) p) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) p)) r) p))) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 r p)) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) p))) p))) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r p)) #s(literal 1 binary64)) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 r (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p))) p)) #s(literal 1 binary64)) p)))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) p))) p))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) p))) p)))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 r (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p))) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 r p)) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) r (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) p)) p))) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (/.f64 (pow.f64 r #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))))) p))) p))) p))) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 r (*.f64 p (pow.f64 q #s(literal 2 binary64))))) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (pow.f64 p #s(literal -1 binary64))) (/.f64 r (pow.f64 q #s(literal 2 binary64)))) p) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (/.f64 (pow.f64 r #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64)))) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) p)) (/.f64 r (pow.f64 q #s(literal 2 binary64)))) p) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) p)))
#s(approx (pow (- p r) -3) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) p)) #s(literal 1 binary64)) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (pow (- p r) -3) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) p) (/.f64 (pow.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) #s(literal 2 binary64)) p)) (*.f64 #s(literal -1 binary64) (+.f64 r (*.f64 #s(literal 2 binary64) r)))) p)) #s(literal 1 binary64)) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (pow (- p r) -3) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) #s(literal 2 binary64)))) p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) p) (/.f64 (*.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) p))) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (pow.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) #s(literal 2 binary64)))) p)) (*.f64 #s(literal -1 binary64) (+.f64 r (*.f64 #s(literal 2 binary64) r)))) p)) #s(literal 1 binary64)) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (pow (* (* q q) (- p r)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 2 binary64))))) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) p)))
#s(approx (pow (* (* q q) (- p r)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64))))) p)) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) p)))
#s(approx (pow (* (* q q) (- p r)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) (*.f64 p (pow.f64 q #s(literal 2 binary64))))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))) p)) (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64))))) p)) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) p)))
#s(approx (* (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p)))))
#s(approx (/ -1 (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 r p)) p)))
#s(approx (/ -1 (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p)) r) p))) p)))
#s(approx (/ -1 (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 r #s(literal 3 binary64)) p) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))) p)) r) p))) p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)) p)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))) p)) #s(literal 1/2 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) p)
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))) r) p)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p)) (*.f64 #s(literal 2 binary64) (pow.f64 q #s(literal 2 binary64)))) p)))) r) p)) #s(literal 1 binary64)))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) (/.f64 r p)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r))) r) p)) #s(literal 1 binary64)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))) p))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (*.f64 #s(literal 2 binary64) (pow.f64 q #s(literal 2 binary64)))) p))) p))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) (/.f64 r p)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) p))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))) (*.f64 #s(literal -1 binary64) r)) p))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))) p)) #s(literal 1 binary64))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p))))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 p))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))))))
#s(approx (+ (fabs r) (* -1 p)) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fabs.f64 r) p))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))) #s(literal 1 binary64))) p)) #s(literal 1 binary64)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r))) r) p)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))) r) p)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))) #s(literal 1 binary64)) p)) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (pow.f64 r #s(literal 2 binary64)))))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))))) p)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (pow.f64 r #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (fma.f64 #s(literal 2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))))) (*.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (pow.f64 r #s(literal 2 binary64))))))))) p))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))))) p)) #s(literal 1/2 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) p)
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (pow.f64 r #s(literal 2 binary64)))))) p))) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))))) p) (+.f64 (/.f64 (*.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (pow.f64 r #s(literal 2 binary64))))))) p) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (pow.f64 r #s(literal 2 binary64)))))) p))) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p)) #s(literal 1 binary64)))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 r p))) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) r) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))) p)) #s(literal 1 binary64)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) p) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (fabs.f64 r) r))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))) r))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p)) (*.f64 #s(literal 2 binary64) (pow.f64 q #s(literal 2 binary64)))) p))) r))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) p)) (*.f64 #s(literal -2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) r))) p)) (*.f64 #s(literal 2 binary64) (pow.f64 q #s(literal 2 binary64)))) p))) r))
#s(approx (+ (sqrt (* p p)) (fabs r)) (*.f64 #s(literal -1 binary64) p))
#s(approx (+ (sqrt (* p p)) (fabs r)) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fabs.f64 r) p))))))
#s(approx (sqrt (* p p)) (*.f64 #s(literal -1 binary64) p))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) p)) (*.f64 #s(literal 2 binary64) r)) p)) #s(literal 1 binary64))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))))) p))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (*.f64 #s(literal 2 binary64) (pow.f64 q #s(literal 2 binary64)))) p))))) p))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))) p))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) p) (*.f64 #s(literal 2 binary64) (pow.f64 q #s(literal 2 binary64)))) p))) p))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) p) (*.f64 #s(literal 2 binary64) r)) p)))))
#s(approx (pow (- p r) 2) (*.f64 (pow.f64 p #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p) (*.f64 #s(literal 2 binary64) r)) p)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) q) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) q) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))))))
#s(approx (fabs r) (fabs.f64 r))
#s(approx r r)
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) q) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q))))
#s(approx (* 1/4 (/ r q)) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))
#s(approx (/ r q) (/.f64 r q))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 5 binary64))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64))))) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 5 binary64))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 r (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) #s(literal 2 binary64))) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64))))))) (pow.f64 p #s(literal 10 binary64))))) (fma.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 7 binary64))))))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64))))) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 5 binary64))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 r (fma.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 r (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) #s(literal 2 binary64))) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64))))))) (pow.f64 p #s(literal 10 binary64))))) (pow.f64 p #s(literal 5 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64)))))))) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64))))))) (pow.f64 p #s(literal 10 binary64))))) (pow.f64 (pow.f64 p #s(literal 6 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64))))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (pow.f64 p #s(literal 7 binary64))))))) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64)))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) #s(literal 2 binary64))) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64))))))) (pow.f64 p #s(literal 10 binary64))))) (fma.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 7 binary64))))))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64))))) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 5 binary64))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 (pow.f64 q #s(literal 6 binary64)) (*.f64 r (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 6 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 6 binary64)) (*.f64 r (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 7 binary64)) #s(literal -1 binary64)))) (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 6 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 r (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 6 binary64)) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 7 binary64)) #s(literal -1 binary64)))) (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (*.f64 r (-.f64 (pow.f64 (*.f64 (pow.f64 p #s(literal 6 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 p #s(literal 8 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 7 binary64)) #s(literal -1 binary64))))) (pow.f64 p #s(literal 5 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64)))))) (pow.f64 p #s(literal 11 binary64))))))) (fma.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 6 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (fma.f64 r (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 6 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (fma.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 7 binary64)) #s(literal -1 binary64)))) (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))) (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 6 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (fma.f64 r (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 r (-.f64 (*.f64 r (-.f64 (pow.f64 (*.f64 (pow.f64 p #s(literal 6 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 p #s(literal 8 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 7 binary64)) #s(literal -1 binary64))))) (pow.f64 p #s(literal 5 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64)))))) (pow.f64 p #s(literal 11 binary64))))))) (fma.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))))) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 7 binary64)) #s(literal -1 binary64)))) (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))))))) (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 6 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (fma.f64 r (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (fma.f64 r (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 r (-.f64 (*.f64 r (-.f64 (pow.f64 (*.f64 (pow.f64 p #s(literal 6 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64)))))))) (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64)))))))))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (-.f64 (+.f64 (/.f64 r (pow.f64 q #s(literal 6 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64))))) (/.f64 p (pow.f64 q #s(literal 6 binary64)))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))
#s(approx (+ r (+ (fabs p) (fabs r))) (+.f64 (fabs.f64 p) (fabs.f64 r)))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (fma.f64 #s(literal 3 binary64) (/.f64 r (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64))))))) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (fma.f64 r (fma.f64 r (-.f64 (*.f64 r (-.f64 (pow.f64 (*.f64 (pow.f64 p #s(literal 6 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64)))))))) (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (pow.f64 q #s(literal 2 binary64))))))) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))
#s(approx (* (* q q) (pow (- p r) 3)) (fma.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 r (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (* (* q q) (pow (- p r) 3)) (fma.f64 r (fma.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 r (+.f64 p (*.f64 #s(literal 2 binary64) p))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))))) (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64)))))
#s(approx (* (* q q) (pow (- p r) 3)) (fma.f64 r (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p)))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))))) (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64)))))
#s(approx (pow (- p r) 3) (fma.f64 r (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (pow (- p r) 3) (fma.f64 r (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 r (+.f64 p (*.f64 #s(literal 2 binary64) p))))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (pow (- p r) 3) (fma.f64 r (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 r (+.f64 p (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal 2 binary64) p)))))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (- p r) (+.f64 p (*.f64 #s(literal -1 binary64) r)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (+.f64 (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (fma.f64 r (+.f64 (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 6 binary64)) #s(literal -1 binary64)))) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (fma.f64 r (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 6 binary64)) #s(literal -1 binary64)) (fma.f64 r (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 7 binary64)) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (fma.f64 r (fma.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 6 binary64)) #s(literal -1 binary64)) (fma.f64 r (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 7 binary64)) #s(literal -1 binary64)))) (fma.f64 r (fma.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 p #s(literal 8 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 7 binary64)) #s(literal -1 binary64))))) (pow.f64 p #s(literal 5 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64)))))) (pow.f64 p #s(literal 11 binary64))))))) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))
#s(approx (pow (- p r) -5) (fma.f64 #s(literal 5 binary64) (/.f64 r (pow.f64 p #s(literal 6 binary64))) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64))))
#s(approx (pow (- p r) -5) (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 p #s(literal 7 binary64)) #s(literal -1 binary64)) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 6 binary64) (pow.f64 (pow.f64 p #s(literal 7 binary64)) #s(literal -1 binary64)))))) (*.f64 #s(literal 5 binary64) (pow.f64 (pow.f64 p #s(literal 6 binary64)) #s(literal -1 binary64)))) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64))))
#s(approx (pow (- p r) -5) (fma.f64 r (fma.f64 r (-.f64 (*.f64 r (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 p #s(literal 8 binary64)) #s(literal -1 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 (pow.f64 p #s(literal 7 binary64)) #s(literal -1 binary64))))) (pow.f64 p #s(literal 5 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64)))))) (pow.f64 p #s(literal 11 binary64)))))))) (fma.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 p #s(literal 7 binary64)) #s(literal -1 binary64)) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 6 binary64) (pow.f64 (pow.f64 p #s(literal 7 binary64)) #s(literal -1 binary64)))))) (*.f64 #s(literal 5 binary64) (pow.f64 (pow.f64 p #s(literal 6 binary64)) #s(literal -1 binary64)))) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64))))
#s(approx (pow (* (pow q 4) (- p r)) -1) (+.f64 (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)) (/.f64 r (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))))))
#s(approx (pow (* (pow q 4) (- p r)) -1) (fma.f64 r (+.f64 (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)) (/.f64 r (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64))))) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))
#s(approx (pow (* (pow q 4) (- p r)) -1) (fma.f64 r (fma.f64 r (+.f64 (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)) (/.f64 r (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))))) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))))))))))))
#s(approx (* -1 (/ (* q q) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))))
#s(approx (* -1 (/ (* q q) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (* -1 (/ (* q q) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))))))))))
#s(approx (/ (* q q) (- p r)) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 2 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))
#s(approx (/ (* q q) (- p r)) (fma.f64 r (-.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))
#s(approx (/ (* q q) (- p r)) (fma.f64 r (-.f64 (*.f64 r (-.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64)))))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (fma.f64 #s(literal 1/2 binary64) r (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (fma.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) r)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 #s(literal 1/2 binary64) (/.f64 r p))) #s(literal 1/2 binary64)))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 #s(literal 1/2 binary64) (/.f64 r p))) #s(literal 1/2 binary64)))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64))))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) (fma.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 r p))))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) (/.f64 (fma.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 r p))) r))
#s(approx (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)))
#s(approx (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r))
#s(approx (/ (neg (* q q)) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))))
#s(approx (/ (neg (* q q)) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (/ (neg (* q q)) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 p #s(literal 6 binary64))))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) #s(literal 2 binary64))) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 p #s(literal 6 binary64)))))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 p #s(literal 6 binary64))))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) #s(literal 2 binary64))) (pow.f64 p #s(literal 9 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))))) (pow.f64 p #s(literal 9 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 6 binary64))) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) #s(literal 2 binary64))) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))))))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) (+.f64 (fabs.f64 p) (fabs.f64 r)))
#s(approx (+ r (fabs p)) (fabs.f64 p))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 r (+.f64 (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 p #s(literal 6 binary64)))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) #s(literal 2 binary64))) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 p #s(literal 6 binary64))))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 p #s(literal 6 binary64))))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) #s(literal 2 binary64))) (pow.f64 p #s(literal 9 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))))) (pow.f64 p #s(literal 9 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 6 binary64))) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) #s(literal 2 binary64))) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64)))))))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 r (+.f64 (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 p #s(literal 6 binary64))))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (-.f64 (fma.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) #s(literal 2 binary64))) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))))) (+.f64 (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 p #s(literal 6 binary64))))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (-.f64 (fma.f64 r (-.f64 (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) #s(literal 2 binary64))) (pow.f64 p #s(literal 9 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))))) (pow.f64 p #s(literal 9 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 6 binary64))) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) #s(literal 2 binary64))) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))))) (+.f64 (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 p #s(literal 6 binary64))))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (fma.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) p) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 p #s(literal 3 binary64)))) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) p))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (+.f64 (pow.f64 p #s(literal -1 binary64)) (/.f64 r (pow.f64 p #s(literal 2 binary64))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (fma.f64 r (+.f64 (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 r (pow.f64 p #s(literal 3 binary64)))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (/.f64 r p))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 r (+.f64 (pow.f64 p #s(literal -1 binary64)) (/.f64 r (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (/.f64 r p)))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (*.f64 r (+.f64 (pow.f64 p #s(literal -1 binary64)) (/.f64 r (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (fma.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal -1 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (fma.f64 #s(literal -1 binary64) r (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (fma.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r p)) #s(literal 1 binary64)) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (/.f64 (pow.f64 r #s(literal 2 binary64)) p)))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))
#s(approx (* -1 (* r r)) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64))))
#s(approx (* r r) (pow.f64 r #s(literal 2 binary64)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 r (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 r (fma.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 7 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (fma.f64 r (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 7 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 r (-.f64 (pow.f64 (pow.f64 p #s(literal 6 binary64)) #s(literal -1 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (pow.f64 p #s(literal 7 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (fma.f64 r (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64))) (pow.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (fma.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 7 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64))) (pow.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (fma.f64 r (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64)) (*.f64 r (-.f64 (*.f64 r (-.f64 (pow.f64 (pow.f64 p #s(literal 6 binary64)) #s(literal -1 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (pow.f64 p #s(literal 7 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)))))) (fma.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 7 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))))) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64))) (pow.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))
#s(approx (pow (- p r) -3) (fma.f64 #s(literal 3 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64))))
#s(approx (pow (- p r) -3) (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 7 binary64)))))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64)))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64))))
#s(approx (pow (- p r) -3) (fma.f64 r (fma.f64 r (-.f64 (*.f64 r (-.f64 (pow.f64 (pow.f64 p #s(literal 6 binary64)) #s(literal -1 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64))))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (pow.f64 p #s(literal 7 binary64))))))) (fma.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal 7 binary64)))))) (*.f64 #s(literal 3 binary64) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64)))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64))))
#s(approx (pow (* (* q q) (- p r)) -1) (+.f64 (pow.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (/.f64 r (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))
#s(approx (pow (* (* q q) (- p r)) -1) (fma.f64 r (+.f64 (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (/.f64 r (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))))) (pow.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))
#s(approx (pow (* (* q q) (- p r)) -1) (fma.f64 r (fma.f64 r (+.f64 (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64)) (/.f64 r (*.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))))) (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))) (pow.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))))
#s(approx (/ -1 (- p r)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (/ -1 (- p r)) (-.f64 (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 p #s(literal 3 binary64)))) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (/ -1 (- p r)) (-.f64 (*.f64 r (-.f64 (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64)))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))) (*.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 r (-.f64 (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) #s(literal 1 binary64))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (+.f64 r (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) #s(literal 1 binary64)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) #s(literal 1 binary64)))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (-.f64 (+.f64 (/.f64 r p) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1 binary64)))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1 binary64))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+.f64 r (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1 binary64)))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) p))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (+.f64 r (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 p r (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (fma.f64 p r (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))
#s(approx (* -1 r) (*.f64 #s(literal -1 binary64) r))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 r (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)))) r))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 r (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (*.f64 #s(literal -1 binary64) p)))) r))
#s(approx (* -2 (/ (* q q) r)) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)))
#s(approx (/ (* q q) r) (/.f64 (pow.f64 q #s(literal 2 binary64)) r))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 r p) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)))) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 r (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)))) (pow.f64 r #s(literal 2 binary64))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 r (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (*.f64 #s(literal -1 binary64) p)))) (pow.f64 r #s(literal 2 binary64))))
#s(approx (* -2 (* (/ q r) (/ q r))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))
#s(approx (* (/ q r) (/ q r)) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))
#s(approx (/ q r) (/.f64 q r))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (*.f64 r (fma.f64 #s(literal -1/2 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))) (*.f64 r (fma.f64 #s(literal -1/2 binary64) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 p (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 (/.f64 (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal -1 binary64))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal -1 binary64)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (/.f64 (pow.f64 p #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (/.f64 (pow.f64 p #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 r (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 p (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 (/.f64 (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal -1 binary64))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal -1 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (/.f64 (pow.f64 p #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) (+.f64 r (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) (*.f64 #s(literal -1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) (-.f64 (/.f64 r p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 r p))))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 r p)))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 r))) (+.f64 (fabs.f64 p) (fabs.f64 r)))
#s(approx (+ (fabs r) (* -1 r)) (fabs.f64 r))
#s(approx (+ (fabs r) (* -1 r)) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 p (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 p (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 p (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 p (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 p (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 p (+.f64 (fabs.f64 r) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 p (+.f64 (fabs.f64 r) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))) (*.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 p (+.f64 (fabs.f64 r) (*.f64 r (-.f64 (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))) (*.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (neg r) (*.f64 #s(literal -1 binary64) r))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p r) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (fma.f64 r (-.f64 (*.f64 #s(literal -1 binary64) r) (*.f64 #s(literal -2 binary64) p)) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal 3 binary64)) #s(literal -1 binary64)))))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (fma.f64 #s(literal -2 binary64) (*.f64 p r) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 r (+.f64 r (*.f64 #s(literal -2 binary64) p)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (pow (- p r) 2) (fma.f64 #s(literal -2 binary64) (*.f64 p r) (pow.f64 p #s(literal 2 binary64))))
#s(approx (pow (- p r) 2) (fma.f64 r (+.f64 r (*.f64 #s(literal -2 binary64) p)) (pow.f64 p #s(literal 2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) r)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 r (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 q r)) (fma.f64 #s(literal 1/4 binary64) (/.f64 p q) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) r))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (*.f64 r (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 q r)) (*.f64 #s(literal 1/4 binary64) (/.f64 p q)))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 r (fma.f64 #s(literal -1/8 binary64) (/.f64 p (*.f64 q r)) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64))))) r)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64))))) r) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64))))) r) (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal 1/2 binary64) (/.f64 r (pow.f64 q #s(literal 6 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64)))) r) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64)))) r) (+.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64)))) r) (+.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (/.f64 p (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64)))))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (*.f64 #s(literal 1/2 binary64) (/.f64 r (pow.f64 q #s(literal 6 binary64)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64)))) r) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (*.f64 r (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64)))) r) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 p (pow.f64 q #s(literal 2 binary64))) (/.f64 p (pow.f64 q #s(literal 2 binary64)))) (pow.f64 r #s(literal 5 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64)))) r) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64)))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (/.f64 r (pow.f64 q #s(literal 6 binary64))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (*.f64 r (-.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)) (+.f64 (/.f64 (fabs.f64 p) (*.f64 (pow.f64 q #s(literal 6 binary64)) r)) (/.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 6 binary64)) r)))) (/.f64 p (*.f64 (pow.f64 q #s(literal 6 binary64)) r)))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) r)
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) (*.f64 r (-.f64 (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))) (/.f64 p r))))
#s(approx (+ r (+ (fabs p) (fabs r))) r)
#s(approx (+ r (+ (fabs p) (fabs r))) (*.f64 r (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 p (pow.f64 q #s(literal 2 binary64))) (/.f64 p (pow.f64 q #s(literal 2 binary64)))) r)) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) (pow.f64 r #s(literal 3 binary64))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal 2 binary64) (/.f64 p (pow.f64 q #s(literal 2 binary64))) (/.f64 p (pow.f64 q #s(literal 2 binary64))))))) (pow.f64 r #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) (+.f64 (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r))))) (pow.f64 r #s(literal 3 binary64))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal 2 binary64) (/.f64 p (pow.f64 q #s(literal 2 binary64))) (/.f64 p (pow.f64 q #s(literal 2 binary64))))))) (fma.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 p (pow.f64 q #s(literal 2 binary64))) (/.f64 p (pow.f64 q #s(literal 2 binary64)))) (/.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))))) (pow.f64 r #s(literal 3 binary64)))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) (+.f64 (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)) (+.f64 (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) (/.f64 (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal 2 binary64) (/.f64 p (pow.f64 q #s(literal 2 binary64))) (/.f64 p (pow.f64 q #s(literal 2 binary64))))) (pow.f64 r #s(literal 2 binary64))))))))) (pow.f64 r #s(literal 3 binary64))))
#s(approx (* (* q q) (pow (- p r) 3)) (*.f64 (pow.f64 r #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r))))
#s(approx (* (* q q) (pow (- p r) 3)) (*.f64 (pow.f64 r #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (* (* q q) (pow (- p r) 3)) (*.f64 (pow.f64 r #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (+.f64 (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64))))) (pow.f64 r #s(literal 2 binary64))))))))
#s(approx (pow (- p r) 3) (*.f64 (pow.f64 r #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 p r) (/.f64 p r)) #s(literal 1 binary64))))
#s(approx (pow (- p r) 3) (*.f64 (pow.f64 r #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (/.f64 p r)))) #s(literal 1 binary64))))
#s(approx (pow (- p r) 3) (*.f64 (pow.f64 r #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (+.f64 (/.f64 p r) (/.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 r #s(literal 3 binary64))))))) #s(literal 1 binary64))))
#s(approx (- p r) (*.f64 r (-.f64 (/.f64 p r) #s(literal 1 binary64))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 4 binary64)) r)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 4 binary64)) r))) (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64))) r))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))))) (+.f64 (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64)) (/.f64 p (*.f64 (pow.f64 q #s(literal 4 binary64)) r)))) r))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64))))) (+.f64 (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64)) (+.f64 (/.f64 p (*.f64 (pow.f64 q #s(literal 4 binary64)) r)) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))))))) r))
#s(approx (pow (- p r) -5) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) r)) #s(literal 1 binary64)) (pow.f64 r #s(literal 5 binary64))))
#s(approx (pow (- p r) -5) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) #s(literal 2 binary64)))) (pow.f64 r #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (/.f64 p r) (/.f64 p r)))) (pow.f64 r #s(literal 5 binary64))))
#s(approx (pow (- p r) -5) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (fma.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64)))) (fma.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64)))))) (*.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) #s(literal 2 binary64)))))))) (pow.f64 r #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 r #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 p r) (+.f64 (/.f64 p r) (/.f64 (pow.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))) (pow.f64 r #s(literal 5 binary64))))
#s(approx (pow (* (pow q 4) (- p r)) -1) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 4 binary64)) r))) (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64))) r))
#s(approx (pow (* (pow q 4) (- p r)) -1) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))))) (+.f64 (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64)) (/.f64 p (*.f64 (pow.f64 q #s(literal 4 binary64)) r)))) r))
#s(approx (pow (* (pow q 4) (- p r)) -1) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64))))) (+.f64 (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64)) (+.f64 (/.f64 p (*.f64 (pow.f64 q #s(literal 4 binary64)) r)) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 2 binary64))))))) r))
#s(approx (* (pow q 4) (- p r)) (*.f64 r (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 4 binary64)) (/.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))
#s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (pow.f64 q #s(literal 2 binary64))) r))
#s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (+.f64 (/.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 2 binary64))) (pow.f64 q #s(literal 2 binary64)))) r))
#s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (+.f64 (/.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (pow.f64 q #s(literal 2 binary64))))) r))
#s(approx (/ (* q q) (- p r)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r))
#s(approx (/ (* q q) (- p r)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r)) r))
#s(approx (/ (* q q) (- p r)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (/.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 2 binary64))))) r))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 r (-.f64 (fma.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))) (*.f64 (pow.f64 r #s(literal -1 binary64)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) r)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 r (-.f64 (fma.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64))) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))) (*.f64 (pow.f64 r #s(literal -1 binary64)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r)
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (*.f64 r (-.f64 (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))) (/.f64 p r))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1/2 binary64))) r)) #s(literal 1/2 binary64))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p)))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 r (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) r) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) (*.f64 #s(literal 1/2 binary64) (/.f64 r p)))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) (*.f64 #s(literal -1/2 binary64) (/.f64 r p)))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) (/.f64 #s(literal -1/2 binary64) p))
#s(approx (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (pow.f64 q #s(literal 2 binary64))) r))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (+.f64 (/.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 2 binary64))) (pow.f64 q #s(literal 2 binary64)))) r))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (+.f64 (/.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (pow.f64 q #s(literal 2 binary64))))) r))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) r)
#s(approx (+ (+ r (fabs p)) (fabs r)) (*.f64 r (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r)))))
#s(approx (+ r (fabs p)) r)
#s(approx (+ r (fabs p)) (*.f64 r (+.f64 #s(literal 1 binary64) (/.f64 (fabs.f64 p) r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (pow.f64 q #s(literal 2 binary64)) r))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (pow.f64 q #s(literal 2 binary64))) r))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 r #s(literal 2 binary64))) (pow.f64 q #s(literal 2 binary64)))) r))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))))) (pow.f64 r #s(literal 3 binary64))) (pow.f64 q #s(literal 2 binary64))))) r))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (pow.f64 r #s(literal -1 binary64)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 p r)) r))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 p r) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) r))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 p r) (+.f64 (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (/.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 r #s(literal 3 binary64))))))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 r #s(literal 3 binary64)))) r))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) r) #s(literal -1 binary64)) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64))))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 (pow.f64 r #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))) (pow.f64 r #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) r) #s(literal -1 binary64)) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (*.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) r) #s(literal -1 binary64)) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (*.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 r #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 p (pow.f64 r #s(literal 2 binary64))) #s(literal -1 binary64)) (+.f64 (pow.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) r) #s(literal -1 binary64)) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (*.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 p r) #s(literal -1 binary64)) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (*.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 p r) #s(literal -1 binary64)) (+.f64 (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64)))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (*.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 p r) #s(literal -1 binary64)) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (*.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 p r) #s(literal -1 binary64)) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 p r) #s(literal -1 binary64)) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 (pow.f64 r #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 p r) #s(literal -1 binary64)) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 (pow.f64 p #s(literal -1 binary64)) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (*.f64 (pow.f64 r #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 p (pow.f64 r #s(literal 2 binary64)))) (+.f64 (pow.f64 p #s(literal -1 binary64)) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p)))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (*.f64 (pow.f64 r #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 p (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (/.f64 (pow.f64 r #s(literal 2 binary64)) p))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (*.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 p (pow.f64 r #s(literal 2 binary64)))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) (pow.f64 r #s(literal 2 binary64)))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) (*.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (pow.f64 r #s(literal -1 binary64)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 p r)) r))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 p r) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal 1 binary64))) (pow.f64 r #s(literal 2 binary64))))) r))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 p r) (+.f64 (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal 1 binary64))) (pow.f64 r #s(literal 2 binary64))) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) (+.f64 p (*.f64 #s(literal 2 binary64) p)))) (pow.f64 r #s(literal 3 binary64)))))) r))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) #s(literal -1 binary64)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r))) r))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 (-.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)) (+.f64 (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64))) r))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 (-.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)) (+.f64 (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) (+.f64 (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (/.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))))))) (fma.f64 #s(literal 2 binary64) (/.f64 p (pow.f64 r #s(literal 3 binary64))) (+.f64 (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 p (pow.f64 r #s(literal 3 binary64)))))) r))
#s(approx (pow (- p r) -3) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) r)) #s(literal 1 binary64)) (pow.f64 r #s(literal 3 binary64))))
#s(approx (pow (- p r) -3) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)))) (pow.f64 r #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (/.f64 p r)))) (pow.f64 r #s(literal 3 binary64))))
#s(approx (pow (- p r) -3) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)))) (fma.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)))) (pow.f64 p #s(literal 3 binary64)))) (pow.f64 r #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (+.f64 (/.f64 p r) (/.f64 (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))) (pow.f64 r #s(literal 3 binary64))))
#s(approx (pow (* (* q q) (- p r)) -1) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r))) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) r))
#s(approx (pow (* (* q q) (- p r)) -1) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (+.f64 (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r)))) r))
#s(approx (pow (* (* q q) (- p r)) -1) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))))) (+.f64 (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)) (+.f64 (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))) r))
#s(approx (* (* q q) (- p r)) (*.f64 r (fma.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r))))
#s(approx (/ -1 (- p r)) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 p r)) r))
#s(approx (/ -1 (- p r)) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 p r))) r))
#s(approx (/ -1 (- p r)) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 r #s(literal 3 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r)))) #s(literal 1/2 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) r))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 r (-.f64 (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) r)
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (*.f64 r (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) #s(literal 1 binary64))) r))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (*.f64 r (-.f64 (+.f64 (pow.f64 p #s(literal -1 binary64)) (+.f64 (/.f64 (fabs.f64 p) (*.f64 p r)) (/.f64 (fabs.f64 r) (*.f64 p r)))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (+ (* (/ r p) -1) 1) (*.f64 r (-.f64 (pow.f64 r #s(literal -1 binary64)) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) r)
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 r (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1 binary64))) r))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) r)
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 p r)) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 p r))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 r (+.f64 p (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) r) (/.f64 (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))) r)))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 p r))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 r (+.f64 p (/.f64 (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))) r))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) r)
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -1 binary64) r))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 r (-.f64 (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (/.f64 r p))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) r)) (+.f64 (pow.f64 p #s(literal -1 binary64)) (+.f64 (/.f64 (fabs.f64 p) (*.f64 p r)) (/.f64 (fabs.f64 r) (*.f64 p r))))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(literal -1 binary64))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) r)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) r) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (pow.f64 p #s(literal 2 binary64)))))) (pow.f64 r #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))) (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (pow.f64 p #s(literal 2 binary64))))))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) r) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (pow.f64 p #s(literal 2 binary64)))))) (pow.f64 r #s(literal 2 binary64)))))) #s(literal 1/2 binary64))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) r))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) r))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 p r) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) r) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))) (pow.f64 r #s(literal 2 binary64))) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))) (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (pow.f64 p #s(literal 2 binary64))))))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) r) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))) (pow.f64 r #s(literal 2 binary64))) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) r)
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))))) r)))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) (/.f64 r p))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)))) r) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) (/.f64 r p))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) r) (+.f64 (pow.f64 p #s(literal -1 binary64)) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (/.f64 r p))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) r) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) (*.f64 #s(literal -1 binary64) (/.f64 r p)))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) (*.f64 r (-.f64 (+.f64 (/.f64 (fabs.f64 p) (*.f64 p r)) (/.f64 (fabs.f64 r) (*.f64 p r))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 r))) (*.f64 #s(literal -1 binary64) r))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 r))) (*.f64 r (-.f64 (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r)) #s(literal 1 binary64))))
#s(approx (+ (fabs r) (* -1 r)) (*.f64 #s(literal -1 binary64) r))
#s(approx (+ (fabs r) (* -1 r)) (*.f64 r (-.f64 (/.f64 (fabs.f64 r) r) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 p (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 p (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 p (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r)))) #s(literal 1/2 binary64))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) r))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 r (-.f64 (+.f64 (/.f64 p r) (/.f64 (fabs.f64 r) r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 p r) (/.f64 (fabs.f64 r) r))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (/.f64 p r) (/.f64 (fabs.f64 r) r))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (pow.f64 r #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p r)) #s(literal 1 binary64))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (pow.f64 r #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 p r) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) r)
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) r)
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (pow.f64 r #s(literal 2 binary64)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 p r)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 p r) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64))))))))
#s(approx (pow (- p r) 2) (*.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 p r)))))
#s(approx (pow (- p r) 2) (*.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 p r) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 r #s(literal 2 binary64)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) r)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) r))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) q) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))) r) (*.f64 #s(literal -1/4 binary64) (/.f64 p q))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (/.f64 p q) (*.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 q r)))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 p (*.f64 q r))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) r)) #s(literal 1/2 binary64)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64))))) r)) #s(literal 1/2 binary64)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64))))) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64))))))) r)) #s(literal 1/2 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64)))) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64)))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64))) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 4 binary64)) r))) (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64)))))) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64)))) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) (+.f64 (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r)))) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64)))))) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64)))))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 6 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 6 binary64)))) (/.f64 p (pow.f64 q #s(literal 6 binary64)))) r)) (pow.f64 (pow.f64 q #s(literal 6 binary64)) #s(literal -1 binary64))))))
#s(approx (- (+ r (+ (fabs p) (fabs r))) p) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1 binary64)))))
#s(approx (+ r (+ (fabs p) (fabs r))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) (+.f64 (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r)))) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal 2 binary64) (/.f64 p (pow.f64 q #s(literal 2 binary64))) (/.f64 p (pow.f64 q #s(literal 2 binary64))))) r) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) r)))) (fma.f64 #s(literal 2 binary64) (/.f64 p (pow.f64 q #s(literal 2 binary64))) (/.f64 p (pow.f64 q #s(literal 2 binary64))))) r) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -1 binary64) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal 2 binary64) (/.f64 p (pow.f64 q #s(literal 2 binary64))) (/.f64 p (pow.f64 q #s(literal 2 binary64))))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) r) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (/.f64 p (pow.f64 q #s(literal 2 binary64))) (/.f64 p (pow.f64 q #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) r) (/.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) r)))) (fma.f64 #s(literal -1 binary64) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal 2 binary64) (/.f64 p (pow.f64 q #s(literal 2 binary64))) (/.f64 p (pow.f64 q #s(literal 2 binary64))))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) r)) (fma.f64 #s(literal 2 binary64) (/.f64 p (pow.f64 q #s(literal 2 binary64))) (/.f64 p (pow.f64 q #s(literal 2 binary64))))) r) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (* (* q q) (pow (- p r) 3)) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 r #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r) (pow.f64 q #s(literal 2 binary64))))))
#s(approx (* (* q q) (pow (- p r) 3)) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 r #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p)))) r) (pow.f64 q #s(literal 2 binary64))))))
#s(approx (* (* q q) (pow (- p r) 3)) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 r #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p)))) r) (pow.f64 q #s(literal 2 binary64))))))
#s(approx (pow (- p r) 3) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 r #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) r))))))
#s(approx (pow (- p r) 3) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 r #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) r) (*.f64 #s(literal 2 binary64) p))) r))))))
#s(approx (pow (- p r) 3) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 r #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 3 binary64)) r) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) r) (*.f64 #s(literal 2 binary64) p))) r))))))
#s(approx (- p r) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64)) (/.f64 p (*.f64 (pow.f64 q #s(literal 4 binary64)) r))) r)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 4 binary64)) r))) (/.f64 p (pow.f64 q #s(literal 4 binary64)))) r) (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64))) r)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (pow.f64 q #s(literal 4 binary64)) r)) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))))) r)) (/.f64 p (pow.f64 q #s(literal 4 binary64)))) r) (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64))) r)))
#s(approx (pow (- p r) -5) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 4 binary64) (/.f64 p r) (/.f64 p r))) (pow.f64 r #s(literal 5 binary64)))))
#s(approx (pow (- p r) -5) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) #s(literal 2 binary64)) r) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) r) (*.f64 #s(literal 8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) r)))) (+.f64 p (*.f64 #s(literal 4 binary64) p))) r))) (pow.f64 r #s(literal 5 binary64)))))
#s(approx (pow (- p r) -5) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 8 binary64) (pow.f64 p #s(literal 2 binary64)))))) r) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 8 binary64) (pow.f64 p #s(literal 2 binary64))))) r) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 p #s(literal 3 binary64)) r) (/.f64 (*.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 2 binary64))))) r)))) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 p (*.f64 #s(literal 4 binary64) p)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 8 binary64) (pow.f64 p #s(literal 2 binary64)))))) r)) (+.f64 p (*.f64 #s(literal 4 binary64) p))) r))) (pow.f64 r #s(literal 5 binary64)))))
#s(approx (pow (* (pow q 4) (- p r)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64)) (/.f64 p (*.f64 (pow.f64 q #s(literal 4 binary64)) r))) r)))
#s(approx (pow (* (pow q 4) (- p r)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 4 binary64)) r))) (/.f64 p (pow.f64 q #s(literal 4 binary64)))) r) (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64))) r)))
#s(approx (pow (* (pow q 4) (- p r)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (pow.f64 q #s(literal 4 binary64)) r)) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 4 binary64))))) r)) (/.f64 p (pow.f64 q #s(literal 4 binary64)))) r) (pow.f64 (pow.f64 q #s(literal 4 binary64)) #s(literal -1 binary64))) r)))
#s(approx (* (pow q 4) (- p r)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) r) (pow.f64 q #s(literal 4 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) r)) #s(literal 1/2 binary64)))))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r)))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 p (pow.f64 q #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) r)) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r)))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) r))) r) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (pow.f64 q #s(literal 2 binary64))) r)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) r)) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) r) (pow.f64 q #s(literal 2 binary64))) r)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) r) (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))) r)) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) r) (pow.f64 q #s(literal 2 binary64))) r)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) r))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) r))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) r))))))
#s(approx (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1 binary64)))))
#s(approx (* (neg p) (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2)) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1/2 binary64))) r)))))
#s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (* -1 (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (* r (- (* -1 (/ (- (* -1/2 (/ (+ (fabs p) (fabs r)) p)) 1/2) r)) (* 1/2 (pow p -1)))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r)))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 p (pow.f64 q #s(literal 2 binary64)) (/.f64 (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) r)) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r)))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) r))) r) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (+ r (fabs p)) (fabs r)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64)))))
#s(approx (+ r (fabs p)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fabs.f64 p) r)) #s(literal 1 binary64)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))) r) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p))))) r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))) r) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p r)) #s(literal 1 binary64)) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) r))) r)) #s(literal 1 binary64)) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 p (*.f64 #s(literal 2 binary64) p)))) r) (fma.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))) r))) r)) #s(literal 1 binary64)) r)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 (pow.f64 r #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 3 binary64)) r)) (+.f64 (pow.f64 (*.f64 p r) #s(literal -1 binary64)) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))) r)) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (*.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))) r)) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64))) r) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (*.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) r)) (pow.f64 p #s(literal -1 binary64))) r) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (*.f64 (pow.f64 r #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) r)) (pow.f64 p #s(literal -1 binary64))) r) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 (pow.f64 r #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) r)) (pow.f64 p #s(literal -1 binary64))) r)) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (*.f64 (pow.f64 r #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (*.f64 p r)))) r)) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p r)) #s(literal 1 binary64)) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) r))) r)) #s(literal 1 binary64)) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) (+.f64 p (*.f64 #s(literal 2 binary64) p)))) r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))) r))) r)) #s(literal 1 binary64)) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r))) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))) r) (/.f64 p (pow.f64 q #s(literal 2 binary64)))) r)) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 2 binary64))) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) r) (/.f64 p (pow.f64 q #s(literal 2 binary64)))) r)) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) r)))
#s(approx (pow (- p r) -3) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (/.f64 p r))) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (pow (- p r) -3) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) r) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) r) (/.f64 (pow.f64 p #s(literal 2 binary64)) r))) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r))) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (pow (- p r) -3) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) r) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) r) (/.f64 (pow.f64 p #s(literal 3 binary64)) r))) (fma.f64 #s(literal -1 binary64) (pow.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))) r)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r))) (pow.f64 r #s(literal 3 binary64)))))
#s(approx (pow (* (* q q) (- p r)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r))) r)))
#s(approx (pow (* (* q q) (- p r)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) r))) (/.f64 p (pow.f64 q #s(literal 2 binary64)))) r) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) r)))
#s(approx (pow (* (* q q) (- p r)) -1) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))) r)) (/.f64 p (pow.f64 q #s(literal 2 binary64)))) r) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) r)))
#s(approx (* (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (pow.f64 q #s(literal 2 binary64))))))
#s(approx (/ -1 (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p r)) #s(literal 1 binary64)) r)))
#s(approx (/ -1 (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 p #s(literal 2 binary64)) r) (*.f64 #s(literal -1 binary64) p)) r)) #s(literal 1 binary64)) r)))
#s(approx (/ -1 (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 3 binary64)) r)) (pow.f64 p #s(literal 2 binary64))) r)) (*.f64 #s(literal -1 binary64) p)) r)) #s(literal 1 binary64)) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) r)) #s(literal 1/2 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) r)
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)))) p) r)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r)) (*.f64 #s(literal 2 binary64) (pow.f64 q #s(literal 2 binary64)))) r)))) p) r)) #s(literal 1 binary64)))))
#s(approx (* (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) p) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) #s(literal 1 binary64))) r)) #s(literal 1 binary64)))))
#s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) #s(literal 1 binary64)) r)) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (+ (* (/ r p) -1) 1) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (pow.f64 p #s(literal -1 binary64)) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) r))) r))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (*.f64 #s(literal 2 binary64) (pow.f64 q #s(literal 2 binary64)))) r))) r))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1 binary64))) r)) #s(literal 1 binary64)))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 #s(literal -1 binary64) p)))) r)) #s(literal 1 binary64)))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) r))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) p (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))) r))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) r)) #s(literal 1 binary64)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))) (/.f64 p r)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) r) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) r))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))) #s(literal 1 binary64)) r)) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r))) p) r)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) r))) p) r)) #s(literal 1 binary64)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (pow.f64 p #s(literal 2 binary64)))))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))))) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (pow.f64 p #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r)))))) (*.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (pow.f64 p #s(literal 2 binary64))))))))) r))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))))) r)) #s(literal 1/2 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) r)
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) r)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) p (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (pow.f64 p #s(literal 2 binary64)))))) r))) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) r)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) p (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r)))))) r) (+.f64 (/.f64 (*.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (pow.f64 p #s(literal 2 binary64))))))) r) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (pow.f64 p #s(literal 2 binary64)))))) r))) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) r)) #s(literal 1 binary64)))))
#s(approx (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (/.f64 (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p))))) r) #s(literal 1 binary64)))))
#s(approx (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) r) (pow.f64 r #s(literal -1 binary64))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)))) r)) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (+.f64 (/.f64 (fabs.f64 p) (*.f64 p r)) (/.f64 (fabs.f64 r) (*.f64 p r))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) r) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (+ (fabs p) (+ (fabs r) (* -1 r))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))))))
#s(approx (+ (fabs r) (* -1 r)) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fabs.f64 r) r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fabs.f64 r) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (fabs.f64 r) (/.f64 (pow.f64 q #s(literal 2 binary64)) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64)))) r) (*.f64 #s(literal 1/2 binary64) (fabs.f64 r))) r)) #s(literal 1/2 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) r)
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fabs.f64 r) r)) #s(literal 1 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) r))) r)) #s(literal 1 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r)) (*.f64 #s(literal 2 binary64) (pow.f64 q #s(literal 2 binary64)))) r))) r)) #s(literal 1 binary64)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (pow.f64 r #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) r)) (*.f64 #s(literal 2 binary64) p)) r)) #s(literal 1 binary64))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) r))))) r))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (*.f64 #s(literal 2 binary64) (pow.f64 q #s(literal 2 binary64)))) r))))) r))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) r))) r))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) r) (*.f64 #s(literal 2 binary64) (pow.f64 q #s(literal 2 binary64)))) r))) r))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) r) (*.f64 #s(literal 2 binary64) p)) r)))))
#s(approx (pow (- p r) 2) (*.f64 (pow.f64 r #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) r) (*.f64 #s(literal 2 binary64) p)) r)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -20 binary64) (/.f64 r (pow.f64 p #s(literal 6 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (/.f64 (*.f64 p (fma.f64 #s(literal -1/8 binary64) p (*.f64 #s(literal 1/4 binary64) r))) q))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 q (+.f64 (fabs.f64 p) (fabs.f64 r))) (*.f64 p (fma.f64 #s(literal -1/8 binary64) p (*.f64 #s(literal 1/4 binary64) r)))) q))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (/.f64 (fma.f64 p (fma.f64 #s(literal -1/8 binary64) p (*.f64 #s(literal 1/4 binary64) r)) (*.f64 q (fma.f64 #s(literal -1 binary64) q (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))))) q))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) (+.f64 (fabs.f64 p) (fabs.f64 r)))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) q))))
#s(approx (* 2 q) (*.f64 #s(literal 2 binary64) q))
#s(approx q q)
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (/.f64 (*.f64 p (fma.f64 #s(literal -1/8 binary64) p (*.f64 #s(literal 1/4 binary64) r))) q))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (/.f64 (fma.f64 #s(literal -1/8 binary64) p (*.f64 #s(literal 1/4 binary64) r)) q))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (pow q 6) (pow.f64 q #s(literal 6 binary64)))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) (pow.f64 q #s(literal 6 binary64))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))) (pow.f64 q #s(literal 6 binary64))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))) (pow.f64 q #s(literal 6 binary64))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64)))) (pow.f64 q #s(literal 6 binary64))))
#s(approx (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))))
#s(approx (pow (* (* q q) (pow (- p r) 3)) -1) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)))
#s(approx (* (* q q) (pow (- p r) 3)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
#s(approx (* q q) (pow.f64 q #s(literal 2 binary64)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (pow.f64 q #s(literal 4 binary64))))
#s(approx (pow (* (pow q 4) (- p r)) -1) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))
#s(approx (* (pow q 4) (- p r)) (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)))
#s(approx (pow q 4) (pow.f64 q #s(literal 4 binary64)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r))))
#s(approx (/ (* q q) (- p r)) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))) p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))) p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -20 binary64) (/.f64 r (pow.f64 p #s(literal 6 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64))))))))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))) p))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (+.f64 r (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64))) (*.f64 #s(literal 6 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 4 binary64))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (+.f64 r (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -20 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) r) (pow.f64 p #s(literal 6 binary64))) (*.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 6 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -20 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 6 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (+.f64 p (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (+.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (+.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 6 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -20 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 6 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (/ 1/2 q) (/.f64 #s(literal 1/2 binary64) q))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)))) p))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64))))))) p))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 5 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64))))))) p))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (+.f64 p (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (+.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (+.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -20 binary64) (/.f64 r (pow.f64 p #s(literal 6 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))))))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))) p))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))) p))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 2 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -20 binary64) (/.f64 r (pow.f64 p #s(literal 6 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64))))))))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))) p))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 6 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -20 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 6 binary64) (pow.f64 (pow.f64 p #s(literal 5 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (log.f64 (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1/2 binary64))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (log.f64 (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1/2 binary64)))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (fma.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 2 binary64) (log.f64 p)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 4 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (fma.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 2 binary64) (log.f64 p)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -32/3 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 6 binary64))) (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal 2 binary64) (log.f64 p)))
#s(approx (log (+ (* (* q q) 4) (* p p))) (fma.f64 #s(literal 2 binary64) (log.f64 p) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (fma.f64 #s(literal 2 binary64) (log.f64 p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (fma.f64 #s(literal 2 binary64) (log.f64 p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 64/3 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 6 binary64)))) (*.f64 #s(literal 8 binary64) (pow.f64 (pow.f64 p #s(literal 4 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 5 binary64))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) #s(literal 1 binary64)))))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r))))
#s(approx (neg (* q q)) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p)) r) p))) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p)) r) p))) p) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p)) r) p))) p))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p)) r) (pow.f64 p #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p)) r) p))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p)) r) p) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p)) r) p)))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p)) r) p) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p)) r) p))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (/.f64 r p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p)) r))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) p) (/.f64 (pow.f64 q #s(literal 2 binary64)) p)) r))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 2 binary64)))))
#s(approx (* -1 (* q q)) (*.f64 #s(literal -1 binary64) (pow.f64 q #s(literal 2 binary64))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 #s(literal -1 binary64) (-.f64 p r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (pow.f64 q #s(literal 2 binary64))))
#s(approx (pow (* (* q q) (- p r)) -1) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) #s(literal -1 binary64)))
#s(approx (* (* q q) (- p r)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)))))) p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))))) p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))))) p))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (-.f64 p r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (-.f64 (+.f64 p (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)))) r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (-.f64 (+.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))) r))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (-.f64 (+.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))) r))
#s(approx (* -2 q) (*.f64 #s(literal -2 binary64) q))
#s(approx (* q 2) (*.f64 #s(literal 2 binary64) q))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) p) (*.f64 #s(literal -1 binary64) p)))) (*.f64 #s(literal -1 binary64) r)))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) r) (*.f64 r (-.f64 (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r)))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (fma.f64 #s(literal 2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal 4 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (fma.f64 #s(literal 2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal 4 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (fabs.f64 r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
#s(approx (* -4 (* q q)) (*.f64 #s(literal -4 binary64) (pow.f64 q #s(literal 2 binary64))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)))))) r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))))) r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))))) r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (-.f64 p r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (-.f64 (+.f64 p (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)))) r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (-.f64 (+.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))) r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (-.f64 (+.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))) r))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (fma.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 q #s(literal 2 binary64))))) #s(literal 1 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) r)) (*.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 q #s(literal 2 binary64)))))) #s(literal 1 binary64))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (/.f64 (*.f64 p (fma.f64 #s(literal -1/8 binary64) p (*.f64 #s(literal 1/4 binary64) r))) (pow.f64 q #s(literal 2 binary64)))) #s(literal 1 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) (*.f64 #s(literal -2 binary64) q))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) (*.f64 q (-.f64 (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q)) #s(literal 2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) #s(literal -1 binary64))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)) (+.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) #s(literal -1 binary64)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (+.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) #s(literal -1 binary64)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal 5 binary64))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) #s(literal -1 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64)))
#s(approx (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 4 binary64))) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64))) (pow.f64 q #s(literal 2 binary64))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (/.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal 5 binary64))))
#s(approx (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)) (+.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) #s(literal -1 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 2 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -2 binary64) q))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 q (-.f64 (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q)) #s(literal 2 binary64))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p r) (pow.f64 q #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q))) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p r) (pow.f64 q #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q)))) (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/.f64 (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 p r))) q))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 r (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 p r)))) q))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 r (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 r (fma.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 6 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64))))))))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 p r))))) q))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))) q))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) q))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 6 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64))))))) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))) q))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 p #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))))
#s(approx (+ (* 4 (* q q)) (* p p)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 #s(literal 4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))) q))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) q))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 6 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64))))))) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))) q))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -2 binary64) q))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 q (-.f64 (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q)) #s(literal 2 binary64))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q))) #s(literal 2 binary64))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q))) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 p #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))))
#s(approx (+ (* (* q q) 4) (* p p)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 #s(literal 4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 q #s(literal 2 binary64))))) #s(literal 1 binary64))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) r)) (*.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (pow.f64 p #s(literal 2 binary64)))) (pow.f64 q #s(literal 2 binary64)))))) #s(literal 1 binary64))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -2 binary64) q))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 q (-.f64 (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q)) #s(literal 2 binary64))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p r) (pow.f64 q #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q))) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p r) (pow.f64 q #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q)))) (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))) q))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) q))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 6 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64))))))) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))) q))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -2 binary64) (neg.f64 (log.f64 q))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (fma.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -2 binary64) (neg.f64 (log.f64 q)))) (*.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (fma.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -2 binary64) (neg.f64 (log.f64 q)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (fma.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -2 binary64) (neg.f64 (log.f64 q)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (fma.f64 #s(literal -1/384 binary64) (/.f64 (pow.f64 p #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -2 binary64) (neg.f64 (log.f64 q)))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (+.f64 (log.f64 #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (neg.f64 (log.f64 q)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (+.f64 (log.f64 #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (neg.f64 (log.f64 q)) (fma.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (+.f64 (log.f64 #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (neg.f64 (log.f64 q)) (fma.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/192 binary64) (/.f64 (pow.f64 p #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1 binary64) q))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))) #s(literal 1 binary64))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)))) #s(literal 1 binary64))))
#s(approx (* p (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) #s(literal 1 binary64))) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (- (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) 1) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (fabs.f64 p) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (/.f64 (fabs.f64 r) (*.f64 p (pow.f64 q #s(literal 2 binary64))))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))))))
#s(approx (+ (* -2 (* (/ q p) (/ q p))) (/ (+ (fabs p) (fabs r)) p)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (fabs.f64 p) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (/.f64 (fabs.f64 r) (*.f64 p (pow.f64 q #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) #s(literal -1 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 4 binary64))) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64))) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) #s(literal -1 binary64)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) #s(literal -1 binary64)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) #s(literal -1 binary64)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (/.f64 r p)) p) (pow.f64 p #s(literal -1 binary64))) (pow.f64 q #s(literal 2 binary64))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (/.f64 r p)) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (pow.f64 (*.f64 p (pow.f64 q #s(literal 2 binary64))) #s(literal -1 binary64))) (pow.f64 (pow.f64 p #s(literal 3 binary64)) #s(literal -1 binary64)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (/.f64 r p)) (pow.f64 q #s(literal 2 binary64))) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64))) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 p #s(literal 2 binary64)))) (/.f64 r p)) (pow.f64 q #s(literal 2 binary64)))) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64))) (/.f64 r (*.f64 p (pow.f64 q #s(literal 2 binary64)))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (pow.f64 p #s(literal -1 binary64))) (/.f64 r (pow.f64 q #s(literal 2 binary64))))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 r #s(literal 2 binary64)) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 r #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 (pow.f64 q #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) #s(literal -1 binary64)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (pow.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) #s(literal -1 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)))) #s(literal 1 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -2 binary64) q))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q (-.f64 (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q)) #s(literal 2 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q))) #s(literal 2 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q))) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal 2 binary64) q))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 p (-.f64 (+.f64 (/.f64 (fabs.f64 p) p) (/.f64 (fabs.f64 r) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 p (pow.f64 q #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) (pow.f64 q #s(literal 2 binary64))) (/.f64 (fabs.f64 r) (pow.f64 q #s(literal 2 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r))) (pow.f64 q #s(literal 2 binary64))) #s(literal 2 binary64))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 r (-.f64 (+.f64 (/.f64 (fabs.f64 p) r) (/.f64 (fabs.f64 r) r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (fabs.f64 p) (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (/.f64 (fabs.f64 r) (*.f64 p (pow.f64 q #s(literal 2 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (pow.f64 q #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 p #s(literal 2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (fabs.f64 p) (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) (/.f64 (fabs.f64 r) (*.f64 (pow.f64 q #s(literal 2 binary64)) r))) (fma.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 2 binary64)) r)) (fma.f64 #s(literal 2 binary64) (pow.f64 (pow.f64 r #s(literal 2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 q #s(literal 2 binary64)) #s(literal -1 binary64)))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (pow.f64 q #s(literal 2 binary64))))) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)))))))) (pow.f64 q #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (pow.f64 q #s(literal 2 binary64)))))) #s(literal 1 binary64))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -2 binary64) q))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 q (-.f64 (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q)) #s(literal 2 binary64))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (pow.f64 q #s(literal 2 binary64)))) (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)))))))) (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (pow.f64 q #s(literal 2 binary64))))) (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 p (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 p (fabs.f64 r)) q))) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 p (fabs.f64 r)) q)))) #s(literal 1 binary64))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -2 binary64) q))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q (-.f64 (+.f64 (/.f64 p q) (/.f64 (fabs.f64 r) q)) #s(literal 2 binary64))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (+.f64 (/.f64 p q) (/.f64 (fabs.f64 r) q))) #s(literal 2 binary64))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (+.f64 (/.f64 p q) (/.f64 (fabs.f64 r) q))) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (pow.f64 q #s(literal 2 binary64))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (+.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal 2 binary64) q))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 q (+.f64 #s(literal 2 binary64) (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (+.f64 (/.f64 (fabs.f64 p) q) (/.f64 (fabs.f64 r) q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal 2 binary64) q))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 (pow.f64 q #s(literal 2 binary64)) (+.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) q)
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (pow.f64 p #s(literal 2 binary64)))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (pow.f64 p #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) r)) (*.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 2 binary64))))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (fma.f64 #s(literal -1/4 binary64) r (*.f64 #s(literal 1/8 binary64) p))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q))))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (fma.f64 #s(literal -1/4 binary64) r (*.f64 #s(literal 1/8 binary64) p))) q)))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) r (*.f64 #s(literal 1/8 binary64) p)) q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal 2 binary64) q))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (pow.f64 p #s(literal 2 binary64)))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 p r))) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 p #s(literal 2 binary64))))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 p r) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 p r))) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 r (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 p r)))) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 r (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 r (fma.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 6 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64))))))))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 p r))))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 6 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64))))))) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))) q)))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (*.f64 #s(literal -2 binary64) q))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 4 (* q q)) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 p #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal -1/2 binary64) q))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))) q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) q)))
#s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 6 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64))))))) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))) q)))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal 2 binary64) q))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) q)))) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 p #s(literal 2 binary64)))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -2 binary64) q))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (* p p))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 p #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) q)
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (pow.f64 p #s(literal 2 binary64)))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (pow.f64 p #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) r)) (*.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 2 binary64))))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal 2 binary64) q))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (pow.f64 p #s(literal 2 binary64)))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (+ (* (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 p r))) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 p #s(literal 2 binary64))))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (/.f64 #s(literal -1/2 binary64) q))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))) q)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))) q)))
#s(approx (exp (* (log (+ (* (* q q) 4) (* p p))) -1/2)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 6 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 p #s(literal 2 binary64)) (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64))))))) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))) q)))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) q) #s(literal -2 binary64))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (fma.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) q) #s(literal -2 binary64)))) (*.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (fma.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) q) #s(literal -2 binary64)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64)))))))
#s(approx (* (log (+ (* (* q q) 4) (* p p))) -1/2) (fma.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) q) #s(literal -2 binary64)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))) (fma.f64 #s(literal -1/384 binary64) (/.f64 (pow.f64 p #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (+.f64 (log.f64 #s(literal 4 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) q) #s(literal -2 binary64)))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (+.f64 (log.f64 #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (log.f64 (/.f64 #s(literal -1 binary64) q)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (+.f64 (log.f64 #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (log.f64 (/.f64 #s(literal -1 binary64) q)) (fma.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))
#s(approx (log (+ (* (* q q) 4) (* p p))) (+.f64 (log.f64 #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (log.f64 (/.f64 #s(literal -1 binary64) q)) (fma.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/192 binary64) (/.f64 (pow.f64 p #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) q)
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 p #s(literal 2 binary64)) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 p #s(literal 2 binary64)) (*.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal 2 binary64) q))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q)))) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) q)
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)))))))) q))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal 2 binary64) q))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) q)) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 2 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) q) (fma.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)))))) q)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) q)) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 p (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q) (*.f64 #s(literal 1/2 binary64) (+.f64 p (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 p (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal 2 binary64) q))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (fabs.f64 r)) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (+.f64 (fabs.f64 r) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q)))) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -2 binary64) q))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q)))) q))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) q)))) q))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -2 binary64) q))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (pow.f64 q #s(literal 2 binary64))))))))))

eval521.0ms (6.4%)

Memory
7.1MiB live, 983.1MiB allocated; 143ms collecting garbage
Compiler

Compiled 240 602 to 15 259 computations (93.7% saved)

prune104.0ms (1.3%)

Memory
4.1MiB live, 246.0MiB allocated; 15ms collecting garbage
Pruning

37 alts after pruning (22 fresh and 15 done)

PrunedKeptTotal
New2 845222 867
Fresh000
Picked24529
Done01010
Total2 869372 906
Accuracy
94.2%
Counts
2 906 → 37
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶27.9%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p)))))
▶17.1%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) #s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p))))
▶2.0%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)))))))
▶5.5%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p))))
▶41.3%
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
✓39.1%
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
✓2.0%
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
✓2.1%
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
▶26.0%
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)))
▶11.0%
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)))
▶28.6%
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))))
▶2.0%
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))))
▶29.9%
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r)))
▶2.5%
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
▶1.3%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))))))) (*.f64 q q))))
▶2.6%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))))
▶3.0%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))))
▶1.9%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))))
▶2.6%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) #s(approx (- p r) p))))
✓2.2%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)))
✓24.3%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) #s(literal 1/2 binary64)))
✓22.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64)))
✓27.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
✓2.4%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))) #s(literal 1/2 binary64)))
▶3.8%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))))))
▶3.1%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))))))
✓2.5%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
✓5.2%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
✓5.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
✓2.9%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
✓40.3%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
✓17.0%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))
▶14.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) #s(approx (- p r) p)))))
▶0.5%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) #s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64))))))))
▶38.8%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))))))
▶3.8%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))))
✓3.0%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
Compiler

Compiled 1 897 to 1 246 computations (34.3% saved)

series242.0ms (3%)

Memory
31.1MiB live, 644.8MiB allocated; 63ms collecting garbage
Counts
165 → 1 303
Calls
Call 1
Inputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))
(*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q))
#s(literal 1/4 binary64)
(/.f64 (*.f64 p r) q)
(*.f64 p r)
p
r
q
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))))
#s(literal 1/2 binary64)
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))
(+.f64 (fabs.f64 p) (fabs.f64 r))
(fabs.f64 p)
(fabs.f64 r)
(*.f64 #s(literal 2 binary64) q)
#s(literal 2 binary64)
(*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))
(*.f64 #s(literal -1/8 binary64) (/.f64 p q))
#s(literal -1/8 binary64)
(/.f64 p q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) #s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) #s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64)))))))
(*.f64 (pow.f64 q #s(literal 6 binary64)) #s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64))))))
(pow.f64 q #s(literal 6 binary64))
#s(literal 6 binary64)
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64)))))
(*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64))))
#s(literal -1/2 binary64)
(/.f64 p (pow.f64 q #s(literal 6 binary64)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) #s(approx (- p r) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) #s(approx (- p r) p))))
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) #s(approx (- p r) p)))
#s(literal -1 binary64)
(/.f64 (*.f64 q q) #s(approx (- p r) p))
(*.f64 q q)
#s(approx (- p r) p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))))
(*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))
(/.f64 #s(literal -1/2 binary64) q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))))
(*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))
(/.f64 #s(literal 1/2 binary64) q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) #s(approx (- p r) p))))
(fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) #s(approx (- p r) p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r)
(/.f64 (neg.f64 (*.f64 q q)) #s(approx (- p r) p))
(neg.f64 (*.f64 q q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q)))
(-.f64 (+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r)) p)
(+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r))
#s(approx (+ r (fabs p)) r)
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r)))
(/.f64 #s(literal -1 binary64) (-.f64 p r))
(-.f64 p r)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q)))
(-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p)
(+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r))
#s(approx (+ r (fabs p)) (fabs.f64 p))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)))
(*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))
(/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p)))
#s(literal 1 binary64)
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))
(/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p)
(-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r)
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p))
(/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)
(-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r)))
(*.f64 #s(literal -1 binary64) (*.f64 q q))
(*.f64 #s(literal -1 binary64) (*.f64 r r))
(*.f64 r r)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q)))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p))
(/.f64 #s(literal -1 binary64) p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))))))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))))))) (*.f64 q q)))
(-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p)
(+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r))
(+.f64 r (fabs.f64 p))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))))))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64)))))))
(*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64)))))
(/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))))
(*.f64 p (pow.f64 q #s(literal 2 binary64)))
(pow.f64 q #s(literal 2 binary64))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
(*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))
(+.f64 r (fabs.f64 r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r))
(-.f64 (fabs.f64 r) r)
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))))
(fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
(/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))
#s(literal -2 binary64)
(/.f64 (*.f64 q q) r)
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p))
(*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p))))
(*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))
(*.f64 (/.f64 q p) (/.f64 q p))
(/.f64 q p)
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r))
(*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r))))
(*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))
(*.f64 (/.f64 q r) (/.f64 q r))
(/.f64 q r)
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
(/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q)))
(*.f64 #s(literal -4 binary64) (*.f64 q q))
#s(literal -4 binary64)
(+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))
(+.f64 (fabs.f64 r) (fabs.f64 p))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
#s(literal 4 binary64)
(pow.f64 (-.f64 p r) #s(literal 2 binary64))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p))))
(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p))
(/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p)
(fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p))))
(*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p))
(*.f64 #s(literal -1 binary64) p)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r))))))
(+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)))))
(+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r))))
(*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) #s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p))))
(/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) #s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p)))))
(/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p))))
(+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p))
Outputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* 1/4 (/ r q)) (* p (- (* -1/32 (/ (* p r) (pow q 3))) (* 1/8 (/ 1 q)))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))))
#s(approx (* 1/4 (/ (* p r) q)) #s(hole binary64 (* 1/4 (/ (* p r) q))))
#s(approx (/ (* p r) q) #s(hole binary64 (/ (* p r) q)))
#s(approx (* p r) #s(hole binary64 (* p r)))
#s(approx p #s(hole binary64 p))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (+ (fabs p) (fabs r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (fabs p) #s(hole binary64 (fabs p)))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* 1/4 (/ (* p r) q))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* 1/4 (/ r q))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))
#s(approx (* -1/8 (/ p q)) #s(hole binary64 (* -1/8 (/ p q))))
#s(approx (/ p q) #s(hole binary64 (/ p q)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2)))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (* 2 (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (/ 1 (pow r 4))))) (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3)))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* p (* (pow q 6) (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4)))))))) (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* p (+ (* p (* (pow q 6) (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (/ 1 (* (pow q 4) (pow r 3)))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))))) (* (pow q 6) (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))))) (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 6) (- (/ 1 (* (pow q 4) (pow r 4))) (+ (* -2 (+ (* -1 (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (pow r 5))) (+ (* 5 (/ (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (pow r 11))) (* 10 (/ 1 (pow r 8)))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (* (pow q 2) (pow r 7)))) (/ 1 (* (pow q 2) (pow r 6))))))))) (* (pow q 6) (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (/ 1 (* (pow q 4) (pow r 3)))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7))))))))) (* (pow q 6) (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))))) (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (+ (* p (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))) (/ 1 (* (pow q 4) r))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (+ (* p (- (+ (* 10 (/ 1 (pow r 6))) (+ (* p (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (/ 1 (* (pow q 4) (pow r 3)))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7))))))) (/ 1 (* (pow q 4) (pow r 2))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))) (/ 1 (* (pow q 4) r))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (+ (* p (- (+ (* 10 (/ 1 (pow r 6))) (+ (* p (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (+ (* p (- (/ 1 (* (pow q 4) (pow r 4))) (+ (* -2 (+ (* -1 (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (pow r 5))) (+ (* 5 (/ (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (pow r 11))) (* 10 (/ 1 (pow r 8)))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (* (pow q 2) (pow r 7)))) (/ 1 (* (pow q 2) (pow r 6)))))))) (/ 1 (* (pow q 4) (pow r 3))))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7))))))) (/ 1 (* (pow q 4) (pow r 2))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))) (/ 1 (* (pow q 4) r))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (* -1/2 (/ p (pow q 6))) #s(hole binary64 (* -1/2 (/ p (pow q 6)))))
#s(approx (/ p (pow q 6)) #s(hole binary64 (/ p (pow q 6))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (/ (pow q 2) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (/ (pow q 2) (pow r 2)) 1/2)) (/ (pow q 2) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))) 1/2)) (/ (pow q 2) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2))) 1/2)) (/ (pow q 2) r)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (/ (* p (pow q 2)) (pow r 2)) (/ (pow q 2) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* p (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* p (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* -1 (/ (* p (pow q 2)) (pow r 2))) (* -1 (/ (pow q 2) r)))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) r)) (* p (- (* -1 (/ (* p (pow q 2)) (pow r 3))) (/ (pow q 2) (pow r 2)))))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) r)) (* p (- (* p (- (* -1 (/ (* p (pow q 2)) (pow r 4))) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))))))
#s(approx (- p r) #s(hole binary64 (* -1 r)))
#s(approx (- p r) #s(hole binary64 (- p r)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* 1/2 (/ (* p r) q)))) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* -1/4 (/ p q)) (* 1/2 (/ r q)))))) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* 1/2 (/ r q)) (* p (- (* -1/16 (/ (* p r) (pow q 3))) (* 1/4 (/ 1 q)))))))) (* 2 q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* 1/2 (/ (* p r) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* p (+ (* -1/16 (/ (* (pow p 2) r) (pow q 3))) (* 1/2 (/ r q))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* p (+ (* 1/2 (/ r q)) (* (pow p 2) (+ (* -1/16 (/ r (pow q 3))) (* 3/256 (/ (* (pow p 2) r) (pow q 5)))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* p (+ (* 1/2 (/ r q)) (* (pow p 2) (+ (* -1/16 (/ r (pow q 3))) (* (pow p 2) (+ (* -5/2048 (/ (* (pow p 2) r) (pow q 7))) (* 3/256 (/ r (pow q 5)))))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ 1/2 q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* -1/16 (/ (pow p 2) (pow q 3))) (* 1/2 (/ 1 q)))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow p 2) (- (* 3/256 (/ (pow p 2) (pow q 5))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow p 2) (- (* (pow p 2) (+ (* -5/2048 (/ (pow p 2) (pow q 7))) (* 3/256 (/ 1 (pow q 5))))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (+ r (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (/ (* p (pow q 2)) (pow r 2)) (/ (pow q 2) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* p (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* p (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6))))))) (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (+ r (fabs p)) #s(hole binary64 (+ r (fabs p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6))))))) (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (+ (* p (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ 1 (pow r 2))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (+ (* p (- (+ (* p (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6)))))) (/ 1 (pow r 3))) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ 1 (pow r 2))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ 1 r)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (+ (/ 1 r) (/ p (pow r 2)))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (+ (* p (+ (/ 1 (pow r 2)) (/ p (pow r 3)))) (/ 1 r))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (+ (* p (+ (* p (+ (/ 1 (pow r 3)) (/ p (pow r 4)))) (/ 1 (pow r 2)))) (/ 1 r))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 3)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (+ (* -1 (* p r)) (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2))))) (pow p 3))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (+ (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2)))) (* p (+ (* -1 p) (* -1 r)))) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p r)) (* -1 (pow r 2))) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p (+ p r))) (* -1 (pow r 2))) (pow p 3))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p r)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p (+ p r))) (* -1 (pow r 2))) (pow p 2))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p r)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (+ (* -1 (* p r)) (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2))))) (pow p 2))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (/ (+ (* -1 (* p r)) (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2))))) p)))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)))
#s(approx (/ -1 p) #s(hole binary64 (/ -1 p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* p (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4)))))) (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* p (+ (* p (* (pow q 2) (- (+ (* 3 (/ 1 (pow r 5))) (/ 1 (* (pow q 2) (pow r 3)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7)))))) (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4))))))) (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 4))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6))))))) (* (pow q 2) (- (+ (* 3 (/ 1 (pow r 5))) (/ 1 (* (pow q 2) (pow r 3)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))))) (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4))))))) (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* p (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4))))) (/ 1 (* (pow q 2) r))) (/ 1 (pow r 3)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* p (- (+ (* p (- (+ (* 3 (/ 1 (pow r 5))) (/ 1 (* (pow q 2) (pow r 3)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (* (pow q 2) (pow r 2)))) (* 3 (/ 1 (pow r 4))))) (/ 1 (* (pow q 2) r))) (/ 1 (pow r 3)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* p (- (+ (* p (- (+ (* 3 (/ 1 (pow r 5))) (+ (* p (- (/ 1 (* (pow q 2) (pow r 4))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (/ 1 (* (pow q 2) (pow r 3))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (* (pow q 2) (pow r 2)))) (* 3 (/ 1 (pow r 4))))) (/ 1 (* (pow q 2) r))) (/ 1 (pow r 3)))))
#s(approx (/ -1 (* p (pow q 2))) #s(hole binary64 (/ -1 (* p (pow q 2)))))
#s(approx (* p (pow q 2)) #s(hole binary64 (* p (pow q 2))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* p (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (/ (pow q 2) r))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (+ (/ (* p (pow q 2)) (pow r 2)) (/ (pow q 2) r)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (+ (* p (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (+ (* p (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r)))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) r))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (+ (* -1 (/ (* p (pow q 2)) (pow r 2))) (* -1 (/ (pow q 2) r)))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) r)) (* p (- (* -1 (/ (* p (pow q 2)) (pow r 3))) (/ (pow q 2) (pow r 2)))))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) r)) (* p (- (* p (- (* -1 (/ (* p (pow q 2)) (pow r 4))) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* -1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* p (- (* -1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (+ p (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -2 (/ (pow q 2) p))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* -2 (/ (pow q 2) (pow p 2)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) (pow p 2))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (pow p 2))))
#s(approx (* -2 (* (/ q p) (/ q p))) #s(hole binary64 (* -2 (/ (pow q 2) (pow p 2)))))
#s(approx (* (/ q p) (/ q p)) #s(hole binary64 (/ (pow q 2) (pow p 2))))
#s(approx (/ q p) #s(hole binary64 (/ q p)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ p r) (+ (/ (fabs p) r) (/ (fabs r) r)))) 1)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* p (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* -1/2 (* p (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))) (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (* p (+ (* -1/2 (* p (+ (* 1/2 (* (/ (* r (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* (/ (* r (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* -1/2 (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (+ (* -1 (* p (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))) (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (+ (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (- (* -1 (* p (+ (* 1/2 (* (/ (* r (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* (/ (* r (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* 2 (* p r)) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* p (- (* -1 p) (* -2 r))) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))))
#s(approx (+ (fabs r) (fabs p)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow r 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* p (+ p (* -2 r))) (pow r 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow r 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow r 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* p (+ p (* -2 r))) (pow r 2))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -2 (/ (pow q 2) p))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p)))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* -2 (pow q 2))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p (- (+ (fabs p) (fabs r)) (* -1 r)))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* -1 r))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))
#s(approx (* -1 p) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* p (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* p (- (+ 1 (* -1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* p (- (+ 1 (* p (- (* -1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (* 2 (/ (pow q 2) r))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (+ (* 2 (/ (* p (pow q 2)) (pow r 2))) (* 2 (/ (pow q 2) r)))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (+ (* 2 (/ (pow q 2) r)) (* p (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2))))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (+ (* 2 (/ (pow q 2) r)) (* p (+ (* 2 (/ (pow q 2) (pow r 2))) (* p (+ (* 2 (/ (* p (pow q 2)) (pow r 4))) (* 2 (/ (pow q 2) (pow r 3))))))))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (* 2 (/ (pow q 2) r)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* 2 (/ (* p (pow q 2)) (pow r 2))) (* 2 (/ (pow q 2) r))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* 2 (/ (pow q 2) r)) (* p (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* 2 (/ (pow q 2) r)) (* p (+ (* 2 (/ (pow q 2) (pow r 2))) (* p (+ (* 2 (/ (* p (pow q 2)) (pow r 4))) (* 2 (/ (pow q 2) (pow r 3)))))))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* 2 (/ (pow q 2) r))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (+ (* 2 (/ (* p (pow q 2)) (pow r 2))) (* 2 (/ (pow q 2) r)))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (+ (* 2 (/ (pow q 2) r)) (* p (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (+ (* 2 (/ (pow q 2) r)) (* p (+ (* 2 (/ (pow q 2) (pow r 2))) (* p (+ (* 2 (/ (* p (pow q 2)) (pow r 4))) (* 2 (/ (pow q 2) (pow r 3))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* p (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* -1/2 (* p (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))) (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (* p (+ (* -1/2 (* p (+ (* 1/2 (* (/ (* r (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* (/ (* r (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* -1/2 (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1/8 (/ (pow p 2) q))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* (pow p 2) (- (* 1/4 (/ r (* p q))) (* 1/8 (/ 1 q))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* (pow p 2) (- (+ (* 1/4 (/ r (* p q))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* 2 q)) (pow p 2)))) (* 1/8 (/ 1 q))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* -1/8 (/ (pow p 2) q))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* (pow p 2) (- (* 1/4 (/ r (* p q))) (* 1/8 (/ 1 q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1/8 (/ p q))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* p (- (* 1/4 (/ r (* p q))) (* 1/8 (/ 1 q))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* p (- (* 1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p)) 1/2))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p))) 1/2))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p)))) 1/2))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1/2 (/ p (pow q 6)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* p (- (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* p (- (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (+ (* 1/2 (/ 1 (pow q 6))) (/ 1 (* (pow p 2) (pow q 4))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* p (- (+ (* -1 (/ r (* (pow p 3) (pow q 4)))) (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p))) (+ (* 1/2 (/ 1 (pow q 6))) (/ 1 (* (pow p 2) (pow q 4))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (* -1 (pow q 2)))) p)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow r 3)) (pow p 3))) (* -1 (pow q 2))))) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (pow q 2) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (/ (* (pow q 2) (pow r 2)) (pow p 2)) (pow q 2)) (* -1 (/ (* (pow q 2) r) p))) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (/ (* (pow q 2) (pow r 3)) (pow p 3)) (pow q 2)) (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))))) p)))
#s(approx (- p r) #s(hole binary64 p))
#s(approx (- p r) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 r))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (* -2 (/ (* (pow q 2) r) (pow p 2))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (* -1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4)))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4))) (* -1/2 (/ (* r (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6)))) (pow p 6))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ 1 p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (* -1 (pow q 2)))) p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow r 3)) (pow p 3))) (* -1 (pow q 2))))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2)))) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (+ (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2)) (/ (* (pow q 2) (- (* -1 (pow r 3)) (* (pow q 2) (+ (* -2 r) (* -1 r))))) (pow p 3))))) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ -1 p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 2) (pow p 2))) (/ (pow q 2) (pow p 2)))) 1) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 2) (pow p 2))) (+ (* -1 (/ (pow r 3) (pow p 3))) (/ (pow q 2) (pow p 2))))) (+ 1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow p 3)))) p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ -1 p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (+ 1 (/ r p))) p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (* -1 (/ (pow r 3) (pow p 3))) (+ 1 (+ (/ r p) (/ (pow r 2) (pow p 2))))) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ -1 p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2)))) 1) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ 1 p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (+ 1 (/ r p)) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p))) (* -1 (/ (pow r 2) (pow p 2)))) p)))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (/ r p))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (- (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p))) (* -1 (/ (pow r 2) (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ r p)))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (- (+ r (* -1 (/ (pow q 2) p))) (* -1 (/ (pow r 2) p))) p)))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ r p))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 r)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (- (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ -1 p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (/ (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) (pow p 2))) 1) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (/ (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) (pow p 2)) (/ (* (pow q 2) (- (* -1 (/ (pow r 3) (pow q 2))) (+ (* -2 r) (* -1 r)))) (pow p 3)))) 1) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ -1 (* p (pow q 2)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (* -1 (/ r (* p (pow q 2)))) (/ 1 (pow q 2))) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r (* p (pow q 2)))) (+ (* -1 (/ (pow r 2) (* (pow p 2) (pow q 2)))) (/ 1 (pow p 2)))) (/ 1 (pow q 2))) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r (* p (pow q 2)))) (+ (* -1 (/ (pow r 2) (* (pow p 2) (pow q 2)))) (+ (* -1 (/ (pow r 3) (* (pow p 3) (pow q 2)))) (/ 1 (pow p 2))))) (+ (* -2 (/ r (pow p 3))) (+ (* -1 (/ r (pow p 3))) (/ 1 (pow q 2))))) p)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (fabs r) (* -1 r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (fabs r) (* -1 r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (fabs r) (* -1 r)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1 (/ (pow q 2) p)) (+ (* 1/4 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) (pow p 3))) (* 1/2 (- (fabs r) (* -1 r))))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* 1/2 (+ r (fabs r)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (fabs r))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (fabs r)))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 3))) (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (fabs r))))))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (pow q 2) p)))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (- (+ (/ (* (pow q 2) (pow r 2)) (pow p 2)) (pow q 2)) (* -1 (/ (* (pow q 2) r) p))) p)))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (- (+ (/ (* (pow q 2) (pow r 3)) (pow p 3)) (pow q 2)) (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))))) p)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p))) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))) 1/2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 p))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* p (+ 1 (/ (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)) p)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 -1))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ p r)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (* p (pow r 2)))) (+ (/ 1 r) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))))) (/ 1 p)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2)))) 1/2))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* -1/2 (/ (+ (* -2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))))) (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2)))))))) (pow p 3))) (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2))))) 1/2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 p)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (+ (* 2 (/ r p)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2))) (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow p 2)) (/ (pow r 2) (pow p 2)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (+ (* -1 (/ (+ (* -2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))))) (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2)))))))) (pow p 3))) (+ (* 2 (/ r p)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2)))) (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow p 2)) (/ (pow r 2) (pow p 2)))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -1 (pow p 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (* 2 (/ r p)) 1))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2)) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2)))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 p))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (/ (fabs p) p) (/ (fabs r) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (+ (* 2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 p))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow p 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow p 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (/ (pow r 2) (pow p 2)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* -1 (pow p 2))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow p 2) (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow p 2) (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* -1 (pow p 2))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* (pow p 2) (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (fabs r) (* -1 r))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -2 (/ (pow q 2) p))) (* -1 r))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -2 (/ (* (pow q 2) r) (pow p 2)))) (+ (* -1 r) (* 2 (/ (pow q 2) p))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* 1/2 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) (pow p 3)))) (+ (* -1 r) (+ (* 2 (/ (* (pow q 2) r) (pow p 2))) (* 2 (/ (pow q 2) p)))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (fabs r))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (* -2 (/ (pow q 2) p))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (* -2 (/ (pow q 2) p)))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (+ (* -2 (/ (* (pow q 2) (pow r 2)) (pow p 3))) (* -2 (/ (pow q 2) p))))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (fabs r)))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (* -2 (/ (pow q 2) p)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (* -2 (/ (pow q 2) p))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (+ (* -2 (/ (* (pow q 2) (pow r 2)) (pow p 3))) (* -2 (/ (pow q 2) p)))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -2 (/ (pow q 2) p))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow q 2) r) p)) (* -2 (pow q 2))) p)))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow q 2) r) p)) (+ (* -2 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (* -2 (pow q 2)))) p)))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow q 2) r) p)) (+ (* -2 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (+ (* -2 (/ (* (pow q 2) (pow r 3)) (pow p 3))) (* -2 (pow q 2))))) p)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2)))) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* -1/2 (/ (+ (* -2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))))) (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2)))))))) (pow p 3))) (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2))))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (+ (fabs p) (fabs r)) r))) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r)))) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* (pow p 2) (- (* -1 (/ (+ (* -1/2 (/ (- (+ (fabs p) (fabs r)) (* 2 q)) p)) (* -1/4 (/ r q))) p)) (* 1/8 (/ 1 q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1 (* p (+ (* -1/4 (/ r (* p q))) (* 1/8 (/ 1 q)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))))) p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))))) p)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* p (+ (* -1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* p (+ (* -1 (/ (- (* 1/2 (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) (/ 1 (* p (pow q 4)))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* p (+ (* -1 (/ (+ (* -1 (/ (+ (/ 1 (pow q 4)) (/ r (* p (pow q 4)))) p)) (* 1/2 (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow q 2) (pow r 2)) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow q 2) (pow r 3)) p) (* -1 (* (pow q 2) (pow r 2)))) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* (pow q 2) r) (/ (* (pow q 2) (pow r 2)) p)) p)) (* -1 (pow q 2))) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow r 2))) (* -1 (/ (* (pow q 2) (pow r 3)) p))) p)) (* (pow q 2) r)) p)) (* -1 (pow q 2))) p))))
#s(approx (- p r) #s(hole binary64 (* -1 (* p (- (/ r p) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* 2 (/ (pow q 2) p))))) p)) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))) p)) 1)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 r)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ (* -1 r) (* 2 (/ (* (pow q 2) r) (pow p 2))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ (* -1 r) (+ (* 1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4))) (* 2 (/ (* (pow q 2) r) (pow p 2)))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ (* -1 r) (+ (* 1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4))) (+ (* 1/2 (/ (* r (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6)))) (pow p 6))) (* 2 (/ (* (pow q 2) r) (pow p 2))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ -1 p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow q 2) (pow r 2)) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow q 2) (pow r 3)) p) (* -1 (* (pow q 2) (pow r 2)))) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2)))) p))) p)) (pow q 2)) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (* (pow q 2) (+ r (* 2 r))) (pow r 3))) p)) (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2))))) p))) p)) (pow q 2)) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (- (* (pow q 2) (+ r (* 2 r))) (pow r 3)) p)) (* -1 (pow q 2))) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (/ (pow r 3) p) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p))) p))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* -1 (/ (- (* -1 (/ r p)) 1) p))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (+ r (* -1 (/ (pow q 2) p))) (* -1 (/ (pow r 2) p))) p)) 1) p))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* -1 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ (- (+ r (* -1 (/ (pow q 2) p))) (* -1 (/ (pow r 2) p))) p))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (+ (* -1 r) (/ (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) p)) p))) p))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (+ (* -1 r) (* -1 (/ (+ (* -1 (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2)))))) (* -1 (/ (* (pow q 2) (- (+ r (* 2 r)) (/ (pow r 3) (pow q 2)))) p))) p))) p))) p))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (/ 1 (pow q 2)) (/ r (* p (pow q 2)))) p))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (pow r 2) (* p (pow q 2)))) (/ 1 p)) (/ r (pow q 2))) p)) (/ 1 (pow q 2))) p))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (+ r (* 2 r)) (/ (pow r 3) (pow q 2))) p)) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) p)) (/ r (pow q 2))) p)) (/ 1 (pow q 2))) p))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (fabs r) r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (fabs r) r)) (/ (pow q 2) p))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (fabs r) r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) p)) (* (pow q 2) r)) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (fabs r) r)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (fabs r))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow q 2) (pow r 2)) p)) (* (pow q 2) r)) p)) (pow q 2)) p)) (* 1/2 (+ r (fabs r))))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* (pow q 2) r) (/ (* (pow q 2) (pow r 2)) p)) p)) (* -1 (pow q 2))) p))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow r 2))) (* -1 (/ (* (pow q 2) (pow r 3)) p))) p)) (* (pow q 2) r)) p)) (* -1 (pow q 2))) p))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (+ (fabs p) (fabs r)) r))) p)) 1/2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (fabs r)) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) p)))) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p)))) r) p)) 1)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* p (- (* -1 (/ (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)) p)) 1)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* p (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))) (/ r p))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ (* -2 (/ (pow q 2) p)) (* -1 (- (* -1 (+ (fabs p) (fabs r))) r))) p)))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) r) p)) 1)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) p))) r) p)) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1) p)) (/ 1 r))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1/2)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))) (* 1/2 (/ (+ (* 2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) (* (+ r (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))))) p))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 p))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 r) (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p))) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 r) (* -1 (/ (- (+ (* 2 (/ (* (pow q 2) r) p)) (+ (* 2 (/ (* (pow q 2) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) p)) (+ (/ (* (+ r (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))) p) (pow (+ (fabs p) (fabs r)) 2)))) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p))) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (* -1 (/ (- (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) p)) (* 2 r)) p)) 1))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 p)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p))))) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))) p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ r p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -2 (/ (pow q 2) p))) p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) p)))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow r 2)) p)) (* 2 r)) p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow r 2) p)) (* 2 r)) p))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p)))) (* -1 r)) p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow p 2) (- (* -1 (/ (+ (* -1 (- (+ (fabs p) (fabs r)) (* -1 r))) (* 2 (/ (pow q 2) p))) p)) 1))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (fabs r) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* 2 (/ (pow q 2) p))) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -1 (/ (- (* -1 (/ (- (* -1/2 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) p)) (* -2 (* (pow q 2) r))) p)) (* 2 (pow q 2))) p))) r)))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (* -1 (/ (+ (* -1 (/ (+ (* -2 (* (pow q 2) r)) (* -2 (/ (* (pow q 2) (pow r 2)) p))) p)) (* 2 (pow q 2))) p))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (* -1 (/ (+ (* -1 (/ (+ (* -2 (* (pow q 2) r)) (* -2 (/ (* (pow q 2) (pow r 2)) p))) p)) (* 2 (pow q 2))) p)))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -2 (* (pow q 2) r)) (* -2 (/ (* (pow q 2) (pow r 2)) p))) p)) (* 2 (pow q 2))) p))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -2 (* (pow q 2) r)) (* -1 (/ (+ (* 2 (* (pow q 2) (pow r 2))) (* 2 (/ (* (pow q 2) (pow r 3)) p))) p))) p)) (* 2 (pow q 2))) p))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))) (* 1/2 (/ (+ (* 2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) (* (+ r (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))))) p))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))))
#s(approx r #s(hole binary64 r))
#s(approx (fabs r) #s(hole binary64 (fabs r)))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (* 1/4 (/ (* p r) q)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2)))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* (pow q 2) (* r (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2))))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* r (+ (* (pow q 2) (* r (- (* (pow q 2) (- (+ (* 2 (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ 1 (pow p 6))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7)))))) (/ 1 (pow p 4))))) (* (pow q 2) (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3)))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2))))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* (pow q 6) (* r (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4))))))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 6) (* r (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4))))))))) (* (pow q 6) (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* r (+ (* r (+ (* -1 (* (pow q 6) (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4)))))))) (* (pow q 6) (* r (- (/ 1 (* (pow p 6) (pow q 2))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (* 3 (/ 1 (* (pow p 5) (pow q 2)))))) (pow p 3))) (+ (* 2 (- (* 4 (/ 1 (pow p 8))) (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (pow p 5))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow p 10))) (* 5 (/ (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))) (pow p 11))))))) (+ (* 3 (/ (+ p (* 2 p)) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 4) (pow q 4))))))))))) (* (pow q 6) (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* (pow p 3) (pow q 2))))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (- (+ (* -1 (* r (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4)))))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2)))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* (pow p 3) (pow q 2))))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (- (+ (* 1/2 (/ 1 (pow q 6))) (+ (* 3 (/ 1 (* (pow p 4) (pow q 2)))) (* r (- (* r (- (/ 1 (* (pow p 6) (pow q 2))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (* 3 (/ 1 (* (pow p 5) (pow q 2)))))) (pow p 3))) (+ (* 2 (- (* 4 (/ 1 (pow p 8))) (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (pow p 5))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow p 10))) (* 5 (/ (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))) (pow p 11))))))) (+ (* 3 (/ (+ p (* 2 p)) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 4) (pow q 4)))))))) (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4)))))))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* (pow p 3) (pow q 2))))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (+ (fabs p) (fabs r)) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (* -1 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (* -1 (/ (pow q 2) p)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (/ (* (pow q 2) r) (pow p 2)) (/ (pow q 2) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* r (- (/ (* (pow q 2) r) (pow p 3)) (* -1 (/ (pow q 2) (pow p 2))))) (/ (pow q 2) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* r (- (* r (- (/ (* (pow q 2) r) (pow p 4)) (* -1 (/ (pow q 2) (pow p 3))))) (* -1 (/ (pow q 2) (pow p 2))))) (/ (pow q 2) p))))
#s(approx (- p r) #s(hole binary64 (+ p (* -1 r))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (- (+ (fabs p) (fabs r)) p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (* -1 (/ (pow q 2) p)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))) (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4)))))))) (* -1 (* (pow q 2) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (+ r (fabs p)) #s(hole binary64 (fabs p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* -1 (* (pow q 2) (* r (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))) (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4)))))))) (* -1 (* (pow q 2) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (/ (pow q 2) (pow p 3)) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* -1 (* r (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (* -1 (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (* r (- (* -1 (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4))))))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (- (* -1 (/ r (pow p 2))) (/ 1 p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (- (* r (- (* -1 (/ r (pow p 3))) (/ 1 (pow p 2)))) (/ 1 p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (- (* r (- (* r (- (* -1 (/ r (pow p 4))) (/ 1 (pow p 3)))) (/ 1 (pow p 2)))) (/ 1 p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (+ (* -1 (/ r (pow p 2))) (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (+ (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p)) (* r (- (* -1 (/ r (pow p 3))) (/ 1 (pow p 2)))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 3))) (+ (/ 1 p) (/ r (pow p 2))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 3))) (+ (* r (+ (/ 1 (pow p 2)) (/ r (pow p 3)))) (/ 1 p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (* -1 (/ (pow q 2) (pow p 2))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (/ 1 p) (/ r (pow p 2))))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* -1 (/ (pow q 2) (pow p 2)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (/ 1 p) (/ r (pow p 2)))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (pow q 2) (pow p 2))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (+ (* -1 (/ r p)) (/ (pow q 2) (pow p 2)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (+ (* r (- (* -1 (/ r (pow p 2))) (/ 1 p))) (/ (pow q 2) (pow p 2)))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (/ (pow q 2) p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (+ (* -1 r) (/ (pow q 2) p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (+ (* r (- (* -1 (/ r p)) 1)) (/ (pow q 2) p))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (/ (pow q 2) p)))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (+ (* -1 (/ (pow r 2) p)) (/ (pow q 2) p))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (/ (pow r 2) p))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (* -1 (pow q 2))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (+ (* -1 (pow q 2)) (pow r 2))))
#s(approx (* -1 (* r r)) #s(hole binary64 (* -1 (pow r 2))))
#s(approx (* r r) #s(hole binary64 (pow r 2)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* (pow q 2) (* r (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2)))))) (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (* r (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2)))))))) (* (pow q 2) (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2))))))) (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* r (+ (* r (+ (* -1 (* (pow q 2) (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2))))))) (* (pow q 2) (* r (- (/ 1 (pow p 6)) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (+ (* 3 (/ (+ p (* 2 p)) (pow p 7))) (/ 1 (* (pow p 4) (pow q 2)))))))))) (* (pow q 2) (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2))))))) (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* r (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2))))) (/ 1 (pow p 3))) (/ 1 (* p (pow q 2))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* r (- (+ (* -1 (* r (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2))))))) (* 3 (/ 1 (pow p 4)))) (/ 1 (* (pow p 2) (pow q 2))))) (/ 1 (pow p 3))) (/ 1 (* p (pow q 2))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* r (- (+ (* 3 (/ 1 (pow p 4))) (* r (- (* r (- (/ 1 (pow p 6)) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (+ (* 3 (/ (+ p (* 2 p)) (pow p 7))) (/ 1 (* (pow p 4) (pow q 2))))))) (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2)))))))) (/ 1 (* (pow p 2) (pow q 2))))) (/ 1 (pow p 3))) (/ 1 (* p (pow q 2))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (* 1/2 (+ r (fabs r))) #s(hole binary64 (* 1/2 (fabs r))))
#s(approx (* 1/2 (+ r (fabs r))) #s(hole binary64 (+ (* 1/2 r) (* 1/2 (fabs r)))))
#s(approx (+ r (fabs r)) #s(hole binary64 (fabs r)))
#s(approx (+ r (fabs r)) #s(hole binary64 (+ r (fabs r))))
#s(approx (* 1/2 (- (fabs r) r)) #s(hole binary64 (* 1/2 (fabs r))))
#s(approx (* 1/2 (- (fabs r) r)) #s(hole binary64 (+ (* -1/2 r) (* 1/2 (fabs r)))))
#s(approx (- (fabs r) r) #s(hole binary64 (fabs r)))
#s(approx (- (fabs r) r) #s(hole binary64 (+ (fabs r) (* -1 r))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (fabs r)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (fabs r)) (* r (+ 1/2 (* -1 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (fabs r)) (* r (+ 1/2 (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (fabs r)) (* r (+ 1/2 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (+ (/ (* (pow q 2) r) (pow p 2)) (/ (pow q 2) p))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (+ (* r (- (/ (* (pow q 2) r) (pow p 3)) (* -1 (/ (pow q 2) (pow p 2))))) (/ (pow q 2) p))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (+ (* r (- (* r (- (/ (* (pow q 2) r) (pow p 4)) (* -1 (/ (pow q 2) (pow p 3))))) (* -1 (/ (pow q 2) (pow p 2))))) (/ (pow q 2) p))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* -1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* r (- (* -1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -2 (/ (pow q 2) r))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (fabs r)) (* -1 p)))) r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (+ (fabs r) (* -1 r))) (* -1 p)))) r)))
#s(approx (* -2 (/ (* q q) r)) #s(hole binary64 (* -2 (/ (pow q 2) r))))
#s(approx (/ (* q q) r) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (+ r (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* -2 (/ (pow q 2) (pow r 2)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (fabs r)) (* -1 p)))) (pow r 2))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (+ (fabs r) (* -1 r))) (* -1 p)))) (pow r 2))))
#s(approx (* -2 (* (/ q r) (/ q r))) #s(hole binary64 (* -2 (/ (pow q 2) (pow r 2)))))
#s(approx (* (/ q r) (/ q r)) #s(hole binary64 (/ (pow q 2) (pow r 2))))
#s(approx (/ q r) #s(hole binary64 (/ q r)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* r (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* -1/2 (* r (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))) (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (* r (+ (* -1/2 (* r (+ (* 1/2 (* (/ (* p (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* (/ (* p (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* -1/2 (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (+ (* -1 (* r (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))) (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (+ (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (- (* -1 (* r (+ (* 1/2 (* (/ (* p (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* (/ (* p (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* 2 (* p r)) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* r (- (* -1 r) (* -2 p))) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* r (+ r (* -2 p))) (pow p 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow p 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* r (+ r (* -2 p))) (pow p 2))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))) p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (+ r (+ (* -2 (/ (pow q 2) p)) (+ (fabs p) (+ (fabs r) (* -1 p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (+ (* p r) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (+ (* p r) (* p (+ (fabs p) (+ (fabs r) (* -1 p)))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (+ (fabs p) (+ (fabs r) (* -1 p)))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (+ r (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (+ (fabs r) (* r (- (* -1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (+ (fabs r) (* r (- (* r (- (* -1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ (fabs r) (* -2 (/ (pow q 2) p)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* r (+ 1 (* -2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* r (+ 1 (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (* -2 (/ (pow q 2) (pow p 2))))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* r (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* r (+ (* -2 (/ (* (pow q 2) r) (pow p 4))) (* -2 (/ (pow q 2) (pow p 3))))))))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* r (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (* -2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* r (+ (* -2 (/ (pow q 2) (pow p 2))) (* r (+ (* -2 (/ (* (pow q 2) r) (pow p 4))) (* -2 (/ (pow q 2) (pow p 3)))))))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (* -2 (/ (pow q 2) p)))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (+ (* -2 (/ (pow q 2) p)) (* r (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (* -2 (/ (pow q 2) (pow p 2))))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (+ (* -2 (/ (pow q 2) p)) (* r (+ (* -2 (/ (pow q 2) (pow p 2))) (* r (+ (* -2 (/ (* (pow q 2) r) (pow p 4))) (* -2 (/ (pow q 2) (pow p 3))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* r (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* -1/2 (* r (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))) (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (* r (+ (* -1/2 (* r (+ (* 1/2 (* (/ (* p (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* (/ (* p (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* -1/2 (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* 1/4 (/ (* p r) q))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* r (+ (* -1/8 (/ (pow p 2) (* q r))) (+ (* 1/4 (/ p q)) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* 2 q)) r)))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* r (+ (* -1/8 (/ (pow p 2) (* q r))) (* 1/4 (/ p q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* r (+ (* -1/8 (/ p (* q r))) (* 1/4 (/ 1 q))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* 1/2 (/ r (pow q 6)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* r (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* r (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (+ (/ 1 (* (pow q 4) (pow r 2))) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* r (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (+ (/ 1 (* (pow q 4) (pow r 2))) (+ (* 1/2 (/ 1 (pow q 6))) (/ p (* (pow q 4) (pow r 3)))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (pow q 2))) r)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (+ (/ (* (pow p 3) (pow q 2)) (pow r 3)) (pow q 2)))) r)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow p 2) (pow q 2)) (pow r 2))) (* -1 (pow q 2))) (/ (* p (pow q 2)) r)) r)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow p 3) (pow q 2)) (pow r 3))) (* -1 (pow q 2))) (+ (/ (* p (pow q 2)) r) (/ (* (pow p 2) (pow q 2)) (pow r 2)))) r)))
#s(approx (- p r) #s(hole binary64 (* r (- (/ p r) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* r (- (+ (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))) (+ (/ (fabs p) r) (/ (fabs r) r))) (* (/ 1 r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 r))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* r (- (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))) (/ p r)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (pow q 2))) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (+ (/ (* (pow p 3) (pow q 2)) (pow r 3)) (pow q 2)))) r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 r))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (* r (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))))))
#s(approx (+ r (fabs p)) #s(hole binary64 r))
#s(approx (+ r (fabs p)) #s(hole binary64 (* r (+ 1 (/ (fabs p) r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (pow q 2))) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (+ (/ (* (pow q 2) (- (pow p 3) (* (pow q 2) (+ p (* 2 p))))) (pow r 3)) (pow q 2)))) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ 1 r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (/ (pow p 2) (pow r 2))))) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ 1 (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (+ (/ (pow p 2) (pow r 2)) (/ (pow p 3) (pow r 3)))))) (/ (* (pow q 2) (+ p (* 2 p))) (pow r 3))) r)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (+ 1 (/ (pow p 2) (pow r 2))) (* -1 (/ p r))) r)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (+ 1 (/ (pow p 3) (pow r 3))) (+ (* -1 (/ p r)) (* -1 (/ (pow p 2) (pow r 2))))) r)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (pow r 2) (pow p 3)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (* (pow r 2) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3)))))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ (* -1 (/ (pow q 2) (pow p 3))) (/ 1 p)) (pow r 2))) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3)))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (pow r 2) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow r 2) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* (pow p 3) (pow r 2)))) (+ (/ 1 (* p (pow r 2))) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3))))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (pow r 2) (pow p 2))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow r 2) (+ (/ 1 (* p r)) (/ 1 (pow p 2))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* (pow p 2) (pow r 2)))) (+ (/ 1 (* p r)) (+ (/ 1 (pow p 2)) (/ 1 (pow r 2))))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (pow r 2) (pow p 2))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow r 2) (+ (/ 1 (* p r)) (/ 1 (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* (pow p 2) (pow r 2)))) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ (pow r 2) (pow p 2)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (* (pow r 2) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* (pow r 2) (- (/ (pow q 2) (* (pow p 2) (pow r 2))) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 (/ (pow r 2) p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 (* (pow r 2) (+ (/ 1 p) (/ 1 r))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* (pow r 2) (- (/ (pow q 2) (* p (pow r 2))) (+ (/ 1 p) (/ 1 r))))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* -1 (/ (pow r 2) p))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* (pow r 2) (- (/ (pow q 2) (* p (pow r 2))) (/ 1 p)))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (/ (pow r 2) p)))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* p (pow r 2)))) (/ 1 p)))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (pow r 2)))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (pow q 2) (pow r 2)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ 1 r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (+ 1 (+ (/ p r) (/ (* (pow q 2) (- (/ (pow p 2) (pow q 2)) 1)) (pow r 2)))) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (+ 1 (+ (/ p r) (+ (/ (* (pow q 2) (- (/ (pow p 2) (pow q 2)) 1)) (pow r 2)) (/ (* (pow q 2) (- (/ (pow p 3) (pow q 2)) (+ p (* 2 p)))) (pow r 3))))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ 1 (* (pow q 2) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (+ (/ 1 (pow q 2)) (/ p (* (pow q 2) r))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (/ 1 (pow q 2)) (+ (/ p (* (pow q 2) r)) (/ (pow p 2) (* (pow q 2) (pow r 2))))) (/ 1 (pow r 2))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (/ 1 (pow q 2)) (+ (/ p (* (pow q 2) r)) (+ (/ (pow p 2) (* (pow q 2) (pow r 2))) (/ (pow p 3) (* (pow q 2) (pow r 3)))))) (+ (* 2 (/ p (pow r 3))) (+ (/ 1 (pow r 2)) (/ p (pow r 3))))) r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ p (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ p (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ p (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (* 1/2 (+ r (fabs r))) #s(hole binary64 (* 1/2 r)))
#s(approx (* 1/2 (+ r (fabs r))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (fabs r) r))))))
#s(approx (+ r (fabs r)) #s(hole binary64 r))
#s(approx (+ r (fabs r)) #s(hole binary64 (* r (+ 1 (/ (fabs r) r)))))
#s(approx (* 1/2 (- (fabs r) r)) #s(hole binary64 (* -1/2 r)))
#s(approx (* 1/2 (- (fabs r) r)) #s(hole binary64 (* r (- (* 1/2 (/ (fabs r) r)) 1/2))))
#s(approx (- (fabs r) r) #s(hole binary64 (* -1 r)))
#s(approx (- (fabs r) r) #s(hole binary64 (* r (- (/ (fabs r) r) 1))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (fabs r) r))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (fabs r) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (fabs r) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow p 2) (pow q 2)) (pow r 2))) (* -1 (pow q 2))) (/ (* p (pow q 2)) r)) r)))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow p 3) (pow q 2)) (pow r 3))) (* -1 (pow q 2))) (+ (/ (* p (pow q 2)) r) (/ (* (pow p 2) (pow q 2)) (pow r 2)))) r)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (* p (pow q 2)) (pow r 3))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 r))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* r (+ 1 (/ (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)) r)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ r p)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (* (pow p 2) r))) (+ (/ 1 p) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))))) (/ 1 r)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 -1))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) 1/2))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2)))) 1/2))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* -1/2 (/ (+ (* -2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))))) (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2)))))))) (pow r 3))) (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2))))) 1/2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 r)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (* 2 (/ p r)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (+ (* 2 (/ p r)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2))) (+ 1 (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow r 2)) (/ (pow p 2) (pow r 2)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (+ (* -1 (/ (+ (* -2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))))) (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2)))))))) (pow r 3))) (+ (* 2 (/ p r)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2)))) (+ 1 (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow r 2)) (/ (pow p 2) (pow r 2)))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -1 (pow r 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (* 2 (/ p r)) 1))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2)) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2)))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (/ (fabs p) r) (/ (fabs r) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (+ (* 2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (* -1 (/ p r))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow r 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (/ (pow p 2) (pow r 2)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 r))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* r (+ 1 (+ (* -2 (/ (pow q 2) (* p r))) (+ (* -1 (/ p r)) (+ (/ (fabs p) r) (/ (fabs r) r))))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* p r)))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* r (+ p (+ (* -2 (/ (pow q 2) r)) (/ (* p (+ (fabs p) (+ (fabs r) (* -1 p)))) r))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p r)))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* r (+ p (/ (* p (+ (fabs p) (+ (fabs r) (* -1 p)))) r)))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 r))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (/ (fabs p) r) (/ (fabs r) r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (/ p r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ p r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (* p (pow q 2)) (pow r 3))) (+ (/ p r) (/ (fabs r) r))) (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 r))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* r (+ 1 (/ (fabs r) r)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* r (+ 1 (+ (* 2 (/ (pow q 2) (pow r 2))) (/ (fabs r) r))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* r (+ 1 (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (+ (* 2 (/ (pow q 2) (pow r 2))) (/ (fabs r) r)))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* 2 (/ (* p (pow q 2)) (pow r 2))) (+ (* 2 (/ (* (pow p 2) (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) r)))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r)))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (+ (* 2 (/ (* (pow p 2) (pow q 2)) (pow r 2))) (* 2 (pow q 2)))) r)))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (+ (* 2 (/ (* (pow p 2) (pow q 2)) (pow r 2))) (+ (* 2 (/ (* (pow p 3) (pow q 2)) (pow r 3))) (* 2 (pow q 2))))) r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2)))) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* -1/2 (/ (+ (* -2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))))) (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2)))))))) (pow r 3))) (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2))))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* r (+ (* -1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 (* r (+ (* -1 (/ (+ (* -1/8 (/ (pow p 2) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))) r)) (* -1/4 (/ p q)))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* -1 (* r (+ (* -1/4 (/ p q)) (* 1/8 (/ (pow p 2) (* q r))))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1 (* r (- (* 1/8 (/ p (* q r))) (* 1/4 (/ 1 q)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r)) 1/2)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))))) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))))) r)) 1/2)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) (/ 1 (* (pow q 4) r))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (- (* -1 (/ p (* (pow q 4) r))) (/ 1 (pow q 4))) r)) (* 1/2 (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* p (pow q 2)) (/ (* (pow p 2) (pow q 2)) r)) r)) (* -1 (pow q 2))) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow p 2) (pow q 2))) (* -1 (/ (* (pow p 3) (pow q 2)) r))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow p 2) (pow q 2)) r)) (* p (pow q 2))) r)) (pow q 2)) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow p 3) (pow q 2)) r) (* -1 (* (pow p 2) (pow q 2)))) r)) (* p (pow q 2))) r)) (pow q 2)) r))))
#s(approx (- p r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* p (pow q 2)) (/ (* (pow p 2) (pow q 2)) r)) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow p 2) (pow q 2))) (* -1 (/ (* (pow p 3) (pow q 2)) r))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (fabs r)) r)) 1)))))
#s(approx (+ r (fabs p)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (fabs p) r)) 1)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (pow p 3) (* (pow q 2) (+ p (* 2 p))))) r)) (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2)))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (pow p 2)) (pow q 2)) r))) r)) 1) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (/ (- (pow p 3) (* (pow q 2) (+ p (* 2 p)))) r)) (+ (* -1 (pow p 2)) (pow q 2))) r))) r)) 1) r))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (/ (pow p 2) r) (* -1 p)) r)) 1) r))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (* -1 (/ (pow p 3) r)) (pow p 2)) r)) (* -1 p)) r)) 1) r))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ (* -1 (/ (pow q 2) (* (pow p 3) r))) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))) r)) (/ 1 (pow p 3))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (- (* -1 (/ (+ (* -1 (/ (pow q 2) (pow p 3))) (/ 1 p)) r)) (/ 1 (pow p 2))) r)) (/ 1 (pow p 3))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (- (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) r)) (/ 1 p)) r)) (/ 1 (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (- (/ (pow q 2) (* (pow p 2) r)) (/ 1 p)) r)) (/ 1 (pow p 2))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ (* -1 (/ (pow q 2) (* (pow p 2) r))) (/ 1 p)) r)) (/ 1 (pow p 2))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (* p r)))) r)) (/ 1 p)))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (* (pow q 2) (+ 1 (* -1 (/ (pow p 2) (pow q 2))))) r))) r)) 1) r))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (/ (pow p 3) (pow q 2)) (+ p (* 2 p)))) r)) (* (pow q 2) (+ 1 (* -1 (/ (pow p 2) (pow q 2)))))) r))) r)) 1) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p (* (pow q 2) r))) (/ 1 (pow q 2))) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ (* -1 (/ (+ 1 (* -1 (/ (pow p 2) (pow q 2)))) r)) (/ p (pow q 2))) r)) (/ 1 (pow q 2))) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ (* -1 (/ (+ 1 (+ (* -1 (/ (- (/ (pow p 3) (pow q 2)) (+ p (* 2 p))) r)) (* -1 (/ (pow p 2) (pow q 2))))) r)) (/ p (pow q 2))) r)) (/ 1 (pow q 2))) r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (fabs r) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (fabs r)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (fabs r))) r)) 1/2)))))
#s(approx (* 1/2 (+ r (fabs r))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (fabs r) r)) 1/2)))))
#s(approx (+ r (fabs r)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (fabs r) r)) 1)))))
#s(approx (* 1/2 (- (fabs r) r)) #s(hole binary64 (* -1 (* r (+ 1/2 (* -1/2 (/ (fabs r) r)))))))
#s(approx (- (fabs r) r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (fabs r) r)))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (fabs r) r)) 1/2)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (fabs r)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (fabs r))) r)) 1/2)))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (* -1 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow p 2) (pow q 2)) r)) (* p (pow q 2))) r)) (pow q 2)) r))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow p 3) (pow q 2)) r) (* -1 (* (pow p 2) (pow q 2)))) r)) (* p (pow q 2))) r)) (pow q 2)) r))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 r))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) r)))) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r)))) p) r)) 1)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* r (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) r))) (/ p r))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ (* -2 (/ (pow q 2) r)) (* -1 (- (* -1 (+ (fabs p) (fabs r))) p))) r)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)) r)) 1)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1) r)) (/ 1 p))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) p) r)) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) r))) p) r)) 1)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1/2)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))) (* 1/2 (/ (+ (* 2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) (* (+ p (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))))) r))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 r))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 p) (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r))) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 p) (* -1 (/ (- (+ (* 2 (/ (* p (pow q 2)) r)) (+ (* 2 (/ (* (pow q 2) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) r)) (+ (/ (* (+ p (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))) r) (pow (+ (fabs p) (fabs r)) 2)))) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r))) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (- (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) r)) (* 2 p)) r)) 1))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (fabs r))) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) r))))) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))))) r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -2 (/ (pow q 2) r))) r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow p 2)) r)) (* 2 p)) r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow p 2) r)) (* 2 p)) r))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* -1 p)))) r)) 1)))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* -1 (* r (+ (* -1 p) (* -1 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))) r)))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* -1 (* r (+ (* -1 p) (* -1 (/ (* p (+ (fabs p) (+ (fabs r) (* -1 p)))) r)))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) 1)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 r))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (fabs r) r)) 1)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs r) (* 2 (/ (pow q 2) r))) r)) 1)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs r) (* -1 (/ (- (* -2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)) 1)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (fabs r) r)) 1)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs r) (* 2 (/ (pow q 2) r))) r)) 1)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs r) (* -1 (/ (+ (* -2 (/ (* p (pow q 2)) r)) (* -2 (pow q 2))) r))) r)) 1)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (* -1 (/ (+ (* -2 (/ (* p (pow q 2)) r)) (* -2 (pow q 2))) r)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (* -1 (/ (+ (* -2 (pow q 2)) (* -1 (/ (+ (* 2 (* p (pow q 2))) (* 2 (/ (* (pow p 2) (pow q 2)) r))) r))) r)))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -2 (/ (* p (pow q 2)) r)) (* -2 (pow q 2))) r))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -2 (pow q 2)) (* -1 (/ (+ (* 2 (* p (pow q 2))) (* 2 (/ (* (pow p 2) (pow q 2)) r))) r))) r))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -2 (pow q 2)) (* -1 (/ (+ (* -1 (/ (+ (* -2 (* (pow p 2) (pow q 2))) (* -2 (/ (* (pow p 3) (pow q 2)) r))) r)) (* 2 (* p (pow q 2)))) r))) r))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))) (* 1/2 (/ (+ (* 2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) (* (+ p (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))))) r))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5)))))) (* 1/2 (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3))))))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (/ (* p (+ (* -1/8 p) (* 1/4 r))) q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (/ (+ (* 1/2 (* q (+ (fabs p) (fabs r)))) (* p (+ (* -1/8 p) (* 1/4 r)))) q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (/ (+ (* p (+ (* -1/8 p) (* 1/4 r))) (* q (+ (* -1 q) (* 1/2 (+ (fabs p) (fabs r)))))) q)))
#s(approx q #s(hole binary64 q))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (+ (fabs p) (+ (fabs r) (* -2 q)))))
#s(approx (* 2 q) #s(hole binary64 (* 2 q)))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (/ (* p (+ (* -1/8 p) (* 1/4 r))) q)))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (/ (+ (* -1/8 p) (* 1/4 r)) q)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (pow q 6) #s(hole binary64 (pow q 6)))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))) (pow q 6))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))))) (pow q 6))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r))))) (pow q 6))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (pow q 2) (- p r))))
#s(approx (* q q) #s(hole binary64 (pow q 2)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 2 (/ 1 (pow p 3))) (+ (* 6 (/ r (pow p 4))) (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5))))))))) (* 2 (/ 1 p))))))) p)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (* (pow q 2) (+ (* -2 (/ r (pow p 2))) (* 6 (/ (* (pow q 2) r) (pow p 4))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (* (pow q 2) (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* -20 (/ (* (pow q 2) r) (pow p 6))) (* 6 (/ r (pow p 4))))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow q 2) (- (* 6 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow q 2) (- (* (pow q 2) (+ (* -20 (/ (pow q 2) (pow p 7))) (* 6 (/ 1 (pow p 5))))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (/ -1/2 q) #s(hole binary64 (/ -1/2 q)))
#s(approx (/ 1/2 q) #s(hole binary64 (/ 1/2 q)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (neg (* q q)) #s(hole binary64 (* -1 (pow q 2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ -1 (- p r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (+ (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p)) (/ (pow q 2) (pow p 3)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (+ (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) (pow p 2))) (+ (* -1 (/ (pow q 2) (pow p 3))) (/ 1 p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (+ (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p)) (* -1 (/ (pow q 2) (pow p 2)))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (+ (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p)) (* -1 (/ (pow q 2) (pow p 2))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (- (* -1 (/ (pow r 2) p)) r) p)))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (- (+ (* -1 (/ (pow r 2) (pow p 2))) (/ (pow q 2) (pow p 2))) (/ r p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (- (* -1 (/ (pow r 2) p)) r)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (- (+ (* -1 (/ (pow r 2) p)) (/ (pow q 2) p)) r)))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (- (* -1 (pow q 2)) (* -1 (pow r 2)))))
#s(approx (* -1 (* q q)) #s(hole binary64 (* -1 (pow q 2))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ -1 (- p r))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ -1 (* (pow q 2) (- p r)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))) (pow q 2))))
#s(approx (pow q 2) #s(hole binary64 (pow q 2)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (+ r (fabs r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r))))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (pow q 2) (- p r))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (+ (* -2 (/ (pow q 2) r)) (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (+ (* -2 (/ (pow q 2) p)) (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* -1/2 (* (pow q 2) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (+ (* 2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (pow (- p r) 3) (- (+ p (+ (fabs p) (fabs r))) r)))) (* 4 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 5) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))) (* -1/2 (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* -1 (* (pow q 2) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* (pow q 2) (- (* -1 (* (pow q 2) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* (pow q 2) (- (* (pow q 2) (- (* -1 (* (pow q 2) (+ (* -2 (/ (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (+ (* 2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (pow (- p r) 3) (- (+ p (+ (fabs p) (fabs r))) r)))) (* 4 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 5) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* -4 (pow q 2)) (pow (+ (fabs p) (fabs r)) 2)) (pow (- p r) 2))))
#s(approx (* -4 (* q q)) #s(hole binary64 (* -4 (pow q 2))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (fabs r))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) (- p r)))))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- p r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* 2 (/ (pow q 2) (- p r)))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow (- p r) 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow (- p r) 2))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* -1 p)))) (* -1 r))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (fabs r))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -2 (/ (pow q 2) (- p r)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* -1/2 (* (pow q 2) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (+ (* 2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (pow (- p r) 3) (- (+ p (+ (fabs p) (fabs r))) r)))) (* 4 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 5) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))) (* -1/2 (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2)))) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (+ (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 4))) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2))))) 1))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (/ (* p (+ (* -1/8 p) (* 1/4 r))) (pow q 2))) 1))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -2 (/ (pow q 6) (pow (- p r) 5)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (/ 1 (* (pow q 2) (pow (- p r) 3)))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -2 (/ (pow q 6) (pow (- p r) 5)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (/ 1 (* (pow q 4) (- p r))) (* 2 (/ 1 (pow (- p r) 5))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (/ 1 (* (pow q 2) (pow (- p r) 3)))) (+ (/ 1 (* (pow q 4) (- p r))) (* 2 (/ 1 (pow (- p r) 5))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ -2 (pow (- p r) 5))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (/ 1 (* (pow q 2) (pow (- p r) 3)))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* (pow q 2) (- (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 2))) (/ 1 (- p r))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -2 q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 4))) (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q)))) (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (/ (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r)))) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1 (/ (* p (* r (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))))) (pow q 6))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (/ (pow q 4) (pow (- p r) 3))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 4) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 4) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 4))) (/ 1 (pow (- p r) 3))) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (pow q 4) (pow (- p r) 3))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 4) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (pow q 2) (pow (- p r) 3))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* (pow q 2) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (pow q 2) (pow p 3))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* (pow q 2) (+ (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) p)) (/ 1 p)) (pow q 2))) (/ 1 (pow p 3))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* -1 (/ (pow q 2) (pow p 3)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) (* p (pow q 2)))) (/ 1 (* p (pow q 2)))) (/ 1 (pow p 3))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* -1 (/ (pow q 2) (pow p 2)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) (pow q 2))) (/ 1 (pow q 2))) (/ 1 (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow q 2) (- (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) (pow q 2))) (/ 1 (pow p 2))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (pow r 2) (* (pow p 2) (pow q 2)))) (/ 1 (pow p 2))) (/ r (* p (pow q 2)))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (pow r 2) (* p (pow q 2)))) (/ 1 p)) (/ r (pow q 2))))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* (pow q 2) (+ (* -1 (/ (pow r 2) (* p (pow q 2)))) (/ 1 p)))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (* (pow q 2) (- (/ (pow r 2) (* p (pow q 2))) (/ 1 p)))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (* (pow q 2) (- (/ (pow r 2) (pow q 2)) 1))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (pow q 2) (pow (- p r) 3))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* (pow q 2) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ 1 (pow (- p r) 3))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ p (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ p (fabs r)) q))) 1))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ p (fabs r)) q)))) 1))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* (pow q 2) (- (* 1/2 (/ (+ r (fabs r)) (pow q 2))) (/ 1 (- p r))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* (pow q 2) (- (/ (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))) (pow q 2)) (* 2 (/ 1 r))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* (pow q 2) (- (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))) (pow q 2)) (* 2 (/ 1 p))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* p (pow q 2))) (/ (fabs r) (* p (pow q 2)))) (+ (* -1 (/ r (* p (pow q 2)))) (+ (* 2 (/ 1 (pow p 2))) (/ 1 (pow q 2))))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* (pow q 2) r)) (/ (fabs r) (* (pow q 2) r))) (+ (* -1 (/ p (* (pow q 2) r))) (+ (* 2 (/ 1 (pow r 2))) (/ 1 (pow q 2))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2)))) 1))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* -1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) (pow q 3))) (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2))))) 1))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -2 q)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (pow q 2))) (+ 2 (+ (* -1 (/ (+ (fabs p) (fabs r)) q)) (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (+ (* -1 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) (pow q 3))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (pow q 2)))) (+ 2 (+ (* -1 (/ (+ (fabs p) (fabs r)) q)) (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -4 (pow q 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow q 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2)) (+ 4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* 2 q)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (/ (fabs p) q) (/ (fabs r) q))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (* 1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow (- p r) 2) (pow q 2))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ p (pow q 2))) (+ (/ (fabs p) (pow q 2)) (/ (fabs r) (pow q 2)))) (+ (* -1 (/ r (pow q 2))) (* 2 (/ 1 p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow q 2) (- (/ (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (pow q 2)) 2))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (/ p q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ p q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (/ p q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* -2 (/ (pow q 2) (- p r)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* (pow q 2) (- (+ (/ r (pow q 2)) (/ (fabs r) (pow q 2))) (* 2 (/ 1 (- p r)))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (* -2 (/ (pow q 2) (- p r)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (* (pow q 2) (- (/ (fabs r) (pow q 2)) (* 2 (/ 1 (- p r)))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2)))) 1))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* -1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) (pow q 3))) (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2))))) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 q))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (* p r)) (* 1/4 (pow p 2)))) (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 (* q (+ 1 (* -1/2 (/ (+ (fabs p) (fabs r)) q)))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 (* q (+ 1 (* -1 (/ (+ (* -1 (/ (* p (+ (* -1/4 r) (* 1/8 p))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)))))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (fabs r)) q)))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* -1 (/ (* p (+ (* -1/4 r) (* 1/8 p))) q))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1 (/ (+ (* -1/4 r) (* 1/8 p)) q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* 2 q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)))) q)) 2)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) (+ (* -1/64 (/ (pow p 4) (pow q 2))) (* 1/4 (pow p 2)))) q)))) q)) 2)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1/2 (/ (* p r) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 (/ (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r)))) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1 (/ (* p (* r (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))))) (pow q 6))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))))) q))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ -1/2 q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ p (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ p (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ p (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 1/4 (/ (pow (- p r) 2) q)))) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)) 2)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 q))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))) (* 1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) q))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* 2 q)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (- (* -1 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* -1 (+ (fabs p) (fabs r)))) q)) 2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (- (* -1 (/ (- (+ (* 1/8 (/ (* (+ (fabs p) (fabs r)) (pow (- p r) 2)) q)) (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (* 1/2 (/ (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))) q)))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* -1 (+ (fabs p) (fabs r)))) q)) 2)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -2 q)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (fabs r)) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1/4 (/ (pow (- p r) 2) q)))) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* -1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ p (fabs r)) q)) 2)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ p (+ (fabs r) (* 1/4 (/ (pow (- p r) 2) q)))) q)) 2)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ p (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)) 2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))) (* 1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) q))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
Calls

9 calls:

TimeVariablePointExpression
27.0ms
r
@0
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (* 1/4 (/ (* p r) q)) 1/4 (/ (* p r) q) (* p r) p r q (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)) (+ (fabs p) (fabs r)) (fabs p) (fabs r) (* 2 q) 2 (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (* -1/8 (/ p q)) -1/8 (/ p q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (pow q 6) 6 (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (* -1/2 (/ p (pow q 6))) -1/2 (/ p (pow q 6)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (* -1 (/ (* q q) (- p r))) -1 (/ (* q q) (- p r)) (* q q) (- p r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/ -1/2 q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/ 1/2 q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (- (+ (+ r (fabs p)) (fabs r)) p) (/ (neg (* q q)) (- p r)) (neg (* q q)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 (- p r)) (- p r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (- (* -1 (* q q)) (* -1 (* r r))) (* -1 (* q q)) (* -1 (* r r)) (* r r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/ -1 (* p (pow q 2))) (* p (pow q 2)) (pow q 2) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ r (fabs r))) (+ r (fabs r)) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (- (fabs r) r)) (- (fabs r) r) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (/ (pow q 2) (- p r)) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (* -2 (/ (* q q) r)) -2 (/ (* q q) r) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (* -2 (* (/ q p) (/ q p))) (* (/ q p) (/ q p)) (/ q p) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (* -2 (* (/ q r) (/ q r))) (* (/ q r) (/ q r)) (/ q r) (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (* -4 (* q q)) -4 (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+ (* (* q q) 4) (pow (- p r) 2)) 4 (pow (- p r) 2) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (* -1 p) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (* -2 (/ (pow q 2) (- p r))) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))
26.0ms
q
@0
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (* 1/4 (/ (* p r) q)) 1/4 (/ (* p r) q) (* p r) p r q (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)) (+ (fabs p) (fabs r)) (fabs p) (fabs r) (* 2 q) 2 (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (* -1/8 (/ p q)) -1/8 (/ p q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (pow q 6) 6 (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (* -1/2 (/ p (pow q 6))) -1/2 (/ p (pow q 6)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (* -1 (/ (* q q) (- p r))) -1 (/ (* q q) (- p r)) (* q q) (- p r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/ -1/2 q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/ 1/2 q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (- (+ (+ r (fabs p)) (fabs r)) p) (/ (neg (* q q)) (- p r)) (neg (* q q)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 (- p r)) (- p r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (- (* -1 (* q q)) (* -1 (* r r))) (* -1 (* q q)) (* -1 (* r r)) (* r r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/ -1 (* p (pow q 2))) (* p (pow q 2)) (pow q 2) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ r (fabs r))) (+ r (fabs r)) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (- (fabs r) r)) (- (fabs r) r) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (/ (pow q 2) (- p r)) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (* -2 (/ (* q q) r)) -2 (/ (* q q) r) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (* -2 (* (/ q p) (/ q p))) (* (/ q p) (/ q p)) (/ q p) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (* -2 (* (/ q r) (/ q r))) (* (/ q r) (/ q r)) (/ q r) (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (* -4 (* q q)) -4 (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+ (* (* q q) 4) (pow (- p r) 2)) 4 (pow (- p r) 2) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (* -1 p) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (* -2 (/ (pow q 2) (- p r))) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))
21.0ms
q
@-inf
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (* 1/4 (/ (* p r) q)) 1/4 (/ (* p r) q) (* p r) p r q (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)) (+ (fabs p) (fabs r)) (fabs p) (fabs r) (* 2 q) 2 (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (* -1/8 (/ p q)) -1/8 (/ p q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (pow q 6) 6 (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (* -1/2 (/ p (pow q 6))) -1/2 (/ p (pow q 6)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (* -1 (/ (* q q) (- p r))) -1 (/ (* q q) (- p r)) (* q q) (- p r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/ -1/2 q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/ 1/2 q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (- (+ (+ r (fabs p)) (fabs r)) p) (/ (neg (* q q)) (- p r)) (neg (* q q)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 (- p r)) (- p r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (- (* -1 (* q q)) (* -1 (* r r))) (* -1 (* q q)) (* -1 (* r r)) (* r r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/ -1 (* p (pow q 2))) (* p (pow q 2)) (pow q 2) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ r (fabs r))) (+ r (fabs r)) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (- (fabs r) r)) (- (fabs r) r) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (/ (pow q 2) (- p r)) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (* -2 (/ (* q q) r)) -2 (/ (* q q) r) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (* -2 (* (/ q p) (/ q p))) (* (/ q p) (/ q p)) (/ q p) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (* -2 (* (/ q r) (/ q r))) (* (/ q r) (/ q r)) (/ q r) (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (* -4 (* q q)) -4 (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+ (* (* q q) 4) (pow (- p r) 2)) 4 (pow (- p r) 2) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (* -1 p) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (* -2 (/ (pow q 2) (- p r))) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))
21.0ms
q
@inf
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (* 1/4 (/ (* p r) q)) 1/4 (/ (* p r) q) (* p r) p r q (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)) (+ (fabs p) (fabs r)) (fabs p) (fabs r) (* 2 q) 2 (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (* -1/8 (/ p q)) -1/8 (/ p q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (pow q 6) 6 (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (* -1/2 (/ p (pow q 6))) -1/2 (/ p (pow q 6)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (* -1 (/ (* q q) (- p r))) -1 (/ (* q q) (- p r)) (* q q) (- p r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/ -1/2 q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/ 1/2 q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (- (+ (+ r (fabs p)) (fabs r)) p) (/ (neg (* q q)) (- p r)) (neg (* q q)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 (- p r)) (- p r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (- (* -1 (* q q)) (* -1 (* r r))) (* -1 (* q q)) (* -1 (* r r)) (* r r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/ -1 (* p (pow q 2))) (* p (pow q 2)) (pow q 2) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ r (fabs r))) (+ r (fabs r)) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (- (fabs r) r)) (- (fabs r) r) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (/ (pow q 2) (- p r)) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (* -2 (/ (* q q) r)) -2 (/ (* q q) r) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (* -2 (* (/ q p) (/ q p))) (* (/ q p) (/ q p)) (/ q p) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (* -2 (* (/ q r) (/ q r))) (* (/ q r) (/ q r)) (/ q r) (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (* -4 (* q q)) -4 (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+ (* (* q q) 4) (pow (- p r) 2)) 4 (pow (- p r) 2) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (* -1 p) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (* -2 (/ (pow q 2) (- p r))) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))
20.0ms
p
@0
((* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (* 1/4 (/ (* p r) q)) 1/4 (/ (* p r) q) (* p r) p r q (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)) (+ (fabs p) (fabs r)) (fabs p) (fabs r) (* 2 q) 2 (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (* -1/8 (/ p q)) -1/8 (/ p q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (pow q 6) 6 (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (* -1/2 (/ p (pow q 6))) -1/2 (/ p (pow q 6)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (* -1 (/ (* q q) (- p r))) -1 (/ (* q q) (- p r)) (* q q) (- p r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/ -1/2 q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/ 1/2 q) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (- (+ (+ r (fabs p)) (fabs r)) p) (/ (neg (* q q)) (- p r)) (neg (* q q)) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 (- p r)) (- p r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (- (* -1 (* q q)) (* -1 (* r r))) (* -1 (* q q)) (* -1 (* r r)) (* r r) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/ -1 p) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (- (+ (+ r (fabs p)) (fabs r)) p) (+ (+ r (fabs p)) (fabs r)) (+ r (fabs p)) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/ -1 (* p (pow q 2))) (* p (pow q 2)) (pow q 2) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (+ r (fabs r))) (+ r (fabs r)) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (* 1/2 (- (fabs r) r)) (- (fabs r) r) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (/ (pow q 2) (- p r)) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (* -2 (/ (* q q) r)) -2 (/ (* q q) r) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (* -2 (* (/ q p) (/ q p))) (* (/ q p) (/ q p)) (/ q p) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (* -2 (* (/ q r) (/ q r))) (* (/ q r) (/ q r)) (/ q r) (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (* -4 (* q q)) -4 (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+ (* (* q q) 4) (pow (- p r) 2)) 4 (pow (- p r) 2) (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (* -1 p) (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (* -2 (/ (pow q 2) (- p r))) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))

rewrite473.0ms (5.8%)

Memory
34.0MiB live, 882.9MiB allocated; 156ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0550379497
0568677257
0842774234
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
1 468 → 1 537
Calls
Call 1
Inputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))
(*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q))
#s(literal 1/4 binary64)
(/.f64 (*.f64 p r) q)
(*.f64 p r)
p
r
q
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))))
#s(literal 1/2 binary64)
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))
(+.f64 (fabs.f64 p) (fabs.f64 r))
(fabs.f64 p)
(fabs.f64 r)
(*.f64 #s(literal 2 binary64) q)
#s(literal 2 binary64)
(*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))
(*.f64 #s(literal -1/8 binary64) (/.f64 p q))
#s(literal -1/8 binary64)
(/.f64 p q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) #s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) #s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64)))))))
(*.f64 (pow.f64 q #s(literal 6 binary64)) #s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64))))))
(pow.f64 q #s(literal 6 binary64))
#s(literal 6 binary64)
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64)))))
(*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64))))
#s(literal -1/2 binary64)
(/.f64 p (pow.f64 q #s(literal 6 binary64)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) #s(approx (- p r) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) #s(approx (- p r) p))))
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) #s(approx (- p r) p)))
#s(literal -1 binary64)
(/.f64 (*.f64 q q) #s(approx (- p r) p))
(*.f64 q q)
#s(approx (- p r) p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))))
(*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))
(/.f64 #s(literal -1/2 binary64) q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))))
(*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))
(/.f64 #s(literal 1/2 binary64) q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) #s(approx (- p r) p))))
(fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) #s(approx (- p r) p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r)
(/.f64 (neg.f64 (*.f64 q q)) #s(approx (- p r) p))
(neg.f64 (*.f64 q q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q)))
(-.f64 (+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r)) p)
(+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r))
#s(approx (+ r (fabs p)) r)
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r)))
(/.f64 #s(literal -1 binary64) (-.f64 p r))
(-.f64 p r)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q)))
(-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p)
(+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r))
#s(approx (+ r (fabs p)) (fabs.f64 p))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)))
(*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))
(/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p)))
#s(literal 1 binary64)
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))
(/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p)
(-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r)
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p))
(/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)
(-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r)))
(*.f64 #s(literal -1 binary64) (*.f64 q q))
(*.f64 #s(literal -1 binary64) (*.f64 r r))
(*.f64 r r)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q)))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p))
(/.f64 #s(literal -1 binary64) p)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))))))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))))))) (*.f64 q q)))
(-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p)
(+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r))
(+.f64 r (fabs.f64 p))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))))))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64)))))))
(*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64)))))
(/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))))
(*.f64 p (pow.f64 q #s(literal 2 binary64)))
(pow.f64 q #s(literal 2 binary64))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
(*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))
(+.f64 r (fabs.f64 r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r))
(-.f64 (fabs.f64 r) r)
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))))
(fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
(/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))
#s(literal -2 binary64)
(/.f64 (*.f64 q q) r)
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p))
(*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p))))
(*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))
(*.f64 (/.f64 q p) (/.f64 q p))
(/.f64 q p)
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r))
(*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r))))
(*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))
(*.f64 (/.f64 q r) (/.f64 q r))
(/.f64 q r)
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
(/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q)))
(*.f64 #s(literal -4 binary64) (*.f64 q q))
#s(literal -4 binary64)
(+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))
(+.f64 (fabs.f64 r) (fabs.f64 p))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
#s(literal 4 binary64)
(pow.f64 (-.f64 p r) #s(literal 2 binary64))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p))))
(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p))
(/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p)
(fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p))))
(*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p))
(*.f64 #s(literal -1 binary64) p)
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r))))))
(+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)))))
(+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r))))
(*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) #s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p))))
(/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) #s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p)))))
(/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p))))
(+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* 1/4 (/ r q)) (* p (- (* -1/32 (/ (* p r) (pow q 3))) (* 1/8 (/ 1 q)))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))))
#s(approx (* 1/4 (/ (* p r) q)) #s(hole binary64 (* 1/4 (/ (* p r) q))))
#s(approx (/ (* p r) q) #s(hole binary64 (/ (* p r) q)))
#s(approx (* p r) #s(hole binary64 (* p r)))
#s(approx p #s(hole binary64 p))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (+ (fabs p) (fabs r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (fabs p) #s(hole binary64 (fabs p)))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* 1/4 (/ (* p r) q))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* 1/4 (/ r q))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))))
#s(approx (* -1/8 (/ p q)) #s(hole binary64 (* -1/8 (/ p q))))
#s(approx (/ p q) #s(hole binary64 (/ p q)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2)))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (* p (* (pow q 2) (+ (* (pow q 2) (- (* 2 (+ (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (pow r 5)) (+ (/ (* (pow q 2) (* (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (+ (* 4 (pow r 4)) (pow r 4)))) (pow r 15)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (* 8 (pow r 2)))) (pow r 10))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (/ 1 (pow r 4))))) (* (pow q 2) (+ (* (pow q 2) (- (+ (* 2 (+ (/ (* (pow q 2) (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2))))))) (pow r 10)) (/ (* (pow q 2) (pow (+ (* 4 (pow r 4)) (pow r 4)) 2)) (pow r 15)))) (* 3 (/ 1 (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (pow r 3)))))) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (* (pow q 2) (+ (* 4 (pow r 4)) (pow r 4))) (pow r 10))) (* 3 (/ 1 (pow r 4))))) (/ 1 (pow r 2))))) 1/2)) (* (pow q 2) (+ (* (pow q 2) (- (* 2 (/ (pow q 2) (pow r 5))) (/ 1 (pow r 3)))) (/ 1 r)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* p (* (pow q 6) (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4)))))))) (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* p (+ (* p (* (pow q 6) (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (/ 1 (* (pow q 4) (pow r 3)))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))))) (* (pow q 6) (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))))) (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 6) (- (/ 1 (* (pow q 4) (pow r 4))) (+ (* -2 (+ (* -1 (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (pow r 5))) (+ (* 5 (/ (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (pow r 11))) (* 10 (/ 1 (pow r 8)))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (* (pow q 2) (pow r 7)))) (/ 1 (* (pow q 2) (pow r 6))))))))) (* (pow q 6) (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (/ 1 (* (pow q 4) (pow r 3)))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7))))))))) (* (pow q 6) (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))))) (* (pow q 6) (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (/ 1 (* (pow q 4) r)))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (+ (* p (- (+ (* 10 (/ 1 (pow r 6))) (/ 1 (* (pow q 4) (pow r 2)))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))) (/ 1 (* (pow q 4) r))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (+ (* p (- (+ (* 10 (/ 1 (pow r 6))) (+ (* p (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (/ 1 (* (pow q 4) (pow r 3)))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7))))))) (/ 1 (* (pow q 4) (pow r 2))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))) (/ 1 (* (pow q 4) r))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) (pow q 6))) (+ (* 2 (/ 1 (pow r 5))) (+ (* p (- (+ (* 10 (/ 1 (pow r 6))) (+ (* p (- (+ (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (+ (* p (- (/ 1 (* (pow q 4) (pow r 4))) (+ (* -2 (+ (* -1 (/ (* (+ (* 4 (pow r 4)) (pow r 4)) (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (pow r 5))) (+ (* 5 (/ (+ (* -4 (pow r 3)) (* -1 (* r (+ (* 2 (pow r 2)) (* 4 (pow r 2)))))) (pow r 11))) (* 10 (/ 1 (pow r 8)))))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (* (pow q 2) (pow r 5)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7)))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (* (pow q 2) (pow r 7)))) (/ 1 (* (pow q 2) (pow r 6)))))))) (/ 1 (* (pow q 4) (pow r 3))))) (+ (* 2 (- (* 4 (/ 1 (pow r 7))) (+ (* -1 (/ (+ (* 2 (pow r 2)) (* 4 (pow r 2))) (pow r 9))) (* 5 (/ (+ (* 4 (pow r 4)) (pow r 4)) (pow r 11)))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (* (pow q 2) (pow r 7))))))) (/ 1 (* (pow q 4) (pow r 2))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow q 2) (pow r 4))))))) (/ 1 (* (pow q 4) r))))) (/ 1 (* (pow q 2) (pow r 3))))))
#s(approx (* -1/2 (/ p (pow q 6))) #s(hole binary64 (* -1/2 (/ p (pow q 6)))))
#s(approx (/ p (pow q 6)) #s(hole binary64 (/ p (pow q 6))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (/ (pow q 2) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (/ (pow q 2) (pow r 2)) 1/2)) (/ (pow q 2) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))) 1/2)) (/ (pow q 2) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2))) 1/2)) (/ (pow q 2) r)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (/ (* p (pow q 2)) (pow r 2)) (/ (pow q 2) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* p (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* p (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* -1 (/ (* p (pow q 2)) (pow r 2))) (* -1 (/ (pow q 2) r)))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) r)) (* p (- (* -1 (/ (* p (pow q 2)) (pow r 3))) (/ (pow q 2) (pow r 2)))))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) r)) (* p (- (* p (- (* -1 (/ (* p (pow q 2)) (pow r 4))) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))))))
#s(approx (- p r) #s(hole binary64 (* -1 r)))
#s(approx (- p r) #s(hole binary64 (- p r)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* 1/2 (/ (* p r) q)))) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* -1/4 (/ p q)) (* 1/2 (/ r q)))))) (* 2 q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (+ (* 1/2 (/ r q)) (* p (- (* -1/16 (/ (* p r) (pow q 3))) (* 1/4 (/ 1 q)))))))) (* 2 q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* 1/2 (/ (* p r) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* p (+ (* -1/16 (/ (* (pow p 2) r) (pow q 3))) (* 1/2 (/ r q))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* p (+ (* 1/2 (/ r q)) (* (pow p 2) (+ (* -1/16 (/ r (pow q 3))) (* 3/256 (/ (* (pow p 2) r) (pow q 5)))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* p (+ (* 1/2 (/ r q)) (* (pow p 2) (+ (* -1/16 (/ r (pow q 3))) (* (pow p 2) (+ (* -5/2048 (/ (* (pow p 2) r) (pow q 7))) (* 3/256 (/ r (pow q 5)))))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ 1/2 q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* -1/16 (/ (pow p 2) (pow q 3))) (* 1/2 (/ 1 q)))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow p 2) (- (* 3/256 (/ (pow p 2) (pow q 5))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow p 2) (- (* (pow p 2) (+ (* -5/2048 (/ (pow p 2) (pow q 7))) (* 3/256 (/ 1 (pow q 5))))) (* 1/16 (/ 1 (pow q 3))))) (* 1/2 (/ 1 q)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (+ r (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (/ (* p (pow q 2)) (pow r 2)) (/ (pow q 2) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* p (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* p (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (+ r (+ (fabs p) (fabs r)))) (+ (* p (- (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6))))))) (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) 1/2)) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (+ r (+ (fabs p) (fabs r)))))
#s(approx (+ r (fabs p)) #s(hole binary64 (+ r (fabs p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6))))))) (* (pow q 2) (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))))) (* (pow q 2) (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))))) (* (pow q 2) (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (/ 1 r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (/ 1 (pow r 2)) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (+ (* p (- (/ 1 (pow r 3)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ 1 (pow r 2))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow r 3))) (+ (* p (- (+ (* p (- (+ (* p (- (/ 1 (pow r 4)) (+ (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9)))) (pow r 3)) (+ (/ (* (pow q 2) (* (+ (* -2 r) (* -1 r)) (+ (* 2 (pow r 2)) (pow r 2)))) (pow r 9)) (/ (pow q 2) (pow r 6)))))) (/ 1 (pow r 3))) (+ (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow r 6)) (/ (* (pow q 2) (pow (+ (* 2 (pow r 2)) (pow r 2)) 2)) (pow r 9))))) (/ 1 (pow r 2))) (/ (* (pow q 2) (+ (* 2 (pow r 2)) (pow r 2))) (pow r 6)))) (/ 1 r)))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ 1 r)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (+ (/ 1 r) (/ p (pow r 2)))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (+ (* p (+ (/ 1 (pow r 2)) (/ p (pow r 3)))) (/ 1 r))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (+ (* p (+ (* p (+ (/ 1 (pow r 3)) (/ p (pow r 4)))) (/ 1 (pow r 2)))) (/ 1 r))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 3)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (+ (* -1 (* p r)) (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2))))) (pow p 3))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (+ (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2)))) (* p (+ (* -1 p) (* -1 r)))) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p r)) (* -1 (pow r 2))) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p (+ p r))) (* -1 (pow r 2))) (pow p 3))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p r)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p (+ p r))) (* -1 (pow r 2))) (pow p 2))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (- (+ (* -1 (pow q 2)) (* p r)) (* -1 (pow r 2))) (pow p 2))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (+ (* -1 (* p r)) (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2))))) (pow p 2))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (/ (+ (* -1 (* p r)) (* -1 (- (* -1 (pow q 2)) (* -1 (pow r 2))))) p)))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)))
#s(approx (/ -1 p) #s(hole binary64 (/ -1 p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* p (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4)))))) (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* p (+ (* p (* (pow q 2) (- (+ (* 3 (/ 1 (pow r 5))) (/ 1 (* (pow q 2) (pow r 3)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7)))))) (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4))))))) (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* p (+ (* p (+ (* p (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 4))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6))))))) (* (pow q 2) (- (+ (* 3 (/ 1 (pow r 5))) (/ 1 (* (pow q 2) (pow r 3)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))))) (* (pow q 2) (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4))))))) (* (pow q 2) (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (/ 1 (* (pow q 2) r)) (/ 1 (pow r 3)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* p (- (/ 1 (* (pow q 2) (pow r 2))) (* 3 (/ 1 (pow r 4))))) (/ 1 (* (pow q 2) r))) (/ 1 (pow r 3)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* p (- (+ (* p (- (+ (* 3 (/ 1 (pow r 5))) (/ 1 (* (pow q 2) (pow r 3)))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (* (pow q 2) (pow r 2)))) (* 3 (/ 1 (pow r 4))))) (/ 1 (* (pow q 2) r))) (/ 1 (pow r 3)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* p (- (+ (* p (- (+ (* 3 (/ 1 (pow r 5))) (+ (* p (- (/ 1 (* (pow q 2) (pow r 4))) (+ (* -1 (/ (* (+ (* 2 (pow r 2)) (pow r 2)) (- (* 3 (/ 1 (pow r 5))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (pow r 3))) (+ (* 3 (/ (+ (* -2 r) (* -1 r)) (pow r 7))) (/ 1 (pow r 6)))))) (/ 1 (* (pow q 2) (pow r 3))))) (* 3 (/ (+ (* 2 (pow r 2)) (pow r 2)) (pow r 7))))) (/ 1 (* (pow q 2) (pow r 2)))) (* 3 (/ 1 (pow r 4))))) (/ 1 (* (pow q 2) r))) (/ 1 (pow r 3)))))
#s(approx (/ -1 (* p (pow q 2))) #s(hole binary64 (/ -1 (* p (pow q 2)))))
#s(approx (* p (pow q 2)) #s(hole binary64 (* p (pow q 2))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* p (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (/ (pow q 2) r))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (+ (/ (* p (pow q 2)) (pow r 2)) (/ (pow q 2) r)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (+ (* p (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (+ (* p (+ (* p (+ (/ (* p (pow q 2)) (pow r 4)) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))) (/ (pow q 2) r)))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) r))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (+ (* -1 (/ (* p (pow q 2)) (pow r 2))) (* -1 (/ (pow q 2) r)))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) r)) (* p (- (* -1 (/ (* p (pow q 2)) (pow r 3))) (/ (pow q 2) (pow r 2)))))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) r)) (* p (- (* p (- (* -1 (/ (* p (pow q 2)) (pow r 4))) (/ (pow q 2) (pow r 3)))) (/ (pow q 2) (pow r 2)))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* -1/4 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) (* p (+ (* 1/2 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* -1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* p (- (* p (- (* -1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (+ p (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -2 (/ (pow q 2) p))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* -2 (/ (pow q 2) (pow p 2)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) (pow p 2))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (pow p 2))))
#s(approx (* -2 (* (/ q p) (/ q p))) #s(hole binary64 (* -2 (/ (pow q 2) (pow p 2)))))
#s(approx (* (/ q p) (/ q p)) #s(hole binary64 (/ (pow q 2) (pow p 2))))
#s(approx (/ q p) #s(hole binary64 (/ q p)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ p r) (+ (/ (fabs p) r) (/ (fabs r) r)))) 1)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* p (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* -1/2 (* p (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))) (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (* p (+ (* -1/2 (* p (+ (* 1/2 (* (/ (* r (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* (/ (* r (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* -1/2 (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (+ (* -1 (* p (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))) (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* p (- (+ (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (- (* -1 (* p (+ (* 1/2 (* (/ (* r (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* (/ (* r (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (/ (pow r 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* 2 (* p r)) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* p (- (* -1 p) (* -2 r))) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))))
#s(approx (+ (fabs r) (fabs p)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow r 2))) (* p (+ (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* p (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow r 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow r 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* p (+ p (* -2 r))) (pow r 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow r 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow r 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* p (+ p (* -2 r))) (pow r 2))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -2 (/ (pow q 2) p))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r)))) p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p)))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* -2 (pow q 2))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (fabs r)) (* -1 r))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p (- (+ (fabs p) (fabs r)) (* -1 r)))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (- (+ (fabs p) (fabs r)) (* -1 r))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))
#s(approx (* -1 p) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* p (- 1 (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* p (- (+ 1 (* -1/2 (* (* p (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* p (- (+ 1 (* p (- (* -1/2 (* (* p (* r (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))) (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2))))))))) (* -1 (* r (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (* 2 (/ (pow q 2) r))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (+ (* 2 (/ (* p (pow q 2)) (pow r 2))) (* 2 (/ (pow q 2) r)))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (+ (* 2 (/ (pow q 2) r)) (* p (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2))))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (+ (* 2 (/ (pow q 2) r)) (* p (+ (* 2 (/ (pow q 2) (pow r 2))) (* p (+ (* 2 (/ (* p (pow q 2)) (pow r 4))) (* 2 (/ (pow q 2) (pow r 3))))))))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (* 2 (/ (pow q 2) r)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* 2 (/ (* p (pow q 2)) (pow r 2))) (* 2 (/ (pow q 2) r))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* 2 (/ (pow q 2) r)) (* p (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* 2 (/ (pow q 2) r)) (* p (+ (* 2 (/ (pow q 2) (pow r 2))) (* p (+ (* 2 (/ (* p (pow q 2)) (pow r 4))) (* 2 (/ (pow q 2) (pow r 3)))))))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* 2 (/ (pow q 2) r))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (+ (* 2 (/ (* p (pow q 2)) (pow r 2))) (* 2 (/ (pow q 2) r)))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (+ (* 2 (/ (pow q 2) r)) (* p (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (+ (* 2 (/ (pow q 2) r)) (* p (+ (* 2 (/ (pow q 2) (pow r 2))) (* p (+ (* 2 (/ (* p (pow q 2)) (pow r 4))) (* 2 (/ (pow q 2) (pow r 3))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* p (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* -1/2 (* p (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))))))) (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* p (+ (* 1/2 (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (* p (+ (* -1/2 (* p (+ (* 1/2 (* (/ (* r (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow r 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (* (/ (* r (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2))))))))) (* -1/2 (+ (* -1 (* (/ (* r (- (* 2 (/ r (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))) (* -1 (* (/ (* r (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow r 2) (+ (* 4 (pow q 2)) (pow r 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow r 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow r 2))))))))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1/8 (/ (pow p 2) q))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* (pow p 2) (- (* 1/4 (/ r (* p q))) (* 1/8 (/ 1 q))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* (pow p 2) (- (+ (* 1/4 (/ r (* p q))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* 2 q)) (pow p 2)))) (* 1/8 (/ 1 q))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* -1/8 (/ (pow p 2) q))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* (pow p 2) (- (* 1/4 (/ r (* p q))) (* 1/8 (/ 1 q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1/8 (/ p q))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* p (- (* 1/4 (/ r (* p q))) (* 1/8 (/ 1 q))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* p (- (* 1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p)) 1/2))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p))) 1/2))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p)))) 1/2))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1/2 (/ p (pow q 6)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* p (- (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* p (- (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (+ (* 1/2 (/ 1 (pow q 6))) (/ 1 (* (pow p 2) (pow q 4))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* p (- (+ (* -1 (/ r (* (pow p 3) (pow q 4)))) (* 1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p))) (+ (* 1/2 (/ 1 (pow q 6))) (/ 1 (* (pow p 2) (pow q 4))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (* -1 (pow q 2)))) p)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow r 3)) (pow p 3))) (* -1 (pow q 2))))) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (pow q 2) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (/ (* (pow q 2) (pow r 2)) (pow p 2)) (pow q 2)) (* -1 (/ (* (pow q 2) r) p))) p)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (/ (* (pow q 2) (pow r 3)) (pow p 3)) (pow q 2)) (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))))) p)))
#s(approx (- p r) #s(hole binary64 p))
#s(approx (- p r) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) (+ 1 (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 r))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (* -2 (/ (* (pow q 2) r) (pow p 2))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (* -1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4)))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4))) (* -1/2 (/ (* r (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6)))) (pow p 6))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ 1 p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* p (- (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (* -1 (pow q 2)))) p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow r 3)) (pow p 3))) (* -1 (pow q 2))))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1/2 p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p))) 1/2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))) 1/2))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2)))) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (+ (* -1 (pow q 2)) (+ (/ (* (pow q 2) (+ (* -1 (pow r 2)) (pow q 2))) (pow p 2)) (/ (* (pow q 2) (- (* -1 (pow r 3)) (* (pow q 2) (+ (* -2 r) (* -1 r))))) (pow p 3))))) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ -1 p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 2) (pow p 2))) (/ (pow q 2) (pow p 2)))) 1) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (* -1 (/ (pow r 2) (pow p 2))) (+ (* -1 (/ (pow r 3) (pow p 3))) (/ (pow q 2) (pow p 2))))) (+ 1 (/ (* (pow q 2) (+ (* -2 r) (* -1 r))) (pow p 3)))) p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ -1 p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (+ 1 (/ r p))) p)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (* -1 (/ (pow r 3) (pow p 3))) (+ 1 (+ (/ r p) (/ (pow r 2) (pow p 2))))) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ -1 p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) (pow p 2)))) 1) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ 1 p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (+ 1 (/ r p)) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (- (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p))) (* -1 (/ (pow r 2) (pow p 2)))) p)))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (/ r p))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (- (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p))) (* -1 (/ (pow r 2) (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ r p)))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (- (+ r (* -1 (/ (pow q 2) p))) (* -1 (/ (pow r 2) p))) p)))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ r p))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 r)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (- (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ -1 p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (- (* -1 (/ r p)) 1) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (/ (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) (pow p 2))) 1) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (- (+ (* -1 (/ r p)) (+ (/ (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) (pow p 2)) (/ (* (pow q 2) (- (* -1 (/ (pow r 3) (pow q 2))) (+ (* -2 r) (* -1 r)))) (pow p 3)))) 1) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ -1 (* p (pow q 2)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (* -1 (/ r (* p (pow q 2)))) (/ 1 (pow q 2))) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r (* p (pow q 2)))) (+ (* -1 (/ (pow r 2) (* (pow p 2) (pow q 2)))) (/ 1 (pow p 2)))) (/ 1 (pow q 2))) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (* -1 (/ r (* p (pow q 2)))) (+ (* -1 (/ (pow r 2) (* (pow p 2) (pow q 2)))) (+ (* -1 (/ (pow r 3) (* (pow p 3) (pow q 2)))) (/ 1 (pow p 2))))) (+ (* -2 (/ r (pow p 3))) (+ (* -1 (/ r (pow p 3))) (/ 1 (pow q 2))))) p)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (fabs r) (* -1 r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (fabs r) (* -1 r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (fabs r) (* -1 r)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1 (/ (pow q 2) p)) (+ (* 1/4 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) (pow p 3))) (* 1/2 (- (fabs r) (* -1 r))))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* 1/2 (+ r (fabs r)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (fabs r))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (fabs r)))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 3))) (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (fabs r))))))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (pow q 2) p)))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (- (+ (/ (* (pow q 2) (pow r 2)) (pow p 2)) (pow q 2)) (* -1 (/ (* (pow q 2) r) p))) p)))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (- (+ (/ (* (pow q 2) (pow r 3)) (pow p 3)) (pow q 2)) (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (/ (* (pow q 2) (pow r 2)) (pow p 2))))) p)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p))) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* p (- (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (+ (* -1 (/ (pow q 2) (pow p 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))) 1/2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* p (- (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 p))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* p (+ 1 (/ (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)) p)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 -1))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ p r)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (* p (pow r 2)))) (+ (/ 1 r) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))))) (/ 1 p)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2)))) 1/2))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* -1/2 (/ (+ (* -2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))))) (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2)))))))) (pow p 3))) (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2))))) 1/2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 p)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (* 2 (/ r p)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (+ (* 2 (/ r p)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2))) (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow p 2)) (/ (pow r 2) (pow p 2)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* p (- (+ (* -1 (/ (+ (* -2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))))) (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2)))))))) (pow p 3))) (+ (* 2 (/ r p)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2)))) (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow p 2)) (/ (pow r 2) (pow p 2)))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -1 (pow p 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (* 2 (/ r p)) 1))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow p 2)) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2)))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 p))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (/ (fabs p) p) (/ (fabs r) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (+ (* 2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 p))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (* -1 (/ r p))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (* 2 (/ (pow q 2) (pow p 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* p (+ 1 (+ (* -1 (/ r p)) (+ (* 2 (/ (* (pow q 2) r) (pow p 3))) (* 2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow p 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (+ (* 4 (/ (pow q 2) (pow p 2))) (/ (pow r 2) (pow p 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (pow p 2)))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -2 (/ r p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (+ (* -2 (/ r p)) (/ (pow r 2) (pow p 2)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* -1 (pow p 2))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow p 2) (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow p 2) (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) (+ 1 (* -1 (/ r p)))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* -1 (pow p 2))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* (pow p 2) (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* -1 p)))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (fabs r) (* -1 r))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -2 (/ (pow q 2) p))) (* -1 r))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -2 (/ (* (pow q 2) r) (pow p 2)))) (+ (* -1 r) (* 2 (/ (pow q 2) p))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* 1/2 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) (pow p 3)))) (+ (* -1 r) (+ (* 2 (/ (* (pow q 2) r) (pow p 2))) (* 2 (/ (pow q 2) p)))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (fabs r))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (* -2 (/ (pow q 2) p))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (* -2 (/ (pow q 2) p)))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (+ (* -2 (/ (* (pow q 2) (pow r 2)) (pow p 3))) (* -2 (/ (pow q 2) p))))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (fabs r)))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (* -2 (/ (pow q 2) p)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (* -2 (/ (pow q 2) p))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (+ (* -2 (/ (* (pow q 2) (pow r 2)) (pow p 3))) (* -2 (/ (pow q 2) p)))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -2 (/ (pow q 2) p))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow q 2) r) p)) (* -2 (pow q 2))) p)))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow q 2) r) p)) (+ (* -2 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (* -2 (pow q 2)))) p)))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow q 2) r) p)) (+ (* -2 (/ (* (pow q 2) (pow r 2)) (pow p 2))) (+ (* -2 (/ (* (pow q 2) (pow r 3)) (pow p 3))) (* -2 (pow q 2))))) p)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 p)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2)))) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* p (- (+ (* -1/2 (/ (+ (* -2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))))) (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2)))))))) (pow p 3))) (+ (* 1/2 (/ (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 r))) (- (* 2 r) (* -1 (+ (fabs p) (+ (fabs r) (* -1 r)))))) (pow r 2))))) (pow p 2))))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (+ (fabs p) (fabs r)) r))) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r)))) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (+ (fabs p) (+ (fabs r) (* -1 r))))) p)) 1/2)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* (pow p 2) (- (* -1 (/ (+ (* -1/2 (/ (- (+ (fabs p) (fabs r)) (* 2 q)) p)) (* -1/4 (/ r q))) p)) (* 1/8 (/ 1 q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1 (* p (+ (* -1/4 (/ r (* p q))) (* 1/8 (/ 1 q)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))))) p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (* (pow q 6) (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))))) p)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* p (+ (* -1/2 (/ (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* p (+ (* -1 (/ (- (* 1/2 (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))))) (/ 1 (* p (pow q 4)))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* p (+ (* -1 (/ (+ (* -1 (/ (+ (/ 1 (pow q 4)) (/ r (* p (pow q 4)))) p)) (* 1/2 (+ (/ r (pow q 6)) (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6)))))) p)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow q 2) (pow r 2)) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow q 2) (pow r 3)) p) (* -1 (* (pow q 2) (pow r 2)))) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* (pow q 2) r) (/ (* (pow q 2) (pow r 2)) p)) p)) (* -1 (pow q 2))) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow r 2))) (* -1 (/ (* (pow q 2) (pow r 3)) p))) p)) (* (pow q 2) r)) p)) (* -1 (pow q 2))) p))))
#s(approx (- p r) #s(hole binary64 (* -1 (* p (- (/ r p) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 r))) p)) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* 2 (/ (pow q 2) p))))) p)) 1)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -1 r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))) p)) 1)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 r)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ (* -1 r) (* 2 (/ (* (pow q 2) r) (pow p 2))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ (* -1 r) (+ (* 1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4))) (* 2 (/ (* (pow q 2) r) (pow p 2)))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ (* -1 r) (+ (* 1/2 (/ (* r (+ (* -16 (pow q 4)) (* 4 (pow q 4)))) (pow p 4))) (+ (* 1/2 (/ (* r (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6)))) (pow p 6))) (* 2 (/ (* (pow q 2) r) (pow p 2))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ -1 p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1 (* -2 (/ (pow q 2) (pow p 2)))) p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))))) p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (* -1/2 (/ (+ (* -16 (pow q 4)) (* 4 (pow q 4))) (pow p 4))) (* -1/2 (/ (+ (* 2 (* (pow q 2) (+ (* -16 (pow q 4)) (* 4 (pow q 4))))) (* 64 (pow q 6))) (pow p 6)))))) p))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow q 2) (pow r 2)) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow q 2) (pow r 3)) p) (* -1 (* (pow q 2) (pow r 2)))) p)) (* (pow q 2) r)) p)) (pow q 2)) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1/2 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (pow q 2) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* p (+ 1/2 (* -1 (/ (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (+ (fabs p) (fabs r))))) p)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2)))) p))) p)) (pow q 2)) p))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) r)) (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (* (pow q 2) (+ r (* 2 r))) (pow r 3))) p)) (* (pow q 2) (- (* -1 (pow q 2)) (* -1 (pow r 2))))) p))) p)) (pow q 2)) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (- (* (pow q 2) (+ r (* 2 r))) (pow r 3)) p)) (* -1 (pow q 2))) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (/ (pow r 3) p) (* -1 (pow r 2))) p)) r) p))) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p))) p))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* -1 (/ (- (* -1 (/ r p)) 1) p))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (+ r (* -1 (/ (pow q 2) p))) (* -1 (/ (pow r 2) p))) p)) 1) p))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* -1 (/ (+ (* -1 r) (* -1 (/ (- (* -1 (pow q 2)) (* -1 (pow r 2))) p))) p))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ (- (+ r (* -1 (/ (pow q 2) p))) (* -1 (/ (pow r 2) p))) p))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (+ 1 (/ r p)) p))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (+ (* -1 r) (/ (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) p)) p))) p))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (+ (* -1 r) (* -1 (/ (+ (* -1 (* (pow q 2) (+ 1 (* -1 (/ (pow r 2) (pow q 2)))))) (* -1 (/ (* (pow q 2) (- (+ r (* 2 r)) (/ (pow r 3) (pow q 2)))) p))) p))) p))) p))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (/ 1 (pow q 2)) (/ r (* p (pow q 2)))) p))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (+ (* -1 (/ (pow r 2) (* p (pow q 2)))) (/ 1 p)) (/ r (pow q 2))) p)) (/ 1 (pow q 2))) p))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (+ r (* 2 r)) (/ (pow r 3) (pow q 2))) p)) (+ 1 (* -1 (/ (pow r 2) (pow q 2))))) p)) (/ r (pow q 2))) p)) (/ 1 (pow q 2))) p))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (fabs r) r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (fabs r) r)) (/ (pow q 2) p))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (fabs r) r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) p)) (* (pow q 2) r)) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (fabs r) r)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (+ (/ (* (pow q 2) r) p) (pow q 2)) p)) (* 1/2 (+ r (fabs r))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow q 2) (pow r 2)) p)) (* (pow q 2) r)) p)) (pow q 2)) p)) (* 1/2 (+ r (fabs r))))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* (pow q 2) r) (/ (* (pow q 2) (pow r 2)) p)) p)) (* -1 (pow q 2))) p))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow q 2) (pow r 2))) (* -1 (/ (* (pow q 2) (pow r 3)) p))) p)) (* (pow q 2) r)) p)) (* -1 (pow q 2))) p))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) r) p)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) r)) (/ (pow q 2) p)) p)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) r) p)) (* -1 (pow q 2))) p)) (* 1/2 (- (+ (fabs p) (fabs r)) r))) p)) 1/2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 p))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (fabs r)) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) p)))) r) p)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p)))) r) p)) 1)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* p (- (* -1 (/ (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1)) p)) 1)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* p (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) p))) (/ r p))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ (* -2 (/ (pow q 2) p)) (* -1 (- (* -1 (+ (fabs p) (fabs r))) r))) p)))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) r) p)) 1)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) p))) r) p)) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) 1) p)) (/ 1 r))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1/2)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))) (* 1/2 (/ (+ (* 2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) (* (+ r (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))))) p))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 p))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 r) (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p))) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (- (+ (* -2 r) (* -1 (/ (- (+ (* 2 (/ (* (pow q 2) r) p)) (+ (* 2 (/ (* (pow q 2) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) p)) (+ (/ (* (+ r (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))) p) (pow (+ (fabs p) (fabs r)) 2)))) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p))) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow p 2) (- (* -1 (/ (- (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow r 2))) p)) (* 2 r)) p)) 1))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 p)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (fabs r))) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p))))) p)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))) p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 p)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ r p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -2 (/ (pow q 2) p))) p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (+ r (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) p)))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow r 2)) p)) (* 2 r)) p))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow p 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow r 2) p)) (* 2 r)) p))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) p)))) (* -1 r)) p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow p 2) (- (* -1 (/ (+ (* -1 (- (+ (fabs p) (fabs r)) (* -1 r))) (* 2 (/ (pow q 2) p))) p)) 1))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* -1 (* p (+ 1 (* -1 (/ (- (+ (fabs p) (fabs r)) (* -1 r)) p)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (fabs r) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* 2 (/ (pow q 2) p))) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -1 (/ (- (* -2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs r) (* -1 (/ (- (* -1 (/ (- (* -1/2 (/ (+ (* -4 (* (pow q 2) (pow r 2))) (* 4 (pow q 4))) p)) (* -2 (* (pow q 2) r))) p)) (* 2 (pow q 2))) p))) r)))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (* -1 (/ (+ (* -1 (/ (+ (* -2 (* (pow q 2) r)) (* -2 (/ (* (pow q 2) (pow r 2)) p))) p)) (* 2 (pow q 2))) p))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (* -1 (/ (+ (* -1 (/ (+ (* -2 (* (pow q 2) r)) (* -2 (/ (* (pow q 2) (pow r 2)) p))) p)) (* 2 (pow q 2))) p)))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -1 (/ (+ (* 2 (/ (* (pow q 2) r) p)) (* 2 (pow q 2))) p))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -2 (* (pow q 2) r)) (* -2 (/ (* (pow q 2) (pow r 2)) p))) p)) (* 2 (pow q 2))) p))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -2 (* (pow q 2) r)) (* -1 (/ (+ (* 2 (* (pow q 2) (pow r 2))) (* 2 (/ (* (pow q 2) (pow r 3)) p))) p))) p)) (* 2 (pow q 2))) p))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 p)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1/2 (/ (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))) p)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2))))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* p (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))) (* 1/2 (/ (+ (* 2 (* (pow q 2) r)) (+ (* 2 (* (pow q 2) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) (* (+ r (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ r (+ (fabs p) (fabs r))) (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r)))))) (pow r 2)))))))) p))) p)) (* 1/2 (- (* -2 r) (* -1 (+ r (+ (fabs p) (fabs r))))))) p)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (+ (* 1/4 (/ (* p r) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))))))
#s(approx r #s(hole binary64 r))
#s(approx (fabs r) #s(hole binary64 (fabs r)))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (+ (* -1/8 (/ (pow p 2) q)) (* 1/4 (/ (* p r) q)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2)))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* (pow q 2) (* r (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2))))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* r (+ (* (pow q 2) (* r (- (* (pow q 2) (- (+ (* 2 (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (pow p 5))) (+ (* -1 (/ (* (pow q 2) (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))))) (pow p 15))) (/ (* (pow q 2) (+ (* -4 (pow p 2)) (* -1 (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10))))) (/ 1 (pow p 6))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (* 3 (/ (+ p (* 2 p)) (pow p 7)))))) (/ 1 (pow p 4))))) (* (pow q 2) (- (* (pow q 2) (- (* 2 (+ (* -1 (/ (* (pow q 2) (pow (+ (* -4 (pow p 4)) (* -1 (pow p 4))) 2)) (pow p 15))) (/ (* (pow q 2) (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2)))))) (pow p 10)))) (+ (* 3 (/ 1 (pow p 5))) (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7)))))) (/ 1 (pow p 3)))))) (* (pow q 2) (- (* (pow q 2) (+ (* 2 (/ (* (pow q 2) (+ (* -4 (pow p 4)) (* -1 (pow p 4)))) (pow p 10))) (* 3 (/ 1 (pow p 4))))) (/ 1 (pow p 2))))))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow p 5))) (/ 1 (pow p 3)))) (/ 1 p)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* (pow q 6) (* r (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4))))))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 6) (* r (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4))))))))) (* (pow q 6) (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* r (+ (* r (+ (* -1 (* (pow q 6) (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4)))))))) (* (pow q 6) (* r (- (/ 1 (* (pow p 6) (pow q 2))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (* 3 (/ 1 (* (pow p 5) (pow q 2)))))) (pow p 3))) (+ (* 2 (- (* 4 (/ 1 (pow p 8))) (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (pow p 5))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow p 10))) (* 5 (/ (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))) (pow p 11))))))) (+ (* 3 (/ (+ p (* 2 p)) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 4) (pow q 4))))))))))) (* (pow q 6) (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))))) (* (pow q 6) (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (/ 1 (* (pow p 3) (pow q 2)))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (- (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* (pow p 3) (pow q 2))))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (- (+ (* -1 (* r (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4)))))))) (+ (* 1/2 (/ 1 (pow q 6))) (* 3 (/ 1 (* (pow p 4) (pow q 2)))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* (pow p 3) (pow q 2))))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) (pow q 6))) (+ (* r (- (+ (* 1/2 (/ 1 (pow q 6))) (+ (* 3 (/ 1 (* (pow p 4) (pow q 2)))) (* r (- (* r (- (/ 1 (* (pow p 6) (pow q 2))) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (* 3 (/ 1 (* (pow p 5) (pow q 2)))))) (pow p 3))) (+ (* 2 (- (* 4 (/ 1 (pow p 8))) (+ (* -1 (/ (* (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (pow p 5))) (+ (* -1 (/ (+ (* 2 (pow p 2)) (* 4 (pow p 2))) (pow p 10))) (* 5 (/ (+ (* 4 (pow p 3)) (* p (+ (* 2 (pow p 2)) (* 4 (pow p 2))))) (pow p 11))))))) (+ (* 3 (/ (+ p (* 2 p)) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 4) (pow q 4)))))))) (+ (* -2 (+ (* 5 (/ (+ (* -4 (pow p 4)) (* -1 (pow p 4))) (pow p 11))) (* 10 (/ 1 (pow p 7))))) (+ (* 3 (/ 1 (* (pow p 5) (pow q 2)))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (* (pow p 7) (pow q 2)))) (/ 1 (* (pow p 3) (pow q 4)))))))))) (+ (* 10 (/ 1 (pow p 6))) (/ 1 (* (pow p 2) (pow q 4)))))) (/ 1 (* (pow p 3) (pow q 2))))) (+ (* 2 (/ 1 (pow p 5))) (/ 1 (* p (pow q 4)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (- (+ (fabs p) (fabs r)) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (* -1 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* r (+ 1/2 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (* -1 (/ (pow q 2) p)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (/ (* (pow q 2) r) (pow p 2)) (/ (pow q 2) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* r (- (/ (* (pow q 2) r) (pow p 3)) (* -1 (/ (pow q 2) (pow p 2))))) (/ (pow q 2) p))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (+ (* r (- (* r (- (/ (* (pow q 2) r) (pow p 4)) (* -1 (/ (pow q 2) (pow p 3))))) (* -1 (/ (pow q 2) (pow p 2))))) (/ (pow q 2) p))))
#s(approx (- p r) #s(hole binary64 (+ p (* -1 r))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (- (+ (fabs p) (fabs r)) p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (* (pow q 2) r) (pow p 2))) (* -1 (/ (pow q 2) p)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* r (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))) (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (+ (* r (+ 1/2 (+ (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4)))))))) (* -1 (* (pow q 2) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (+ r (fabs p)) #s(hole binary64 (fabs p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* -1 (* (pow q 2) (* r (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6)))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6))))))) (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (* r (+ (* -1 (* (pow q 2) (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4)))))))) (* -1 (* (pow q 2) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))))))) (* (pow q 2) (- (/ (pow q 2) (pow p 3)) (/ 1 p))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (/ (pow q 2) (pow p 3)) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* -1 (* r (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (* -1 (* r (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (+ (* r (- (* r (- (* -1 (* r (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))) (pow p 3))) (+ (* -1 (/ (* (pow q 2) (* (+ p (* 2 p)) (+ (* -2 (pow p 2)) (* -1 (pow p 2))))) (pow p 9))) (+ (* -1 (/ (pow q 2) (pow p 6))) (/ 1 (pow p 4))))))) (+ (* -1 (/ (* (pow q 2) (pow (+ (* -2 (pow p 2)) (* -1 (pow p 2))) 2)) (pow p 9))) (+ (/ 1 (pow p 3)) (/ (* (pow q 2) (+ p (* 2 p))) (pow p 6)))))) (+ (/ 1 (pow p 2)) (/ (* (pow q 2) (+ (* -2 (pow p 2)) (* -1 (pow p 2)))) (pow p 6))))) (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (- (* -1 (/ r (pow p 2))) (/ 1 p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (- (* r (- (* -1 (/ r (pow p 3))) (/ 1 (pow p 2)))) (/ 1 p))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (- (* r (- (* r (- (* -1 (/ r (pow p 4))) (/ 1 (pow p 3)))) (/ 1 (pow p 2)))) (/ 1 p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (+ (* -1 (/ r (pow p 2))) (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (+ (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p)) (* r (- (* -1 (/ r (pow p 3))) (/ 1 (pow p 2)))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 3))) (+ (/ 1 p) (/ r (pow p 2))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 3))) (+ (* r (+ (/ 1 (pow p 2)) (/ r (pow p 3)))) (/ 1 p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (* -1 (/ (pow q 2) (pow p 2))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (/ 1 p) (/ r (pow p 2))))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* -1 (/ (pow q 2) (pow p 2)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 2))) (/ r p))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (/ 1 p) (/ r (pow p 2)))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (pow q 2) (pow p 2))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (+ (* -1 (/ r p)) (/ (pow q 2) (pow p 2)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (+ (* r (- (* -1 (/ r (pow p 2))) (/ 1 p))) (/ (pow q 2) (pow p 2)))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (/ (pow q 2) p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (+ (* -1 r) (/ (pow q 2) p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (+ (* r (- (* -1 (/ r p)) 1)) (/ (pow q 2) p))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (/ (pow q 2) p)))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (+ (* -1 (/ (pow r 2) p)) (/ (pow q 2) p))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (* -1 (/ (pow q 2) p))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (/ (pow r 2) p))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (* -1 (pow q 2))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (+ (* -1 (pow q 2)) (pow r 2))))
#s(approx (* -1 (* r r)) #s(hole binary64 (* -1 (pow r 2))))
#s(approx (* r r) #s(hole binary64 (pow r 2)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* (pow q 2) (* r (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2)))))) (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* r (+ (* -1 (* (pow q 2) (* r (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2)))))))) (* (pow q 2) (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2))))))) (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (+ (* r (+ (* r (+ (* -1 (* (pow q 2) (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2))))))) (* (pow q 2) (* r (- (/ 1 (pow p 6)) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (+ (* 3 (/ (+ p (* 2 p)) (pow p 7))) (/ 1 (* (pow p 4) (pow q 2)))))))))) (* (pow q 2) (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2))))))) (* (pow q 2) (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (/ 1 (pow p 3)) (/ 1 (* p (pow q 2))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* r (- (* 3 (/ 1 (pow p 4))) (/ 1 (* (pow p 2) (pow q 2))))) (/ 1 (pow p 3))) (/ 1 (* p (pow q 2))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* r (- (+ (* -1 (* r (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2))))))) (* 3 (/ 1 (pow p 4)))) (/ 1 (* (pow p 2) (pow q 2))))) (/ 1 (pow p 3))) (/ 1 (* p (pow q 2))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (+ (* r (- (+ (* 3 (/ 1 (pow p 4))) (* r (- (* r (- (/ 1 (pow p 6)) (+ (* -1 (/ (* (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (* 3 (/ 1 (pow p 5))))) (pow p 3))) (+ (* 3 (/ (+ p (* 2 p)) (pow p 7))) (/ 1 (* (pow p 4) (pow q 2))))))) (+ (* 3 (/ 1 (pow p 5))) (+ (* 3 (/ (+ (* -2 (pow p 2)) (* -1 (pow p 2))) (pow p 7))) (/ 1 (* (pow p 3) (pow q 2)))))))) (/ 1 (* (pow p 2) (pow q 2))))) (/ 1 (pow p 3))) (/ 1 (* p (pow q 2))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (* 1/2 (+ r (fabs r))) #s(hole binary64 (* 1/2 (fabs r))))
#s(approx (* 1/2 (+ r (fabs r))) #s(hole binary64 (+ (* 1/2 r) (* 1/2 (fabs r)))))
#s(approx (+ r (fabs r)) #s(hole binary64 (fabs r)))
#s(approx (+ r (fabs r)) #s(hole binary64 (+ r (fabs r))))
#s(approx (* 1/2 (- (fabs r) r)) #s(hole binary64 (* 1/2 (fabs r))))
#s(approx (* 1/2 (- (fabs r) r)) #s(hole binary64 (+ (* -1/2 r) (* 1/2 (fabs r)))))
#s(approx (- (fabs r) r) #s(hole binary64 (fabs r)))
#s(approx (- (fabs r) r) #s(hole binary64 (+ (fabs r) (* -1 r))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (* 1/2 (fabs r)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (fabs r)) (* r (+ 1/2 (* -1 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (fabs r)) (* r (+ 1/2 (+ (* -1 (/ (* (pow q 2) r) (pow p 3))) (* -1 (/ (pow q 2) (pow p 2))))))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) p)) (+ (* 1/2 (fabs r)) (* r (+ 1/2 (+ (* -1 (/ (pow q 2) (pow p 2))) (* r (+ (* -1 (/ (* (pow q 2) r) (pow p 4))) (* -1 (/ (pow q 2) (pow p 3))))))))))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (+ (/ (* (pow q 2) r) (pow p 2)) (/ (pow q 2) p))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (+ (* r (- (/ (* (pow q 2) r) (pow p 3)) (* -1 (/ (pow q 2) (pow p 2))))) (/ (pow q 2) p))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (+ (* r (- (* r (- (/ (* (pow q 2) r) (pow p 4)) (* -1 (/ (pow q 2) (pow p 3))))) (* -1 (/ (pow q 2) (pow p 2))))) (/ (pow q 2) p))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* -1/4 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* -1/4 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/4 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* -1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* r (- (* r (- (* -1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -2 (/ (pow q 2) r))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (fabs r)) (* -1 p)))) r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (+ (fabs r) (* -1 r))) (* -1 p)))) r)))
#s(approx (* -2 (/ (* q q) r)) #s(hole binary64 (* -2 (/ (pow q 2) r))))
#s(approx (/ (* q q) r) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (+ r (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ r p) (+ (/ (fabs p) p) (/ (fabs r) p)))) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* -2 (/ (pow q 2) (pow r 2)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (fabs r)) (* -1 p)))) (pow r 2))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* r (- (+ (fabs p) (+ (fabs r) (* -1 r))) (* -1 p)))) (pow r 2))))
#s(approx (* -2 (* (/ q r) (/ q r))) #s(hole binary64 (* -2 (/ (pow q 2) (pow r 2)))))
#s(approx (* (/ q r) (/ q r)) #s(hole binary64 (/ (pow q 2) (pow r 2))))
#s(approx (/ q r) #s(hole binary64 (/ q r)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* r (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* -1/2 (* r (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))) (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (* r (+ (* -1/2 (* r (+ (* 1/2 (* (/ (* p (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* (/ (* p (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* -1/2 (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (+ (* -1 (* r (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))) (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* r (- (+ (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (- (* -1 (* r (+ (* 1/2 (* (/ (* p (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* (/ (* p (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (/ (pow (+ (fabs p) (fabs r)) 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (+ (* 4 (/ (pow q 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (/ (pow p 2) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* 2 (* p r)) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* r (- (* -1 r) (* -2 p))) (pow (+ (fabs p) (fabs r)) 2)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (+ (fabs p) (+ (fabs r) (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* -1 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (pow q 2)) (pow p 2))) (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* r (+ (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow p 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* -2 (* p r)) (+ (* 4 (pow q 2)) (pow p 2)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (+ (* r (+ r (* -2 p))) (pow p 2)))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* -2 (* p r)) (pow p 2))))
#s(approx (pow (- p r) 2) #s(hole binary64 (+ (* r (+ r (* -2 p))) (pow p 2))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))) p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (+ r (+ (* -2 (/ (pow q 2) p)) (+ (fabs p) (+ (fabs r) (* -1 p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (+ (* -2 (pow q 2)) (+ (* p r) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (+ (* p r) (* p (+ (fabs p) (+ (fabs r) (* -1 p)))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (+ (fabs p) (+ (fabs r) (* -1 p)))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (+ r (+ (fabs p) (+ (fabs r) (* -1 p))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (+ (fabs r) (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (+ (fabs r) (* r (- (* -1/2 (* (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ p (+ (fabs r) (* r (- (* r (- (* -1/2 (* (* p (* r (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))) (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))))))) (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ (fabs r) (* -2 (/ (pow q 2) p)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* r (+ 1 (* -2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* r (+ 1 (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (* -2 (/ (pow q 2) (pow p 2))))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* r (+ 1 (+ (* -2 (/ (pow q 2) (pow p 2))) (* r (+ (* -2 (/ (* (pow q 2) r) (pow p 4))) (* -2 (/ (pow q 2) (pow p 3))))))))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* r (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (* -2 (/ (pow q 2) (pow p 2)))))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* r (+ (* -2 (/ (pow q 2) (pow p 2))) (* r (+ (* -2 (/ (* (pow q 2) r) (pow p 4))) (* -2 (/ (pow q 2) (pow p 3)))))))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (+ (* -2 (/ (* (pow q 2) r) (pow p 2))) (* -2 (/ (pow q 2) p)))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (+ (* -2 (/ (pow q 2) p)) (* r (+ (* -2 (/ (* (pow q 2) r) (pow p 3))) (* -2 (/ (pow q 2) (pow p 2))))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (+ (* -2 (/ (pow q 2) p)) (* r (+ (* -2 (/ (pow q 2) (pow p 2))) (* r (+ (* -2 (/ (* (pow q 2) r) (pow p 4))) (* -2 (/ (pow q 2) (pow p 3))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (* r (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* -1/2 (* r (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))))))) (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* r (+ (* 1/2 (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (* r (+ (* -1/2 (* r (+ (* 1/2 (* (/ (* p (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (pow (+ (* 4 (pow q 2)) (pow p 2)) 3))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* (/ (* p (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))) (* -1/2 (+ (* -1 (* (/ (* p (- (* 2 (/ p (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))) (* -1 (* (/ (* p (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))) (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))))) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (+ (* 1/2 (* (/ (* (- 1 (/ (pow p 2) (+ (* 4 (pow q 2)) (pow p 2)))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2)))) (pow (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))) 2)) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (/ 1 (+ (fabs p) (+ (fabs r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* r (+ (* 1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* 1/4 (/ (* p r) q))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* r (+ (* -1/8 (/ (pow p 2) (* q r))) (+ (* 1/4 (/ p q)) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* 2 q)) r)))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* r (+ (* -1/8 (/ (pow p 2) (* q r))) (* 1/4 (/ p q))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* r (+ (* -1/8 (/ p (* q r))) (* 1/4 (/ 1 q))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* 1/2 (/ r (pow q 6)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* r (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* r (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (+ (/ 1 (* (pow q 4) (pow r 2))) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* r (+ (* 1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (+ (/ 1 (* (pow q 4) (pow r 2))) (+ (* 1/2 (/ 1 (pow q 6))) (/ p (* (pow q 4) (pow r 3)))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (pow q 2))) r)))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (+ (/ (* (pow p 3) (pow q 2)) (pow r 3)) (pow q 2)))) r)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow p 2) (pow q 2)) (pow r 2))) (* -1 (pow q 2))) (/ (* p (pow q 2)) r)) r)))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow p 3) (pow q 2)) (pow r 3))) (* -1 (pow q 2))) (+ (/ (* p (pow q 2)) r) (/ (* (pow p 2) (pow q 2)) (pow r 2)))) r)))
#s(approx (- p r) #s(hole binary64 (* r (- (/ p r) 1))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* (* p r) (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* r (- (+ (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2))))) (+ (/ (fabs p) r) (/ (fabs r) r))) (* (/ 1 r) (sqrt (+ (* 4 (pow q 2)) (pow p 2))))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 r))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* r (- (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))) (/ p r)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (pow q 2))) r)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow p 2) (pow q 2)) (pow r 2)) (+ (/ (* (pow p 3) (pow q 2)) (pow r 3)) (pow q 2)))) r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 r))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (* r (+ 1 (+ (/ (fabs p) r) (/ (fabs r) r))))))
#s(approx (+ r (fabs p)) #s(hole binary64 r))
#s(approx (+ r (fabs p)) #s(hole binary64 (* r (+ 1 (/ (fabs p) r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (pow q 2) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (pow q 2))) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (+ (/ (* p (pow q 2)) r) (+ (/ (* (pow q 2) (+ (* -1 (pow q 2)) (pow p 2))) (pow r 2)) (+ (/ (* (pow q 2) (- (pow p 3) (* (pow q 2) (+ p (* 2 p))))) (pow r 3)) (pow q 2)))) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ 1 r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (+ 1 (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (/ (pow p 2) (pow r 2))))) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (- (+ 1 (+ (* -1 (/ (pow q 2) (pow r 2))) (+ (/ p r) (+ (/ (pow p 2) (pow r 2)) (/ (pow p 3) (pow r 3)))))) (/ (* (pow q 2) (+ p (* 2 p))) (pow r 3))) r)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (+ 1 (/ (pow p 2) (pow r 2))) (* -1 (/ p r))) r)))
#s(approx (/ -1 (- p r)) #s(hole binary64 (/ (- (+ 1 (/ (pow p 3) (pow r 3))) (+ (* -1 (/ p r)) (* -1 (/ (pow p 2) (pow r 2))))) r)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (pow r 2) (pow p 3)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (* (pow r 2) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3)))))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ (* -1 (/ (pow q 2) (pow p 3))) (/ 1 p)) (pow r 2))) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3)))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (pow r 2) (pow p 3))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow r 2) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* (pow p 3) (pow r 2)))) (+ (/ 1 (* p (pow r 2))) (+ (/ 1 (* (pow p 2) r)) (/ 1 (pow p 3))))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (/ (pow r 2) (pow p 2))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow r 2) (+ (/ 1 (* p r)) (/ 1 (pow p 2))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* (pow p 2) (pow r 2)))) (+ (/ 1 (* p r)) (+ (/ 1 (pow p 2)) (/ 1 (pow r 2))))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (/ (pow r 2) (pow p 2))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow r 2) (+ (/ 1 (* p r)) (/ 1 (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* (pow p 2) (pow r 2)))) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (/ (pow r 2) (pow p 2)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* -1 (* (pow r 2) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* (pow r 2) (- (/ (pow q 2) (* (pow p 2) (pow r 2))) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 (/ (pow r 2) p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* -1 (* (pow r 2) (+ (/ 1 p) (/ 1 r))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* (pow r 2) (- (/ (pow q 2) (* p (pow r 2))) (+ (/ 1 p) (/ 1 r))))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* -1 (/ (pow r 2) p))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* (pow r 2) (- (/ (pow q 2) (* p (pow r 2))) (/ 1 p)))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (/ (pow r 2) p)))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (pow q 2) (* p (pow r 2)))) (/ 1 p)))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (pow r 2)))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (pow q 2) (pow r 2)))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ 1 r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (+ 1 (/ p r)) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (+ 1 (+ (/ p r) (/ (* (pow q 2) (- (/ (pow p 2) (pow q 2)) 1)) (pow r 2)))) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (+ 1 (+ (/ p r) (+ (/ (* (pow q 2) (- (/ (pow p 2) (pow q 2)) 1)) (pow r 2)) (/ (* (pow q 2) (- (/ (pow p 3) (pow q 2)) (+ p (* 2 p)))) (pow r 3))))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ 1 (* (pow q 2) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (+ (/ 1 (pow q 2)) (/ p (* (pow q 2) r))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (/ 1 (pow q 2)) (+ (/ p (* (pow q 2) r)) (/ (pow p 2) (* (pow q 2) (pow r 2))))) (/ 1 (pow r 2))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (+ (/ 1 (pow q 2)) (+ (/ p (* (pow q 2) r)) (+ (/ (pow p 2) (* (pow q 2) (pow r 2))) (/ (pow p 3) (* (pow q 2) (pow r 3)))))) (+ (* 2 (/ p (pow r 3))) (+ (/ 1 (pow r 2)) (/ p (pow r 3))))) r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ p (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ p (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ p (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (* 1/2 (+ r (fabs r))) #s(hole binary64 (* 1/2 r)))
#s(approx (* 1/2 (+ r (fabs r))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (fabs r) r))))))
#s(approx (+ r (fabs r)) #s(hole binary64 r))
#s(approx (+ r (fabs r)) #s(hole binary64 (* r (+ 1 (/ (fabs r) r)))))
#s(approx (* 1/2 (- (fabs r) r)) #s(hole binary64 (* -1/2 r)))
#s(approx (* 1/2 (- (fabs r) r)) #s(hole binary64 (* r (- (* 1/2 (/ (fabs r) r)) 1/2))))
#s(approx (- (fabs r) r) #s(hole binary64 (* -1 r)))
#s(approx (- (fabs r) r) #s(hole binary64 (* r (- (/ (fabs r) r) 1))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* 1/2 r)))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* r (+ 1/2 (* 1/2 (/ (fabs r) r))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (fabs r) r)) (/ (pow q 2) (pow r 2)))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* r (+ 1/2 (+ (* 1/2 (/ (fabs r) r)) (+ (/ (* p (pow q 2)) (pow r 3)) (/ (pow q 2) (pow r 2))))))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow p 2) (pow q 2)) (pow r 2))) (* -1 (pow q 2))) (/ (* p (pow q 2)) r)) r)))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow p 3) (pow q 2)) (pow r 3))) (* -1 (pow q 2))) (+ (/ (* p (pow q 2)) r) (/ (* (pow p 2) (pow q 2)) (pow r 2)))) r)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r))) 1/2))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* r (- (+ (* -1 (/ (* p (pow q 2)) (pow r 3))) (+ (* -1 (/ (pow q 2) (pow r 2))) (* 1/2 (/ (- (+ (fabs p) (fabs r)) (* -1 p)) r)))) 1/2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 r)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (* p (pow q 2)) (pow r 3))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 r))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* r (+ 1 (/ (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)) r)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (/ r p)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (* (pow p 2) r))) (+ (/ 1 p) (+ (/ (fabs p) (* p r)) (/ (fabs r) (* p r))))) (/ 1 r)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 -1))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) 1/2))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2)))) 1/2))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* -1/2 (/ (+ (* -2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))))) (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2)))))))) (pow r 3))) (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2))))) 1/2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 r)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (* 2 (/ p r)) (+ 1 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (+ (* 2 (/ p r)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2))) (+ 1 (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow r 2)) (/ (pow p 2) (pow r 2)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* r (- (+ (* -1 (/ (+ (* -2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))))) (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2)))))))) (pow r 3))) (+ (* 2 (/ p r)) (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2)))) (+ 1 (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (+ (/ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow r 2)) (/ (pow p 2) (pow r 2)))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -1 (pow r 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (* 2 (/ p r)) 1))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow r 2)) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2)))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (/ (fabs p) r) (/ (fabs r) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (+ (* 2 (/ (pow q 2) (pow r 2))) (+ (/ (fabs p) r) (/ (fabs r) r)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (* -1 (/ p r))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow r 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (+ (* 4 (/ (pow q 2) (pow r 2))) (/ (pow p 2) (pow r 2))))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -2 (/ p r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (+ (* -2 (/ p r)) (/ (pow p 2) (pow r 2)))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 r))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* r (+ 1 (+ (* -2 (/ (pow q 2) (* p r))) (+ (* -1 (/ p r)) (+ (/ (fabs p) r) (/ (fabs r) r))))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* p r)))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* r (+ p (+ (* -2 (/ (pow q 2) r)) (/ (* p (+ (fabs p) (+ (fabs r) (* -1 p)))) r))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* p r)))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* r (+ p (/ (* p (+ (fabs p) (+ (fabs r) (* -1 p)))) r)))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 r))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* r (+ 1 (+ (* -1 (/ p r)) (+ (/ (fabs p) r) (/ (fabs r) r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (/ p r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (pow q 2) (pow r 2))) (+ (/ p r) (/ (fabs r) r))) (+ 1 (* -1 (/ p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* r (- (+ (* -2 (/ (* p (pow q 2)) (pow r 3))) (+ (/ p r) (/ (fabs r) r))) (+ 1 (+ (* -1 (/ p r)) (* 2 (/ (pow q 2) (pow r 2)))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 r))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* r (+ 1 (/ (fabs r) r)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* r (+ 1 (+ (* 2 (/ (pow q 2) (pow r 2))) (/ (fabs r) r))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* r (+ 1 (+ (* 2 (/ (* p (pow q 2)) (pow r 3))) (+ (* 2 (/ (pow q 2) (pow r 2))) (/ (fabs r) r)))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (+ (* 2 (/ (* p (pow q 2)) (pow r 2))) (+ (* 2 (/ (* (pow p 2) (pow q 2)) (pow r 3))) (* 2 (/ (pow q 2) r)))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r)))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (+ (* 2 (/ (* (pow p 2) (pow q 2)) (pow r 2))) (* 2 (pow q 2)))) r)))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (+ (* 2 (/ (* (pow p 2) (pow q 2)) (pow r 2))) (+ (* 2 (/ (* (pow p 3) (pow q 2)) (pow r 3))) (* 2 (pow q 2))))) r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1/2 r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2)))) 1/2))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* r (- (+ (* -1/2 (/ (+ (* -2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))))) (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2)))))))) (pow r 3))) (+ (* 1/2 (/ (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p))))) r)) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ (fabs p) (+ (fabs r) (* -1 p))) (- (* 2 p) (* -1 (+ (fabs p) (+ (fabs r) (* -1 p)))))) (pow p 2))))) (pow r 2))))) 1/2))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* r (+ (* -1/2 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1/2 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 (* r (+ (* -1 (/ (+ (* -1/8 (/ (pow p 2) q)) (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q)))) r)) (* -1/4 (/ p q)))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* -1 (* r (+ (* -1/4 (/ p q)) (* 1/8 (/ (pow p 2) (* q r))))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1 (* r (- (* 1/8 (/ p (* q r))) (* 1/4 (/ 1 q)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) r)) 1/2)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))))) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (* (pow q 6) (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))))) r)) 1/2)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6)))) (/ 1 (* (pow q 4) r))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (- (* -1 (/ p (* (pow q 4) r))) (/ 1 (pow q 4))) r)) (* 1/2 (- (+ (/ (fabs p) (pow q 6)) (/ (fabs r) (pow q 6))) (/ p (pow q 6))))) r)) (* 1/2 (/ 1 (pow q 6))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* p (pow q 2)) (/ (* (pow p 2) (pow q 2)) r)) r)) (* -1 (pow q 2))) r))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow p 2) (pow q 2))) (* -1 (/ (* (pow p 3) (pow q 2)) r))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow p 2) (pow q 2)) r)) (* p (pow q 2))) r)) (pow q 2)) r))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow p 3) (pow q 2)) r) (* -1 (* (pow p 2) (pow q 2)))) r)) (* p (pow q 2))) r)) (pow q 2)) r))))
#s(approx (- p r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* r (+ (* -1 (* p (sqrt (/ 1 (+ (* 4 (pow q 2)) (pow p 2)))))) (* -1 (/ (- (+ (fabs p) (fabs r)) (sqrt (+ (* 4 (pow q 2)) (pow p 2)))) r)))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* p (pow q 2)) (/ (* (pow p 2) (pow q 2)) r)) r)) (* -1 (pow q 2))) r))))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (* (pow p 2) (pow q 2))) (* -1 (/ (* (pow p 3) (pow q 2)) r))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (+ (+ r (fabs p)) (fabs r)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (fabs r)) r)) 1)))))
#s(approx (+ r (fabs p)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (fabs p) r)) 1)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (pow p 3) (* (pow q 2) (+ p (* 2 p))))) r)) (* (pow q 2) (+ (* -1 (pow p 2)) (pow q 2)))) r)) (* p (pow q 2))) r)) (* -1 (pow q 2))) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (pow p 2)) (pow q 2)) r))) r)) 1) r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (/ (- (pow p 3) (* (pow q 2) (+ p (* 2 p)))) r)) (+ (* -1 (pow p 2)) (pow q 2))) r))) r)) 1) r))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (/ (pow p 2) r) (* -1 p)) r)) 1) r))))
#s(approx (/ -1 (- p r)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (* -1 (/ (pow p 3) r)) (pow p 2)) r)) (* -1 p)) r)) 1) r))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ (* -1 (/ (pow q 2) (* (pow p 3) r))) (+ (/ 1 (* p r)) (/ 1 (pow p 2)))) r)) (/ 1 (pow p 3))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (- (* -1 (/ (+ (* -1 (/ (pow q 2) (pow p 3))) (/ 1 p)) r)) (/ 1 (pow p 2))) r)) (/ 1 (pow p 3))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (- (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (pow p 2)))) r)) (/ 1 p)) r)) (/ 1 (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow r 2) (+ (* -1 (/ (- (/ (pow q 2) (* (pow p 2) r)) (/ 1 p)) r)) (/ 1 (pow p 2))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ (* -1 (/ (pow q 2) (* (pow p 2) r))) (/ 1 p)) r)) (/ 1 (pow p 2))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (+ 1 (* -1 (/ (pow q 2) (* p r)))) r)) (/ 1 p)))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (- (* -1 (/ p r)) 1) r))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (* (pow q 2) (+ 1 (* -1 (/ (pow p 2) (pow q 2))))) r))) r)) 1) r))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ p (* -1 (/ (+ (* -1 (/ (* (pow q 2) (- (/ (pow p 3) (pow q 2)) (+ p (* 2 p)))) r)) (* (pow q 2) (+ 1 (* -1 (/ (pow p 2) (pow q 2)))))) r))) r)) 1) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ p (* (pow q 2) r))) (/ 1 (pow q 2))) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ (* -1 (/ (+ 1 (* -1 (/ (pow p 2) (pow q 2)))) r)) (/ p (pow q 2))) r)) (/ 1 (pow q 2))) r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (+ (* -1 (/ (+ 1 (+ (* -1 (/ (- (/ (pow p 3) (pow q 2)) (+ p (* 2 p))) r)) (* -1 (/ (pow p 2) (pow q 2))))) r)) (/ p (pow q 2))) r)) (/ 1 (pow q 2))) r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (fabs r) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (fabs r)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (fabs r))) r)) 1/2)))))
#s(approx (* 1/2 (+ r (fabs r))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (fabs r) r)) 1/2)))))
#s(approx (+ r (fabs r)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (fabs r) r)) 1)))))
#s(approx (* 1/2 (- (fabs r) r)) #s(hole binary64 (* -1 (* r (+ 1/2 (* -1/2 (/ (fabs r) r)))))))
#s(approx (- (fabs r) r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (fabs r) r)))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (fabs r) r)) 1/2)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (fabs r)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (fabs r))) r)) 1/2)))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (* -1 (/ (+ (/ (* p (pow q 2)) r) (pow q 2)) r))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (* (pow p 2) (pow q 2)) r)) (* p (pow q 2))) r)) (pow q 2)) r))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (- (/ (* (pow p 3) (pow q 2)) r) (* -1 (* (pow p 2) (pow q 2)))) r)) (* p (pow q 2))) r)) (pow q 2)) r))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (+ (fabs p) (fabs r)) p) r)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* 1/2 (- (+ (fabs p) (fabs r)) p)) (/ (pow q 2) r)) r)) 1/2)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* p (pow q 2)) r)) (* -1 (pow q 2))) r)) (* 1/2 (- (+ (fabs p) (fabs r)) p))) r)) 1/2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 r))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (fabs r)) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) r)))) p) r)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* -2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r)))) p) r)) 1)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* r (- (+ 1 (* -1 (/ (+ (fabs p) (fabs r)) r))) (/ p r))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ (* -2 (/ (pow q 2) r)) (* -1 (- (* -1 (+ (fabs p) (fabs r))) p))) r)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (* p (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1)) r)) 1)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 (/ (pow q 2) (pow p 2))) (+ (/ (fabs p) p) (/ (fabs r) p))) 1) r)) (/ 1 p))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (* -1 (+ (fabs p) (fabs r))) p) r)) 1)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (- (* -1 (/ (- (+ (* -1 (+ (fabs p) (fabs r))) (* 2 (/ (pow q 2) r))) p) r)) 1)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1/2)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))) (* 1/2 (/ (+ (* 2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) (* (+ p (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))))) r))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 r))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 p) (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r))) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (- (+ (* -2 p) (* -1 (/ (- (+ (* 2 (/ (* p (pow q 2)) r)) (+ (* 2 (/ (* (pow q 2) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) r)) (+ (/ (* (+ p (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))) r) (pow (+ (fabs p) (fabs r)) 2)))) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r))) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow r 2) (- (* -1 (/ (- (* -1 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* 4 (pow q 2)) (pow p 2))) r)) (* 2 p)) r)) 1))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (fabs r))) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) r))))) r)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))))) r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ p r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -2 (/ (pow q 2) r))) r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* r (+ 1 (* -1 (/ (+ p (* -1 (/ (+ (* 2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* 4 (pow q 2)) (pow p 2)) r)) (* 2 p)) r))))))
#s(approx (pow (- p r) 2) #s(hole binary64 (* (pow r 2) (+ 1 (* -1 (/ (+ (* -1 (/ (pow p 2) r)) (* 2 p)) r))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* -1 p)))) r)) 1)))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* -1 (* r (+ (* -1 p) (* -1 (/ (+ (* -2 (pow q 2)) (* p (+ (fabs p) (+ (fabs r) (* -1 p))))) r)))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) #s(hole binary64 (* -1 (* r (+ (* -1 p) (* -1 (/ (* p (+ (fabs p) (+ (fabs r) (* -1 p)))) r)))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 p))) r)) 1)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 r))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (fabs r) r)) 1)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs r) (* 2 (/ (pow q 2) r))) r)) 1)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs r) (* -1 (/ (- (* -2 (/ (* p (pow q 2)) r)) (* 2 (pow q 2))) r))) r)) 1)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (fabs r) r)) 1)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs r) (* 2 (/ (pow q 2) r))) r)) 1)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (fabs r) (* -1 (/ (+ (* -2 (/ (* p (pow q 2)) r)) (* -2 (pow q 2))) r))) r)) 1)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (* -1 (/ (+ (* -2 (/ (* p (pow q 2)) r)) (* -2 (pow q 2))) r)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (* -1 (/ (+ (* -2 (pow q 2)) (* -1 (/ (+ (* 2 (* p (pow q 2))) (* 2 (/ (* (pow p 2) (pow q 2)) r))) r))) r)))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -2 (/ (* p (pow q 2)) r)) (* -2 (pow q 2))) r))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -2 (pow q 2)) (* -1 (/ (+ (* 2 (* p (pow q 2))) (* 2 (/ (* (pow p 2) (pow q 2)) r))) r))) r))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -1 (/ (+ (* -2 (pow q 2)) (* -1 (/ (+ (* -1 (/ (+ (* -2 (* (pow p 2) (pow q 2))) (* -2 (/ (* (pow p 3) (pow q 2)) r))) r)) (* 2 (* p (pow q 2)))) r))) r))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 r)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1/2 (/ (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))) r)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2))))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* r (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))) (* 1/2 (/ (+ (* 2 (* p (pow q 2))) (+ (* 2 (* (pow q 2) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) (* (+ p (+ (fabs p) (fabs r))) (- (pow (+ (fabs p) (fabs r)) 2) (+ (* -2 (pow q 2)) (+ (* 4 (pow q 2)) (+ (* (+ p (+ (fabs p) (fabs r))) (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r)))))) (pow p 2)))))))) r))) r)) (* 1/2 (- (* -2 p) (* -1 (+ p (+ (fabs p) (fabs r))))))) r)) 1/2)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (+ (* 1/2 (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p)))) (* (pow q 2) (+ (* 1/2 (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5)))))) (* 1/2 (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3))))))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (/ (* p (+ (* -1/8 p) (* 1/4 r))) q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (/ (+ (* 1/2 (* q (+ (fabs p) (fabs r)))) (* p (+ (* -1/8 p) (* 1/4 r)))) q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (/ (+ (* p (+ (* -1/8 p) (* 1/4 r))) (* q (+ (* -1 q) (* 1/2 (+ (fabs p) (fabs r)))))) q)))
#s(approx q #s(hole binary64 q))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (+ (fabs p) (fabs r))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (+ (fabs p) (+ (fabs r) (* -2 q)))))
#s(approx (* 2 q) #s(hole binary64 (* 2 q)))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (/ (* p (+ (* -1/8 p) (* 1/4 r))) q)))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (/ (+ (* -1/8 p) (* 1/4 r)) q)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (pow q 6) #s(hole binary64 (pow q 6)))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))) (pow q 6))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))))) (pow q 6))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r))))) (pow q 6))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* -1 (/ (* q q) (- p r))) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (/ (* q q) (- p r)) #s(hole binary64 (/ (pow q 2) (- p r))))
#s(approx (* q q) #s(hole binary64 (pow q 2)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* -2 (/ r (pow p 2))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 6 (/ r (pow p 4))) (* 2 (/ 1 (pow p 3)))))) (* 2 (/ 1 p))))))) p)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* 2 (/ 1 (pow p 3))) (+ (* 6 (/ r (pow p 4))) (* (pow q 2) (- (* -20 (/ r (pow p 6))) (* 4 (/ 1 (pow p 5))))))))) (* 2 (/ 1 p))))))) p)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (* (pow q 2) (+ (* -2 (/ r (pow p 2))) (* 6 (/ (* (pow q 2) r) (pow p 4))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (+ r (* (pow q 2) (+ (* -2 (/ r (pow p 2))) (* (pow q 2) (+ (* -20 (/ (* (pow q 2) r) (pow p 6))) (* 6 (/ r (pow p 4))))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* -2 (/ (pow q 2) (pow p 3))) (/ 1 p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow q 2) (- (* 6 (/ (pow q 2) (pow p 5))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (+ (* (pow q 2) (- (* (pow q 2) (+ (* -20 (/ (pow q 2) (pow p 7))) (* 6 (/ 1 (pow p 5))))) (* 2 (/ 1 (pow p 3))))) (/ 1 p))))
#s(approx (/ -1/2 q) #s(hole binary64 (/ -1/2 q)))
#s(approx (/ 1/2 q) #s(hole binary64 (/ 1/2 q)))
#s(approx (/ (neg (* q q)) (- p r)) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (neg (* q q)) #s(hole binary64 (* -1 (pow q 2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ -1 (- p r))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (+ (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p)) (/ (pow q 2) (pow p 3)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (/ (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (+ (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) (pow p 2))) (+ (* -1 (/ (pow q 2) (pow p 3))) (/ 1 p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (+ 1 (+ (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p)) (* -1 (/ (pow q 2) (pow p 2)))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (+ (* -1 (/ (- (* -1 (/ (pow r 2) p)) r) p)) (* -1 (/ (pow q 2) (pow p 2))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (/ (- (* -1 (/ (pow r 2) p)) r) p)))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (- (+ (* -1 (/ (pow r 2) (pow p 2))) (/ (pow q 2) (pow p 2))) (/ r p))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (- (* -1 (/ (pow r 2) p)) r)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (- (+ (* -1 (/ (pow r 2) p)) (/ (pow q 2) p)) r)))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (- (* -1 (pow q 2)) (* -1 (pow r 2)))))
#s(approx (* -1 (* q q)) #s(hole binary64 (* -1 (pow q 2))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ -1 (- p r))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ -1 (* (pow q 2) (- p r)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r))) (pow q 2))))
#s(approx (pow q 2) #s(hole binary64 (pow q 2)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (+ r (fabs r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (+ r (fabs r))) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r))))))
#s(approx (/ (pow q 2) (- p r)) #s(hole binary64 (/ (pow q 2) (- p r))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (/ (pow q 2) (pow (- p r) 3)) (/ 1 (- p r)))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (+ (* 1/2 (- (+ r (+ (fabs p) (fabs r))) p)) (* (pow q 2) (- (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 5))) (/ 1 (pow (- p r) 3)))) (/ 1 (- p r)))))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (fabs r))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (- (+ r (+ (fabs p) (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))) p)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (+ (* -2 (/ (pow q 2) r)) (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (+ (* -2 (/ (pow q 2) p)) (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* -1/2 (* (pow q 2) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (+ (* 2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (pow (- p r) 3) (- (+ p (+ (fabs p) (fabs r))) r)))) (* 4 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 5) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))) (* -1/2 (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* -1 (* (pow q 2) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* (pow q 2) (- (* -1 (* (pow q 2) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (- (+ (* (pow q 2) (- (* (pow q 2) (- (* -1 (* (pow q 2) (+ (* -2 (/ (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (+ (* 2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (pow (- p r) 3) (- (+ p (+ (fabs p) (fabs r))) r)))) (* 4 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 5) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (/ (pow (+ (fabs p) (fabs r)) 2) (- (+ p (+ (fabs p) (fabs r))) r))) (/ (pow (- p r) 2) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (- (+ (* -4 (pow q 2)) (pow (+ (fabs p) (fabs r)) 2)) (pow (- p r) 2))))
#s(approx (* -4 (* q q)) #s(hole binary64 (* -4 (pow q 2))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (fabs r))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* 2 (/ (pow q 2) (- p r)))))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))) r)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (- (+ p (+ (fabs p) (+ (fabs r) (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- p r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* 2 (/ (pow q 2) (- p r)))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* -2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (- (+ p (* (pow q 2) (+ (* (pow q 2) (- (* 4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))) r)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (pow (- p r) 2)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (+ (* 4 (pow q 2)) (pow (- p r) 2))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (- (+ (fabs p) (+ (fabs r) (+ (* -2 (/ (pow q 2) p)) (* -1 p)))) (* -1 r))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (fabs r))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (+ (fabs r) (* (pow q 2) (- (* 2 (/ (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (- p r)))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (+ r (+ (fabs r) (* (pow q 2) (- (* (pow q 2) (+ (* -4 (/ (pow q 2) (pow (- p r) 5))) (* 2 (/ 1 (pow (- p r) 3))))) (* 2 (/ 1 (- p r)))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) #s(hole binary64 (* -2 (/ (pow q 2) (- p r)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* -1/2 (* (pow q 2) (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))))) (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (+ (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (- (+ p (+ (fabs p) (fabs r))) r))) (* (pow q 2) (+ (* -1/2 (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r))))) (* (pow q 2) (+ (* -1/2 (* (pow q 2) (+ (* -2 (/ (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2))))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (+ (* 2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (pow (- p r) 3) (- (+ p (+ (fabs p) (fabs r))) r)))) (* 4 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 5) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))) (* -1/2 (+ (* -2 (/ (+ (* 2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (- p r) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))) (* 4 (/ 1 (- (+ p (+ (fabs p) (fabs r))) r)))) (* (- p r) (- (+ p (+ (fabs p) (fabs r))) r)))) (* -2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (* (pow (- p r) 3) (pow (- (+ p (+ (fabs p) (fabs r))) r) 2)))))))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2)))) 1))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (+ (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 4))) (* 1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) (pow q 2))))) 1))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (/ (* p (+ (* -1/8 p) (* 1/4 r))) (pow q 2))) 1))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* -2 (/ (pow q 6) (pow (- p r) 5)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (/ 1 (* (pow q 2) (pow (- p r) 3)))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* -2 (/ (pow q 6) (pow (- p r) 5)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (/ 1 (* (pow q 4) (- p r))) (* 2 (/ 1 (pow (- p r) 5))))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) #s(hole binary64 (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (/ 1 (* (pow q 2) (pow (- p r) 3)))) (+ (/ 1 (* (pow q 4) (- p r))) (* 2 (/ 1 (pow (- p r) 5))))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (/ -2 (pow (- p r) 5))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (* 2 (/ 1 (pow (- p r) 5))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (/ 1 (* (pow q 2) (pow (- p r) 3))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) #s(hole binary64 (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (/ 1 (* (pow q 2) (pow (- p r) 3)))) (+ (* 2 (/ 1 (pow (- p r) 5))) (/ 1 (* (pow q 4) (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(hole binary64 (* (pow q 2) (- (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 2))) (/ 1 (- p r))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -2 q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow p 2) (pow q 2))))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* q (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 4))) (+ (* 1/2 (/ (* p r) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q)))) (+ 2 (+ (* -1/64 (/ (pow p 4) (pow q 4))) (* 1/4 (/ (pow p 2) (pow q 2)))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (/ (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r)))) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1 (/ (* p (* r (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))))) (pow q 6))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (/ (pow q 4) (pow (- p r) 3))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 4) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) #s(hole binary64 (* (pow q 4) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 4))) (/ 1 (pow (- p r) 3))) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (/ (pow q 4) (pow (- p r) 3))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) #s(hole binary64 (* (pow q 4) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (/ (pow q 2) (pow (- p r) 3))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) #s(hole binary64 (* (pow q 2) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (/ (pow q 2) (pow p 3))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) #s(hole binary64 (* (pow q 2) (+ (* -1 (/ (+ (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) p)) (/ 1 p)) (pow q 2))) (/ 1 (pow p 3))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* -1 (/ (pow q 2) (pow p 3)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) (* p (pow q 2)))) (/ 1 (* p (pow q 2)))) (/ 1 (pow p 3))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* -1 (/ (pow q 2) (pow p 2)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) (pow q 2))) (/ 1 (pow q 2))) (/ 1 (pow p 2))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) #s(hole binary64 (* (pow q 2) (- (* -1 (/ (- (* -1 (/ (pow r 2) (pow p 2))) (/ r p)) (pow q 2))) (/ 1 (pow p 2))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (pow r 2) (* (pow p 2) (pow q 2)))) (/ 1 (pow p 2))) (/ r (* p (pow q 2)))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ (pow r 2) (* p (pow q 2)))) (/ 1 p)) (/ r (pow q 2))))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) #s(hole binary64 (* (pow q 2) (+ (* -1 (/ (pow r 2) (* p (pow q 2)))) (/ 1 p)))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) #s(hole binary64 (* (pow q 2) (- (/ (pow r 2) (* p (pow q 2))) (/ 1 p)))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) #s(hole binary64 (* (pow q 2) (- (/ (pow r 2) (pow q 2)) 1))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (/ (pow q 2) (pow (- p r) 3))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) #s(hole binary64 (* (pow q 2) (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r)))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (/ 1 (pow (- p r) 3))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) #s(hole binary64 (- (/ 1 (pow (- p r) 3)) (/ 1 (* (pow q 2) (- p r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ p (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ p (fabs r)) q))) 1))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ p (fabs r)) q)))) 1))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* -1 (/ (pow q 2) (- p r)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) #s(hole binary64 (* (pow q 2) (- (* 1/2 (/ (+ r (fabs r)) (pow q 2))) (/ 1 (- p r))))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (+ (fabs p) (fabs r)) q))) 1))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* q (- (+ (* -1/8 (/ (pow (- p r) 2) (pow q 2))) (+ (* 1/128 (/ (pow (- p r) 4) (pow q 4))) (* 1/2 (/ (+ (fabs p) (fabs r)) q)))) 1))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (/ (fabs p) q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) #s(hole binary64 (* (pow q 2) (- (/ (* r (- (+ (/ (fabs p) r) (/ (fabs r) r)) (+ 1 (* -1 (/ p r))))) (pow q 2)) (* 2 (/ 1 r))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) #s(hole binary64 (* (pow q 2) (- (/ (* p (- (+ (/ (fabs p) p) (/ (fabs r) p)) (+ 1 (* -1 (/ r p))))) (pow q 2)) (* 2 (/ 1 p))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* p (pow q 2))) (/ (fabs r) (* p (pow q 2)))) (+ (* -1 (/ r (* p (pow q 2)))) (+ (* 2 (/ 1 (pow p 2))) (/ 1 (pow q 2))))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(hole binary64 (* (pow q 2) (- (+ (/ (fabs p) (* (pow q 2) r)) (/ (fabs r) (* (pow q 2) r))) (+ (* -1 (/ p (* (pow q 2) r))) (+ (* 2 (/ 1 (pow r 2))) (/ 1 (pow q 2))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2)))) 1))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* -1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) (pow q 3))) (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2))))) 1))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -2 q)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (+ (/ (fabs p) q) (/ (fabs r) q)) 2))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (pow q 2))) (+ 2 (+ (* -1 (/ (+ (fabs p) (fabs r)) q)) (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* q (- (+ (* -1 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) (pow q 3))) (* 1/2 (/ (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2)) (pow q 2)))) (+ 2 (+ (* -1 (/ (+ (fabs p) (fabs r)) q)) (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (* 1/2 (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2))))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* -4 (pow q 2))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) #s(hole binary64 (* (pow q 2) (- (/ (pow (+ (fabs p) (fabs r)) 2) (pow q 2)) (+ 4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* 2 q)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (/ (fabs p) q) (/ (fabs r) q))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (* 1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ (fabs p) q) (/ (fabs r) q))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* 2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* 4 (pow q 2))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) #s(hole binary64 (* (pow q 2) (+ 4 (/ (pow (- p r) 2) (pow q 2))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) #s(hole binary64 (* (pow q 2) (- (+ (* -1 (/ p (pow q 2))) (+ (/ (fabs p) (pow q 2)) (/ (fabs r) (pow q 2)))) (+ (* -1 (/ r (pow q 2))) (* 2 (/ 1 p)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) #s(hole binary64 (* (pow q 2) (- (/ (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (pow q 2)) 2))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -2 q)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (/ p q) (/ (fabs r) q)) 2))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* -1/4 (/ (pow (- p r) 2) (pow q 2))) (+ (/ p q) (/ (fabs r) q))) 2))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* q (- (+ (* 1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (/ p q) (/ (fabs r) q))) (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* -2 (/ (pow q 2) (- p r)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) #s(hole binary64 (* (pow q 2) (- (+ (/ r (pow q 2)) (/ (fabs r) (pow q 2))) (* 2 (/ 1 (- p r)))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (* -2 (/ (pow q 2) (- p r)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) #s(hole binary64 (* (pow q 2) (- (/ (fabs r) (pow q 2)) (* 2 (/ 1 (- p r)))))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 q)))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (* 1/2 (/ (+ (fabs p) (fabs r)) q)) 1))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2)))) 1))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* q (- (+ (* -1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) (pow q 3))) (+ (* 1/2 (/ (+ (fabs p) (fabs r)) q)) (* 1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) (pow q 2))))) 1))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 q))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (* p r)) (* 1/4 (pow p 2)))) (* 1/2 (/ (- (* -1/16 (* (pow p 3) r)) (* -1/64 (pow p 4))) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 (* q (+ 1 (* -1/2 (/ (+ (fabs p) (fabs r)) q)))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) #s(hole binary64 (* -1 (* q (+ 1 (* -1 (/ (+ (* -1 (/ (* p (+ (* -1/4 r) (* 1/8 p))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)))))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (fabs r)) q)))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) #s(hole binary64 (* -1 (/ (* p (+ (* -1/4 r) (* 1/8 p))) q))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) #s(hole binary64 (* -1 (/ (+ (* -1/4 r) (* 1/8 p)) q))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* 2 q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/2 (* p r)) (* 1/4 (pow p 2))) q)))) q)) 2)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) (+ (* -1/64 (/ (pow p 4) (pow q 2))) (* 1/4 (pow p 2)))) q)))) q)) 2)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1/2 (/ (* p r) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 (/ (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r)))) q))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* p (* r (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))))) (pow q 4))) (+ (* -1 (/ (* p (* r (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))))) (pow q 6))) (+ (* -1/16 (/ (* (pow p 3) r) (pow q 2))) (* 1/2 (* p r))))) q))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (/ -1/2 q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1/2 (* -1/16 (/ (pow p 2) (pow q 2)))) q))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (* -1/16 (/ (pow p 2) (pow q 2))))) q))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) #s(hole binary64 (* -1 (/ (+ 1/2 (+ (* -1 (/ (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4))) (pow q 4))) (+ (* -1 (/ (+ (* 1/256 (pow p 6)) (* 1/8 (* (pow p 2) (+ (* -1/64 (pow p 4)) (* 1/256 (pow p 4)))))) (pow q 6))) (* -1/16 (/ (pow p 2) (pow q 2)))))) q))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ p (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ p (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ p (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 q))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* 1/8 (/ (pow (- p r) 2) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (pow (- p r) 2)) (* 1/128 (/ (pow (- p r) 4) (pow q 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* 1/4 (/ (pow (- p r) 2) q)))) q)) 2)))))
#s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)) 2)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 q))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))) (* 1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) q))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* 2 q)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (fabs p) (fabs r)) q)) 2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (- (* -1 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* -1 (+ (fabs p) (fabs r)))) q)) 2)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (- (* -1 (/ (- (+ (* 1/8 (/ (* (+ (fabs p) (fabs r)) (pow (- p r) 2)) q)) (+ (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (* 1/2 (/ (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))) q)))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* -1 (+ (fabs p) (fabs r)))) q)) 2)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -2 q)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (fabs r)) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1/4 (/ (pow (- p r) 2) q)))) q)))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) #s(hole binary64 (* -1 (* q (+ 2 (* -1 (/ (+ (fabs p) (+ (fabs r) (* -1 (/ (+ (* -1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -2 q)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (* 1/4 (/ (pow (- p r) 2) (pow q 2)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) #s(hole binary64 (* -1 (* q (+ 2 (+ (* -1/64 (/ (pow (- p r) 4) (pow q 4))) (+ (* 1/512 (/ (pow (- p r) 6) (pow q 6))) (* 1/4 (/ (pow (- p r) 2) (pow q 2))))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* 2 q)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ p (fabs r)) q)) 2)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ p (+ (fabs r) (* 1/4 (/ (pow (- p r) 2) q)))) q)) 2)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ p (+ (fabs r) (* -1 (/ (- (* 1/64 (/ (pow (- p r) 4) (pow q 2))) (* 1/4 (pow (- p r) 2))) q)))) q)) 2)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 q))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1/2 (/ (+ (fabs p) (fabs r)) q)) 1)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1/2 (/ (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2)))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
#s(approx (* (/ 1 2) (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) #s(hole binary64 (* -1 (* q (- (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))) (* 1/2 (/ (+ (* 1/8 (* (+ (fabs p) (fabs r)) (pow (- p r) 2))) (* 1/2 (* (+ (fabs p) (fabs r)) (- (* 1/2 (- (pow (+ (fabs p) (fabs r)) 2) (pow (- p r) 2))) (+ (* -1/4 (pow (- p r) 2)) (* 1/2 (pow (+ (fabs p) (fabs r)) 2))))))) q))) q)) (* 1/2 (+ (fabs p) (fabs r)))) q)) 1)))))
Outputs
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))
(*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q))
#s(literal 1/4 binary64)
(/.f64 (neg.f64 (*.f64 p r)) (neg.f64 q))
(/.f64 (*.f64 p r) q)
(*.f64 p r)
p
r
q
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))) (*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))))
#s(literal 1/2 binary64)
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))
(fma.f64 (sqrt.f64 p) (sqrt.f64 p) (fabs.f64 r))
(+.f64 (fabs.f64 p) (fabs.f64 r))
(*.f64 (sqrt.f64 p) (sqrt.f64 p))
(pow.f64 (*.f64 p p) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 p p))
(fabs.f64 (neg.f64 p))
(fabs.f64 p)
(sqrt.f64 (*.f64 r r))
(fabs.f64 (neg.f64 r))
(fabs.f64 r)
(*.f64 #s(literal 2 binary64) q)
#s(literal 2 binary64)
(*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))
(*.f64 #s(literal -1/8 binary64) (/.f64 p q))
#s(literal -1/8 binary64)
(/.f64 (neg.f64 p) (neg.f64 q))
(/.f64 p q)
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) #s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) #s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64)))))))
(*.f64 (pow.f64 q #s(literal 6 binary64)) #s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64))))))
(pow.f64 q #s(literal 6 binary64))
(exp.f64 (*.f64 (log.f64 q) #s(literal 6 binary64)))
#s(literal 6 binary64)
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64)))))
(*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64))))
#s(literal -1/2 binary64)
(/.f64 (neg.f64 p) (neg.f64 (pow.f64 q #s(literal 6 binary64))))
(/.f64 p (pow.f64 q #s(literal 6 binary64)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) #s(approx (- p r) p)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) #s(approx (- p r) p))))
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) #s(approx (- p r) p)))
#s(literal -1 binary64)
(/.f64 (neg.f64 (*.f64 q q)) (neg.f64 #s(approx (- p r) p)))
(/.f64 (*.f64 q q) #s(approx (- p r) p))
(*.f64 (neg.f64 q) (neg.f64 q))
(*.f64 (fabs.f64 q) (fabs.f64 q))
(*.f64 q q)
(pow.f64 q #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 q) #s(literal 2 binary64)))
#s(approx (- p r) p)
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))))
(*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))
(/.f64 #s(literal -1/2 binary64) q)
(/.f64 #s(literal 1/2 binary64) (neg.f64 q))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))))
(*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))
(/.f64 #s(literal -1/2 binary64) (neg.f64 q))
(/.f64 #s(literal 1/2 binary64) q)
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) #s(approx (- p r) p))))
(fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) #s(approx (- p r) p)))
(+.f64 (*.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64)) (/.f64 (neg.f64 (*.f64 q q)) #s(approx (- p r) p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r)
(/.f64 (neg.f64 (neg.f64 (*.f64 q q))) (neg.f64 #s(approx (- p r) p)))
(/.f64 (neg.f64 (*.f64 q q)) #s(approx (- p r) p))
(neg.f64 (*.f64 q q))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q)))
(+.f64 (*.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r)) p) #s(literal 1/2 binary64)) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q)))
(-.f64 (+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r)) p)
(+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r))
#s(approx (+ r (fabs p)) r)
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r)))
(/.f64 #s(literal -1 binary64) (-.f64 p r))
(/.f64 #s(literal 1 binary64) (neg.f64 (-.f64 p r)))
(-.f64 p r)
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q)))
(+.f64 (*.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q)))
(-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p)
(+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r))
#s(approx (+ r (fabs p)) (fabs.f64 p))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)))
(*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p)))) (neg.f64 p))
(/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)
(+.f64 (pow.f64 p #s(literal -1 binary64)) (/.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p)) p))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p)))
#s(literal 1 binary64)
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))
(/.f64 (neg.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r)) (neg.f64 p))
(/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p)
(-.f64 (/.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) p) (/.f64 r p))
(-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r)
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p))
(/.f64 (neg.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r)))) (neg.f64 p))
(/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)
(-.f64 (/.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) p) (/.f64 (*.f64 #s(literal -1 binary64) (*.f64 r r)) p))
(-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r)))
(*.f64 #s(literal -1 binary64) (*.f64 q q))
(*.f64 #s(literal -1 binary64) (*.f64 r r))
(*.f64 (neg.f64 r) (neg.f64 r))
(*.f64 (fabs.f64 r) (fabs.f64 r))
(*.f64 r r)
(pow.f64 r #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 r) #s(literal 2 binary64)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q)))
(+.f64 (*.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q)))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p))
(/.f64 #s(literal -1 binary64) p)
(/.f64 #s(literal 1 binary64) (neg.f64 p))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (*.f64 q q)))))) (*.f64 q q))))
(fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (*.f64 q q)))))) (*.f64 q q)))
(+.f64 (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (*.f64 q q)))))) (*.f64 q q)))
(-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p)
(+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r))
(+.f64 r (fabs.f64 p))
(*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (*.f64 q q)))))) (*.f64 q q))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (*.f64 q q))))))
(*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (*.f64 q q)))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (*.f64 q q))))
(/.f64 #s(literal -1 binary64) (*.f64 p (*.f64 q q)))
(/.f64 #s(literal 1 binary64) (neg.f64 (*.f64 p (*.f64 q q))))
(*.f64 p (*.f64 q q))
(*.f64 (neg.f64 q) (neg.f64 q))
(*.f64 (fabs.f64 q) (fabs.f64 q))
(*.f64 q q)
(pow.f64 q #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 q) #s(literal 2 binary64)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
(*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))
(+.f64 r (fabs.f64 r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r))
(-.f64 (fabs.f64 r) r)
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
(+.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r))) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
(/.f64 (neg.f64 (*.f64 q q)) (neg.f64 (-.f64 p r)))
(/.f64 (*.f64 q q) (-.f64 p r))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))
#s(literal -2 binary64)
(/.f64 (neg.f64 (*.f64 q q)) (neg.f64 r))
(/.f64 (*.f64 q q) r)
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))) p)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))) p))
(*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))) p)
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64))))
(*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))
(*.f64 (neg.f64 (/.f64 q p)) (neg.f64 (/.f64 q p)))
(*.f64 (fabs.f64 (/.f64 q p)) (fabs.f64 (/.f64 q p)))
(*.f64 (/.f64 q p) (/.f64 q p))
(pow.f64 (/.f64 q p) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 q q)) (neg.f64 (*.f64 p p)))
(/.f64 (*.f64 q q) (*.f64 p p))
(/.f64 (neg.f64 q) (neg.f64 p))
(/.f64 q p)
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)))) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)))) r))
(*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)))) r)
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))
(*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)))
(*.f64 (neg.f64 (/.f64 q r)) (neg.f64 (/.f64 q r)))
(*.f64 (fabs.f64 (/.f64 q r)) (fabs.f64 (/.f64 q r)))
(*.f64 (/.f64 q r) (/.f64 q r))
(pow.f64 (/.f64 q r) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 q q)) (neg.f64 (*.f64 r r)))
(/.f64 (*.f64 q q) (*.f64 r r))
(/.f64 (neg.f64 q) (neg.f64 r))
(/.f64 q r)
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
(/.f64 (neg.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q)))) (neg.f64 (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
(/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q)))
(*.f64 #s(literal -4 binary64) (*.f64 q q))
#s(literal -4 binary64)
(+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))
(+.f64 (fabs.f64 r) (fabs.f64 p))
(pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
(pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1 binary64))
(fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.f64 q q) #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
#s(literal 4 binary64)
(*.f64 (-.f64 p r) (-.f64 p r))
(pow.f64 (-.f64 p r) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (-.f64 p r)) #s(literal 2 binary64)))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p))))
#s(literal 1/2 binary64)
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p))
(/.f64 (neg.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p))))) (neg.f64 p))
(/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p)
(+.f64 (/.f64 (*.f64 #s(literal -2 binary64) (*.f64 q q)) p) (/.f64 (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p))) p))
(fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p))))
(+.f64 (*.f64 #s(literal -2 binary64) (*.f64 q q)) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p))))
(*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p))
(*.f64 #s(literal -1 binary64) p)
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))))
(+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))
(+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) #s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p))))
(/.f64 (neg.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q)))) (neg.f64 #s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p))))
(/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) #s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p)))))
(/.f64 (neg.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q)))) (neg.f64 (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p)))))
(/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p))))
(+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64)))))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal 1/4 binary64) (/.f64 r q) (*.f64 p (-.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (*.f64 p r) (pow.f64 q #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64)))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q))))))
#s(approx (* 1/4 (/ (* p r) q)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))
#s(approx (/ (* p r) q) (/.f64 (*.f64 p r) q))
#s(approx (* p r) (*.f64 p r))
#s(approx p p)
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (fabs p) (fabs r)) (+.f64 (fabs.f64 p) (fabs.f64 r)))
#s(approx (fabs p) (fabs.f64 p))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q))))
#s(approx (* -1/8 (/ p q)) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))
#s(approx (/ p q) (/.f64 p q))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))) (pow.f64 r #s(literal -2 binary64)))) #s(literal 1/2 binary64)) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (fma.f64 p (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64))))) (pow.f64 r #s(literal -3 binary64)))) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))) (pow.f64 r #s(literal -2 binary64))))) #s(literal 1/2 binary64)) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (fma.f64 p (fma.f64 p (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64))))) (pow.f64 r #s(literal 5 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r)))))) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))))) (pow.f64 r #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 8 binary64) (*.f64 r r)))) (pow.f64 r #s(literal 10 binary64)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64)))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (pow.f64 r #s(literal 7 binary64))) (pow.f64 r #s(literal -6 binary64))))) (pow.f64 r #s(literal -4 binary64)))) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))))))) (pow.f64 r #s(literal 10 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 r #s(literal 15 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64))))) (pow.f64 r #s(literal -3 binary64))))) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal 10 binary64)))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))) (pow.f64 r #s(literal -2 binary64))))) #s(literal 1/2 binary64)) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64)))) (pow.f64 r #s(literal -3 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64)))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 p (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 10 binary64) (pow.f64 r #s(literal -6 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (*.f64 r r)) #s(literal -1 binary64))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64)))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64)))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 p (fma.f64 p (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal -7 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64)))))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (*.f64 (*.f64 q q) (pow.f64 r #s(literal 7 binary64)))))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 10 binary64) (pow.f64 r #s(literal -6 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (*.f64 r r)) #s(literal -1 binary64))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64)))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 p (fma.f64 p (fma.f64 p (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (pow.f64 (pow.f64 (*.f64 q r) #s(literal 4 binary64)) #s(literal -1 binary64)) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal -7 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64))))))) (pow.f64 r #s(literal 5 binary64))) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r)))))) (pow.f64 r #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 r #s(literal -8 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (*.f64 (*.f64 q q) (pow.f64 r #s(literal 7 binary64))))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (*.f64 (*.f64 q q) (pow.f64 r #s(literal 7 binary64)))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 6 binary64))) #s(literal -1 binary64))))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal -7 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64)))))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (*.f64 (*.f64 q q) (pow.f64 r #s(literal 7 binary64))))))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 10 binary64) (pow.f64 r #s(literal -6 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (*.f64 r r)) #s(literal -1 binary64))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64)))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64)))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -5 binary64)) (fma.f64 p (-.f64 (fma.f64 #s(literal 10 binary64) (pow.f64 r #s(literal -6 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (*.f64 r r)) #s(literal -1 binary64))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64))))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -5 binary64)) (fma.f64 p (-.f64 (fma.f64 #s(literal 10 binary64) (pow.f64 r #s(literal -6 binary64)) (fma.f64 p (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal -7 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64)))))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (*.f64 (*.f64 q q) (pow.f64 r #s(literal 7 binary64))))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (*.f64 r r)) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64))))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -5 binary64)) (fma.f64 p (-.f64 (fma.f64 #s(literal 10 binary64) (pow.f64 r #s(literal -6 binary64)) (fma.f64 p (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64)) (fma.f64 p (-.f64 (pow.f64 (pow.f64 (*.f64 q r) #s(literal 4 binary64)) #s(literal -1 binary64)) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal -7 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64))))))) (pow.f64 r #s(literal 5 binary64))) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 r #s(literal 3 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r)))))) (pow.f64 r #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 r #s(literal -8 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 5 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (*.f64 (*.f64 q q) (pow.f64 r #s(literal 7 binary64))))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (*.f64 (*.f64 q q) (pow.f64 r #s(literal 7 binary64)))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 6 binary64))) #s(literal -1 binary64)))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64)))) (fma.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 r #s(literal -7 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 #s(literal 4 binary64) (*.f64 r r))) (pow.f64 r #s(literal 9 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 r #s(literal 4 binary64)) (pow.f64 r #s(literal 4 binary64))) (pow.f64 r #s(literal 11 binary64)))))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (*.f64 (*.f64 q q) (pow.f64 r #s(literal 7 binary64))))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (*.f64 r r)) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64))))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64))))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))))
#s(approx (* -1/2 (/ p (pow q 6))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64)))))
#s(approx (/ p (pow q 6)) (/.f64 p (pow.f64 q #s(literal 6 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (/.f64 (*.f64 q q) r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (pow.f64 (/.f64 q r) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (/.f64 (*.f64 q q) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 (/.f64 q r) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (/.f64 (*.f64 q q) r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (fma.f64 p (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 4 binary64))) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64)))) (pow.f64 (/.f64 q r) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (/.f64 (*.f64 q q) r))))
#s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (*.f64 q q) r))
#s(approx (* -1 (/ (* q q) (- p r))) (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (*.f64 r r)) (/.f64 (*.f64 q q) r)))
#s(approx (* -1 (/ (* q q) (- p r))) (fma.f64 p (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 (/.f64 q r) #s(literal 2 binary64))) (/.f64 (*.f64 q q) r)))
#s(approx (* -1 (/ (* q q) (- p r))) (fma.f64 p (fma.f64 p (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 4 binary64))) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64)))) (pow.f64 (/.f64 q r) #s(literal 2 binary64))) (/.f64 (*.f64 q q) r)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) r)))
#s(approx (/ (* q q) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) (*.f64 r r)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) r))))
#s(approx (/ (* q q) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) r) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64)))) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))))
#s(approx (/ (* q q) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) r) (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 4 binary64)))) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))))) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))))
#s(approx (- p r) (*.f64 #s(literal -1 binary64) r))
#s(approx (- p r) (-.f64 p r))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p r) q)))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (/.f64 p q) (*.f64 #s(literal 1/2 binary64) (/.f64 r q)))))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (/.f64 r q) (*.f64 p (-.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p r) (pow.f64 q #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64))))))))) (*.f64 #s(literal 2 binary64) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p r) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 p (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 p p) r) (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 r q)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (/.f64 r q) (*.f64 (*.f64 p p) (fma.f64 #s(literal -1/16 binary64) (/.f64 r (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 3/256 binary64) (/.f64 (*.f64 (*.f64 p p) r) (pow.f64 q #s(literal 5 binary64)))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (/.f64 r q) (*.f64 (*.f64 p p) (fma.f64 #s(literal -1/16 binary64) (/.f64 r (pow.f64 q #s(literal 3 binary64))) (*.f64 (*.f64 p p) (fma.f64 #s(literal -5/2048 binary64) (/.f64 (*.f64 (*.f64 p p) r) (pow.f64 q #s(literal 7 binary64))) (*.f64 #s(literal 3/256 binary64) (/.f64 r (pow.f64 q #s(literal 5 binary64)))))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p p) (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -1 binary64)))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (fma.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal 3/256 binary64) (/.f64 (*.f64 p p) (pow.f64 q #s(literal 5 binary64)))) (*.f64 #s(literal 1/16 binary64) (pow.f64 q #s(literal -3 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -1 binary64)))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (fma.f64 (*.f64 p p) (-.f64 (*.f64 (*.f64 p p) (fma.f64 #s(literal -5/2048 binary64) (/.f64 (*.f64 p p) (pow.f64 q #s(literal 7 binary64))) (*.f64 #s(literal 3/256 binary64) (pow.f64 q #s(literal -5 binary64))))) (*.f64 #s(literal 1/16 binary64) (pow.f64 q #s(literal -3 binary64)))) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -1 binary64)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (*.f64 q q) r))
#s(approx (/ (neg (* q q)) (- p r)) (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (*.f64 r r)) (/.f64 (*.f64 q q) r)))
#s(approx (/ (neg (* q q)) (- p r)) (fma.f64 p (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 (/.f64 q r) #s(literal 2 binary64))) (/.f64 (*.f64 q q) r)))
#s(approx (/ (neg (* q q)) (- p r)) (fma.f64 p (fma.f64 p (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 4 binary64))) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64)))) (pow.f64 (/.f64 q r) #s(literal 2 binary64))) (/.f64 (*.f64 q q) r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64))))) #s(literal 1/2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -3 binary64)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))))) #s(literal 1/2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (fma.f64 p (-.f64 (fma.f64 p (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -4 binary64)) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (pow.f64 r #s(literal 9 binary64))) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 6 binary64))))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -3 binary64)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64))))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))))) #s(literal 1/2 binary64)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64)))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))
#s(approx (+ r (fabs p)) (+.f64 r (fabs.f64 p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64))))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 p (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -3 binary64)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 p (fma.f64 p (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -4 binary64)) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (pow.f64 r #s(literal 9 binary64))) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 6 binary64))))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -3 binary64)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64))))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 r #s(literal -1 binary64))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (fma.f64 p (-.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (fma.f64 p (-.f64 (fma.f64 p (-.f64 (pow.f64 r #s(literal -3 binary64)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 r #s(literal -2 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (fma.f64 p (-.f64 (fma.f64 p (-.f64 (fma.f64 p (-.f64 (pow.f64 r #s(literal -4 binary64)) (+.f64 (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 r #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)))) (pow.f64 r #s(literal 9 binary64))) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 6 binary64)))))) (pow.f64 r #s(literal -3 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 r #s(literal 6 binary64))) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) #s(literal 2 binary64)) (pow.f64 r #s(literal 9 binary64))))) (pow.f64 r #s(literal -2 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r))) (pow.f64 r #s(literal 6 binary64)))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (/ -1 (- p r)) (pow.f64 r #s(literal -1 binary64)))
#s(approx (/ -1 (- p r)) (+.f64 (pow.f64 r #s(literal -1 binary64)) (/.f64 p (*.f64 r r))))
#s(approx (/ -1 (- p r)) (fma.f64 p (+.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 p (pow.f64 r #s(literal 3 binary64)))) (pow.f64 r #s(literal -1 binary64))))
#s(approx (/ -1 (- p r)) (fma.f64 p (fma.f64 p (+.f64 (pow.f64 r #s(literal -3 binary64)) (/.f64 p (pow.f64 r #s(literal 4 binary64)))) (pow.f64 r #s(literal -2 binary64))) (pow.f64 r #s(literal -1 binary64))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p r) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/.f64 (fma.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) (*.f64 p (fma.f64 #s(literal -1 binary64) p (*.f64 #s(literal -1 binary64) r)))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 q q) (*.f64 p r)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 q q) (*.f64 p (+.f64 p r))) (*.f64 #s(literal -1 binary64) (*.f64 r r))) (pow.f64 p #s(literal 3 binary64))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) (*.f64 p p)))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 q q) (*.f64 p r)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) (*.f64 p p)))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 q q) (*.f64 p (+.f64 p r))) (*.f64 #s(literal -1 binary64) (*.f64 r r))) (*.f64 p p)))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) (*.f64 p p)))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 q q) (*.f64 p r)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) (*.f64 p p)))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) (*.f64 p p))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p r) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))))) (*.f64 p p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p r) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))))) p))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p))
#s(approx (/ -1 p) (/.f64 #s(literal -1 binary64) p))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (*.f64 (*.f64 q q) r) #s(literal -1 binary64)) (pow.f64 r #s(literal -3 binary64)))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (pow.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (*.f64 (*.f64 q q) r) #s(literal -1 binary64)) (pow.f64 r #s(literal -3 binary64))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (fma.f64 p (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (*.f64 (*.f64 q q) r) #s(literal -1 binary64)) (pow.f64 r #s(literal -3 binary64))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (fma.f64 p (fma.f64 p (fma.f64 p (*.f64 (*.f64 q q) (-.f64 (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64)))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (pow.f64 r #s(literal 7 binary64))) (pow.f64 r #s(literal -6 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64))))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (*.f64 (*.f64 q q) r) #s(literal -1 binary64)) (pow.f64 r #s(literal -3 binary64))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (pow.f64 (*.f64 (*.f64 q q) r) #s(literal -1 binary64)) (pow.f64 r #s(literal -3 binary64))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (fma.f64 p (-.f64 (pow.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))) (pow.f64 (*.f64 (*.f64 q q) r) #s(literal -1 binary64))) (pow.f64 r #s(literal -3 binary64))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (fma.f64 p (-.f64 (fma.f64 p (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64))))) (pow.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))) (pow.f64 (*.f64 (*.f64 q q) r) #s(literal -1 binary64))) (pow.f64 r #s(literal -3 binary64))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (fma.f64 p (-.f64 (fma.f64 p (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64)) (fma.f64 p (-.f64 (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 4 binary64))) #s(literal -1 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -5 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64)))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)) (pow.f64 r #s(literal 7 binary64))) (pow.f64 r #s(literal -6 binary64))))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) #s(literal -1 binary64)))) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 r r) (*.f64 r r)) (pow.f64 r #s(literal 7 binary64))))) (pow.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) #s(literal -1 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 r #s(literal -4 binary64)))) (pow.f64 (*.f64 (*.f64 q q) r) #s(literal -1 binary64))) (pow.f64 r #s(literal -3 binary64))))
#s(approx (/ -1 (* p (pow q 2))) (/.f64 #s(literal -1 binary64) (*.f64 p (*.f64 q q))))
#s(approx (* p (pow q 2)) (*.f64 p (*.f64 q q)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 p (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64)))))))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)) (/.f64 (*.f64 q q) r)))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)) (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (*.f64 r r)) (/.f64 (*.f64 q q) r))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)) (fma.f64 p (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 (/.f64 q r) #s(literal 2 binary64))) (/.f64 (*.f64 q q) r))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)) (fma.f64 p (fma.f64 p (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 4 binary64))) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64)))) (pow.f64 (/.f64 q r) #s(literal 2 binary64))) (/.f64 (*.f64 q q) r))))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) r)))
#s(approx (/ (* q q) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) (*.f64 r r)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) r))))
#s(approx (/ (* q q) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) r) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64)))) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))))
#s(approx (/ (* q q) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) r) (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 4 binary64)))) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))))) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64)))))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 p (-.f64 (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (*.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (+.f64 p (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p)))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)))) p))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)))) (*.f64 p p)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) (*.f64 p p)))
#s(approx (* -2 (* (/ q p) (/ q p))) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64))))
#s(approx (* (/ q p) (/ q p)) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))
#s(approx (/ q p) (/.f64 q p))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)) #s(literal 1 binary64)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (*.f64 p (fma.f64 #s(literal -1/2 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 p (fma.f64 #s(literal -1/2 binary64) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 r (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 (/.f64 (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal -1 binary64))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal -1 binary64)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 (*.f64 r r) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 (*.f64 r r) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 p (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 r (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 (/.f64 (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal -1 binary64))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal -1 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 (*.f64 r r) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p r) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (fma.f64 p (-.f64 (*.f64 #s(literal -1 binary64) p) (*.f64 #s(literal -2 binary64) r)) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64)))))))))))))
#s(approx (+ (fabs r) (fabs p)) (+.f64 (fabs.f64 p) (fabs.f64 r)))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64)))))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (fma.f64 #s(literal -2 binary64) (*.f64 p r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 p (+.f64 p (*.f64 #s(literal -2 binary64) r)) (*.f64 r r))))
#s(approx (pow (- p r) 2) (*.f64 r r))
#s(approx (pow (- p r) 2) (fma.f64 #s(literal -2 binary64) (*.f64 p r) (*.f64 r r)))
#s(approx (pow (- p r) 2) (fma.f64 p (+.f64 p (*.f64 #s(literal -2 binary64) r)) (*.f64 r r)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)))) p))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 #s(literal -2 binary64) (*.f64 q q)))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))
#s(approx (* -1 p) (*.f64 #s(literal -1 binary64) p))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 p (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 p (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 p (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 p (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))) (*.f64 #s(literal -1 binary64) (*.f64 r (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+.f64 r (+.f64 (fabs.f64 r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (*.f64 r r)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+.f64 r (+.f64 (fabs.f64 r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r) (*.f64 p (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+.f64 r (+.f64 (fabs.f64 r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r) (*.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))))))))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (+.f64 (fabs.f64 r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (*.f64 r r)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (+.f64 (fabs.f64 r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r) (*.f64 p (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (+.f64 (fabs.f64 r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r) (*.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64)))))))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r)))
#s(approx (* -2 (/ (pow q 2) (- p r))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (*.f64 r r)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r))))
#s(approx (* -2 (/ (pow q 2) (- p r))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r) (*.f64 p (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r) (*.f64 p (fma.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (*.f64 p (fma.f64 #s(literal -1/2 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 p (fma.f64 #s(literal -1/2 binary64) (*.f64 p (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 r (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (*.f64 (/.f64 (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal -1 binary64))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 r (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 r r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))) #s(literal -1 binary64)))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))) #s(literal 1/2 binary64))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 p p) q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 r (*.f64 p q))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 (*.f64 p p) (-.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 r (*.f64 p q)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p p)))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 p p) q)))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (*.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 r (*.f64 p q))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 p (-.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 r (*.f64 p q))) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))) #s(literal 1/2 binary64))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64)))) p)) #s(literal 1/2 binary64))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64)))) p))) #s(literal 1/2 binary64))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64)))) p)))) #s(literal 1/2 binary64))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) p)) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) p)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)) (pow.f64 (*.f64 (*.f64 p p) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) p))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)) (pow.f64 (*.f64 (*.f64 p p) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))) #s(literal 1/2 binary64))))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p)))
#s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p))
#s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 p p)) (*.f64 #s(literal -1 binary64) (*.f64 q q)))) p))
#s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 p p)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (*.f64 q q))))) p))
#s(approx (/ (* q q) (- p r)) (/.f64 (*.f64 q q) p))
#s(approx (/ (* q q) (- p r)) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p))
#s(approx (/ (* q q) (- p r)) (/.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 p p)) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p))) p))
#s(approx (/ (* q q) (- p r)) (/.f64 (-.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 p #s(literal 3 binary64))) (*.f64 q q)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 p p))))) p))
#s(approx (- p r) p)
#s(approx (- p r) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 p (-.f64 (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) #s(literal 1 binary64))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1 binary64))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) r)
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (+.f64 r (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (+.f64 r (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 r (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (pow.f64 p #s(literal 4 binary64)))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (+.f64 r (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 r (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal 64 binary64) (pow.f64 q #s(literal 6 binary64))))) (pow.f64 p #s(literal 6 binary64))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (pow.f64 p #s(literal -1 binary64)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))) p))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64)))))) p))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal 64 binary64) (pow.f64 q #s(literal 6 binary64)))) (pow.f64 p #s(literal 6 binary64))))))) p))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (*.f64 #s(literal -1 binary64) p))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (*.f64 p (-.f64 (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) #s(literal 1 binary64))))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p)))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 p p)) (*.f64 #s(literal -1 binary64) (*.f64 q q)))) p))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 p p)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (*.f64 q q))))) p))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))) #s(literal 1/2 binary64))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal -1 binary64) (*.f64 q q) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 r r) (*.f64 q q))) (*.f64 p p)))) p))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal -1 binary64) (*.f64 q q) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 r r) (*.f64 q q))) (*.f64 p p)) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 r #s(literal 3 binary64))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))))) (pow.f64 p #s(literal 3 binary64)))))) p))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r p)) #s(literal 1 binary64)) p))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p)) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))) #s(literal 1 binary64)) p))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p)) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 r p) #s(literal 3 binary64)) (pow.f64 (/.f64 q p) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r))) (pow.f64 p #s(literal 3 binary64))))) p))
#s(approx (/ -1 (- p r)) (/.f64 #s(literal -1 binary64) p))
#s(approx (/ -1 (- p r)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r p)) #s(literal 1 binary64)) p))
#s(approx (/ -1 (- p r)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p))) (+.f64 #s(literal 1 binary64) (/.f64 r p))) p))
#s(approx (/ -1 (- p r)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 r p) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 r p) (/.f64 (*.f64 r r) (*.f64 p p))))) p))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/.f64 #s(literal -1 binary64) p))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r p)) #s(literal 1 binary64)) p))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r p) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) (*.f64 p p)))) #s(literal 1 binary64)) p))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (pow.f64 p #s(literal -1 binary64)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 r p)) p))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 r p))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p)))) p))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (+.f64 #s(literal 1 binary64) (/.f64 r p)))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 r p))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/.f64 r p))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/.f64 (-.f64 (+.f64 r (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p))) p))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 #s(literal -1 binary64) (/.f64 r p)))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (/.f64 (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p))) p))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (*.f64 #s(literal -1 binary64) r))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 #s(literal -1 binary64) p))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r p)) #s(literal 1 binary64)) p))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r p) (/.f64 (*.f64 (*.f64 q q) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 q q))))) (*.f64 p p))) #s(literal 1 binary64)) p))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r p) (+.f64 (/.f64 (*.f64 (*.f64 q q) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 q q))))) (*.f64 p p)) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) (*.f64 q q))) (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) r)))) (pow.f64 p #s(literal 3 binary64))))) #s(literal 1 binary64)) p))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (*.f64 q q))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (*.f64 q q)))) (pow.f64 q #s(literal -2 binary64))) p))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (*.f64 q q))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (pow.f64 (*.f64 p q) #s(literal 2 binary64))) (pow.f64 p #s(literal -2 binary64)))) (pow.f64 q #s(literal -2 binary64))) p))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (*.f64 q q))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (pow.f64 (*.f64 p q) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 r #s(literal 3 binary64)) (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q))) (pow.f64 p #s(literal -2 binary64))))) (fma.f64 #s(literal -2 binary64) (/.f64 r (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 p #s(literal 3 binary64))) (pow.f64 q #s(literal -2 binary64))))) p))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (fma.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))))))
#s(approx (/ (* q q) (- p r)) (/.f64 (*.f64 q q) p))
#s(approx (/ (* q q) (- p r)) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p))
#s(approx (/ (* q q) (- p r)) (/.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 p p)) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p))) p))
#s(approx (/ (* q q) (- p r)) (/.f64 (-.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 p #s(literal 3 binary64))) (*.f64 q q)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 p p))))) p))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p)))) #s(literal 1/2 binary64))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) p))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64))))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) p)
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 p (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64))) p))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 #s(literal -1 binary64) p))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) #s(literal -1 binary64))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (/.f64 p r))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (*.f64 p (*.f64 r r))) (+.f64 (pow.f64 r #s(literal -1 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p r)))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (*.f64 r r))))) (*.f64 p p)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 q q) r) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))))) (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (*.f64 r r)))))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (*.f64 r r))))) (*.f64 p p))))) #s(literal 1/2 binary64))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) p))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 r p) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 p p))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p) (fma.f64 #s(literal 4 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (*.f64 r r)) (*.f64 p p)))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 q q) r) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))))) (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (*.f64 r r)))))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 r p) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 p p)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p) (fma.f64 #s(literal 4 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (*.f64 r r)) (*.f64 p p)))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -1 binary64) (*.f64 p p)))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) #s(literal 1 binary64))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 p p) (-.f64 (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 p p)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (fma.f64 #s(literal 4 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (*.f64 r r) (*.f64 p p))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) p)
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) p)
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 p (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 p p))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 r p)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (fma.f64 #s(literal 4 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (*.f64 r r) (*.f64 p p)))))))
#s(approx (pow (- p r) 2) (*.f64 p p))
#s(approx (pow (- p r) 2) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 r p)))))
#s(approx (pow (- p r) 2) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 r p) (/.f64 (*.f64 r r) (*.f64 p p))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 #s(literal -1 binary64) p))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 #s(literal -1 binary64) (*.f64 p p)))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 (*.f64 p p) (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 (*.f64 p p) (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 #s(literal -1 binary64) (*.f64 p p)))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 (*.f64 p p) (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p))) (*.f64 #s(literal -1 binary64) r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)))) (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) p)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 3 binary64))))) (fma.f64 #s(literal -1 binary64) r (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) p))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+.f64 r (fabs.f64 r)))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+.f64 r (+.f64 (fabs.f64 r) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+.f64 r (+.f64 (fabs.f64 r) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p)))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (fabs.f64 r))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p)))
#s(approx (* -2 (/ (pow q 2) (- p r))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -2 binary64) (*.f64 q q))) p))
#s(approx (* -2 (/ (pow q 2) (- p r))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 p p)) (*.f64 #s(literal -2 binary64) (*.f64 q q)))) p))
#s(approx (* -2 (/ (pow q 2) (- p r))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 p p)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -2 binary64) (*.f64 q q))))) p))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (*.f64 r r))))) (*.f64 p p)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 p (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 q q) r) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))))) (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (*.f64 r r)))))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (-.f64 (*.f64 #s(literal 2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) (*.f64 r r))))) (*.f64 p p))))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (/.f64 (*.f64 q q) p)) p)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))) p)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (/.f64 (*.f64 q q) p)) p)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))))) p)) #s(literal 1/2 binary64)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) p) (*.f64 #s(literal -1/4 binary64) (/.f64 r q))) p)) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1/4 binary64) (/.f64 r (*.f64 p q)) (*.f64 #s(literal 1/8 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64)))) p))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 q #s(literal 6 binary64)) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64)))))) p))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 q #s(literal 6 binary64)) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64)))))) p))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) p) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64)))) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))) p) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (*.f64 p (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 q #s(literal -4 binary64)) (/.f64 r (*.f64 p (pow.f64 q #s(literal 4 binary64))))) p) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))))) p) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p)))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) p)) (*.f64 (*.f64 q q) r)) p) (*.f64 q q)) p)))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) p) (*.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q r) #s(literal 2 binary64)))) p)) (*.f64 (*.f64 q q) r)) p) (*.f64 q q)) p)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (*.f64 q q) r (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) p)) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) p))) p) (*.f64 (*.f64 q q) r)) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p)))
#s(approx (- p r) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (/.f64 r p) #s(literal 1 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) p)
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)) #s(literal 1 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) p))))) p)) #s(literal 1 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p)) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p))))) p)) #s(literal 1 binary64)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 #s(literal -1 binary64) r))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (fma.f64 #s(literal -1 binary64) r (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 r (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (fma.f64 #s(literal -1 binary64) r (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 r (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (pow.f64 p #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 r (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal 64 binary64) (pow.f64 q #s(literal 6 binary64))))) (pow.f64 p #s(literal 6 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1 binary64) p))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))) p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64)))))) p)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -16 binary64) (pow.f64 q #s(literal 4 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64))))) (*.f64 #s(literal 64 binary64) (pow.f64 q #s(literal 6 binary64)))) (pow.f64 p #s(literal 6 binary64))))))) p)))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p)))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) p)) (*.f64 (*.f64 q q) r)) p) (*.f64 q q)) p)))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) p) (*.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q r) #s(literal 2 binary64)))) p)) (*.f64 (*.f64 q q) r)) p) (*.f64 q q)) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) r) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r)))) p))) p) (*.f64 q q)) p)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 2 binary64) r))) (pow.f64 r #s(literal 3 binary64)))) p) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))))) p))) p) (*.f64 q q)) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 r p)) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (*.f64 q q) (+.f64 r (*.f64 #s(literal 2 binary64) r))) (pow.f64 r #s(literal 3 binary64))) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)))
#s(approx (/ -1 (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 r p)) p)))
#s(approx (/ -1 (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p)) r) p))) p)))
#s(approx (/ -1 (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 r #s(literal 3 binary64)) p) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 r p)) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p))) p))) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r p)) #s(literal 1 binary64)) p)))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 r (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p))) p)) #s(literal 1 binary64)) p)))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p))) p))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p))) p)))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 r (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p))) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 r p)) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) r (/.f64 (*.f64 (*.f64 q q) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 q q))))) p)) p))) p)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 q q))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (/.f64 (pow.f64 r #s(literal 3 binary64)) (*.f64 q q)))) p))) p))) p))) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 q #s(literal -2 binary64)) (/.f64 r (*.f64 p (*.f64 q q)))) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p (*.f64 q q))) (pow.f64 p #s(literal -1 binary64))) (/.f64 r (*.f64 q q))) p) (pow.f64 q #s(literal -2 binary64))) p)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 r (*.f64 #s(literal 2 binary64) r)) (/.f64 (pow.f64 r #s(literal 3 binary64)) (*.f64 q q))) p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 q q))))) p)) (/.f64 r (*.f64 q q))) p) (pow.f64 q #s(literal -2 binary64))) p)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r) (/.f64 (*.f64 q q) p)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) p) (*.f64 (*.f64 q q) r)) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 q q)) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) p)) (*.f64 (*.f64 q q) r)) p) (*.f64 q q)) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (*.f64 q q) r (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) p)) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) p))) p) (*.f64 (*.f64 q q) r)) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (/.f64 (*.f64 q q) p)) p)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal -1 binary64) (*.f64 q q))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))) p)) #s(literal 1/2 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) p)
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) p)) #s(literal 1 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) p)))) r) p)) #s(literal 1 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p)) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p)))) r) p)) #s(literal 1 binary64)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64))) p)) #s(literal 1 binary64)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) (/.f64 r p)))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) p))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r))) r) p)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) p))) r) p)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64)) p)) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 r r))))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))))) p)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) r) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))))) (*.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 r r)))))))) p))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))))) p)) #s(literal 1/2 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) p)
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 r r))))) p))) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) r (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))))) p) (+.f64 (/.f64 (*.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 r r)))))) p) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 r r))))) p))) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p)) #s(literal 1 binary64)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))) p)) (*.f64 #s(literal 2 binary64) r)) p)) #s(literal 1 binary64))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p))))) p))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p))))) p))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p))) p))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 r (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p))) p))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r)) p) (*.f64 #s(literal 2 binary64) r)) p)))))
#s(approx (pow (- p r) 2) (*.f64 (*.f64 p p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p) (*.f64 #s(literal 2 binary64) r)) p)))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p)))) (*.f64 #s(literal -1 binary64) r)) p))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) p))) p)) #s(literal 1 binary64))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) (*.f64 p (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) r)) p))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (fabs.f64 r) r))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) p))) r))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p)) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p))) r))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 4 binary64)))) p)) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 q q) r))) p)) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p))) r))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 q q) r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) p))) p) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 q q) r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) p))) p) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p))))
#s(approx (* -2 (/ (pow q 2) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) r) p) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p)))
#s(approx (* -2 (/ (pow q 2) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 q q) r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 q r) #s(literal 2 binary64)) p))) p) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p)))
#s(approx (* -2 (/ (pow q 2) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 q q) r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 q r) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))) p))) p))) p) (*.f64 #s(literal 2 binary64) (*.f64 q q))) p)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) p)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 r r))))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))))) p)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 p (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 r r))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) r) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))))) (*.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 r r)))))))) p))) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) r) (*.f64 #s(literal -1 binary64) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))))))) p)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64)))))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 p p) q) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 p p) q) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q))))))
#s(approx r r)
#s(approx (fabs r) (fabs.f64 r))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 p p) q) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64))))) (pow.f64 p #s(literal -2 binary64))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 q q) (*.f64 r (-.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))))))) (pow.f64 p #s(literal -3 binary64)))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64))))) (pow.f64 p #s(literal -2 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 r (fma.f64 (*.f64 q q) (*.f64 r (-.f64 (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (pow.f64 p #s(literal 5 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))))))) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (pow.f64 p #s(literal -6 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64))))) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (pow.f64 p #s(literal 7 binary64))))))) (pow.f64 p #s(literal -4 binary64)))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 p #s(literal 15 binary64))) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p)))))) (pow.f64 p #s(literal 10 binary64))))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (*.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))))))) (pow.f64 p #s(literal -3 binary64))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64))))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64))))) (pow.f64 p #s(literal -2 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64))) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -5 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 (pow.f64 q #s(literal 6 binary64)) (*.f64 r (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (*.f64 q q)) #s(literal -1 binary64)))) (fma.f64 #s(literal 10 binary64) (pow.f64 p #s(literal -6 binary64)) (pow.f64 (*.f64 (*.f64 p p) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -5 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 6 binary64)) (*.f64 r (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 p #s(literal -7 binary64)))) (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (*.f64 q q)) #s(literal -1 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (*.f64 q q))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (*.f64 q q)) #s(literal -1 binary64)))) (fma.f64 #s(literal 10 binary64) (pow.f64 p #s(literal -6 binary64)) (pow.f64 (*.f64 (*.f64 p p) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -5 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 r (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 q #s(literal 6 binary64)) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 p #s(literal -7 binary64)))) (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (*.f64 q q)) #s(literal -1 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (*.f64 q q))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (*.f64 r (-.f64 (pow.f64 (*.f64 (pow.f64 p #s(literal 6 binary64)) (*.f64 q q)) #s(literal -1 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (*.f64 q q))) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (*.f64 q q)) #s(literal -1 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal -8 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 p #s(literal -7 binary64))))) (pow.f64 p #s(literal 5 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))))) (pow.f64 p #s(literal 11 binary64))))))) (fma.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (*.f64 (pow.f64 p #s(literal 7 binary64)) (*.f64 q q))) (pow.f64 (pow.f64 (*.f64 p q) #s(literal 4 binary64)) #s(literal -1 binary64))))))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (*.f64 q q)) #s(literal -1 binary64)))) (fma.f64 #s(literal 10 binary64) (pow.f64 p #s(literal -6 binary64)) (pow.f64 (*.f64 (*.f64 p p) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -5 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -5 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (fma.f64 r (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (*.f64 q q)) #s(literal -1 binary64)))) (fma.f64 #s(literal 10 binary64) (pow.f64 p #s(literal -6 binary64)) (pow.f64 (*.f64 (*.f64 p p) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) #s(literal -1 binary64)))) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -5 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (fma.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 p #s(literal -7 binary64)))) (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (*.f64 q q)) #s(literal -1 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (*.f64 q q))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (*.f64 q q)) #s(literal -1 binary64))))) (fma.f64 #s(literal 10 binary64) (pow.f64 p #s(literal -6 binary64)) (pow.f64 (*.f64 (*.f64 p p) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) #s(literal -1 binary64)))) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -5 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (fma.f64 r (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (*.f64 q q)) #s(literal -1 binary64)) (*.f64 r (-.f64 (*.f64 r (-.f64 (pow.f64 (*.f64 (pow.f64 p #s(literal 6 binary64)) (*.f64 q q)) #s(literal -1 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (*.f64 q q))) (*.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (*.f64 q q)) #s(literal -1 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal -8 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 p #s(literal -7 binary64))))) (pow.f64 p #s(literal 5 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))) (pow.f64 p #s(literal 10 binary64))) (*.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (pow.f64 p #s(literal 3 binary64)) (*.f64 p (fma.f64 #s(literal 2 binary64) (*.f64 p p) (*.f64 #s(literal 4 binary64) (*.f64 p p))))) (pow.f64 p #s(literal 11 binary64))))))) (fma.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (*.f64 (pow.f64 p #s(literal 7 binary64)) (*.f64 q q))) (pow.f64 (pow.f64 (*.f64 p q) #s(literal 4 binary64)) #s(literal -1 binary64))))))) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 5 binary64) (/.f64 (fma.f64 #s(literal -4 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal 11 binary64))) (*.f64 #s(literal 10 binary64) (pow.f64 p #s(literal -7 binary64)))) (fma.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (pow.f64 p #s(literal 5 binary64)) (*.f64 q q)) #s(literal -1 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (*.f64 (pow.f64 p #s(literal 7 binary64)) (*.f64 q q))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64))))))))) (fma.f64 #s(literal 10 binary64) (pow.f64 p #s(literal -6 binary64)) (pow.f64 (*.f64 (*.f64 p p) (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) #s(literal -1 binary64)))) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -5 binary64)) (pow.f64 (*.f64 p (pow.f64 q #s(literal 4 binary64))) #s(literal -1 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))))))))))))
#s(approx (* -1 (/ (* q q) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p))))
#s(approx (* -1 (/ (* q q) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))))))
#s(approx (* -1 (/ (* q q) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 r (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))))))))))
#s(approx (/ (* q q) (- p r)) (+.f64 (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (/.f64 (*.f64 q q) p)))
#s(approx (/ (* q q) (- p r)) (fma.f64 r (-.f64 (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))) (/.f64 (*.f64 q q) p)))
#s(approx (/ (* q q) (- p r)) (fma.f64 r (-.f64 (*.f64 r (-.f64 (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64)))))) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))) (/.f64 (*.f64 q q) p)))
#s(approx (- p r) (+.f64 p (*.f64 #s(literal -1 binary64) r)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))
#s(approx (/ (neg (* q q)) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p))))
#s(approx (/ (neg (* q q)) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))))))
#s(approx (/ (neg (* q q)) (- p r)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 r (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64))))))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 p #s(literal -3 binary64)) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64)))))))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (fma.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64))))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))))) (pow.f64 p #s(literal 9 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 6 binary64))) (pow.f64 p #s(literal -4 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 p #s(literal -3 binary64)) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))))))))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) (+.f64 (fabs.f64 p) (fabs.f64 r)))
#s(approx (+ r (fabs p)) (fabs.f64 p))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (*.f64 r (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 p #s(literal -3 binary64)) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64))))))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64))))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))))) (pow.f64 p #s(literal 9 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 6 binary64))) (pow.f64 p #s(literal -4 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 p #s(literal -3 binary64)) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64)))))))))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (-.f64 (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 r (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64))))) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (-.f64 (fma.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 p #s(literal -3 binary64)) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))))) (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64))))) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (-.f64 (fma.f64 r (-.f64 (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (*.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))))) (pow.f64 p #s(literal 9 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 6 binary64))) (pow.f64 p #s(literal -4 binary64))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 q (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) #s(literal 2 binary64)) (pow.f64 p #s(literal 9 binary64))) (+.f64 (pow.f64 p #s(literal -3 binary64)) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 p #s(literal 6 binary64))))))) (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p)))) (pow.f64 p #s(literal 6 binary64))))) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (/ -1 (- p r)) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p p))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (/ -1 (- p r)) (-.f64 (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 p #s(literal 3 binary64)))) (pow.f64 p #s(literal -2 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (/ -1 (- p r)) (-.f64 (*.f64 r (-.f64 (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64)))) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -2 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (fma.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p p)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))) p))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))) p) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r (pow.f64 p #s(literal 3 binary64)))) (pow.f64 p #s(literal -2 binary64))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))) p))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (+.f64 (pow.f64 p #s(literal -1 binary64)) (/.f64 r (*.f64 p p)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (fma.f64 r (+.f64 (pow.f64 p #s(literal -2 binary64)) (/.f64 r (pow.f64 p #s(literal 3 binary64)))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 r p))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 r (+.f64 (pow.f64 p #s(literal -1 binary64)) (/.f64 r (*.f64 p p)))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 r p)))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 r (+.f64 (pow.f64 p #s(literal -1 binary64)) (/.f64 r (*.f64 p p))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (fma.f64 #s(literal -1 binary64) (/.f64 r p) (pow.f64 (/.f64 q p) #s(literal 2 binary64))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (fma.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p p))) (pow.f64 p #s(literal -1 binary64))) (pow.f64 (/.f64 q p) #s(literal 2 binary64))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (/.f64 (*.f64 q q) p))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (fma.f64 #s(literal -1 binary64) r (/.f64 (*.f64 q q) p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (fma.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 r p)) #s(literal 1 binary64)) (/.f64 (*.f64 q q) p)))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (/.f64 (*.f64 q q) p))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p) (/.f64 (*.f64 q q) p)))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p)))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (/.f64 (*.f64 r r) p)))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) (*.f64 #s(literal -1 binary64) (*.f64 q q)))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) (fma.f64 #s(literal -1 binary64) (*.f64 q q) (*.f64 r r)))
#s(approx (* -1 (* r r)) (*.f64 #s(literal -1 binary64) (*.f64 r r)))
#s(approx (* r r) (*.f64 r r))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 p #s(literal -3 binary64)) (pow.f64 (*.f64 p (*.f64 q q)) #s(literal -1 binary64)))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (fma.f64 (*.f64 q q) (*.f64 r (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64))) (pow.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) #s(literal -1 binary64)))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 p #s(literal -3 binary64)) (pow.f64 (*.f64 p (*.f64 q q)) #s(literal -1 binary64))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (*.f64 r (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) #s(literal -1 binary64)))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64))) (pow.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) #s(literal -1 binary64))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 p #s(literal -3 binary64)) (pow.f64 (*.f64 p (*.f64 q q)) #s(literal -1 binary64))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (fma.f64 r (fma.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) #s(literal -1 binary64))))) (*.f64 (*.f64 q q) (*.f64 r (-.f64 (pow.f64 p #s(literal -6 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (pow.f64 p #s(literal 7 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (*.f64 q q)) #s(literal -1 binary64)))))))) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64))) (pow.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) #s(literal -1 binary64))))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 p #s(literal -3 binary64)) (pow.f64 (*.f64 p (*.f64 q q)) #s(literal -1 binary64))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (pow.f64 p #s(literal -3 binary64)) (pow.f64 (*.f64 p (*.f64 q q)) #s(literal -1 binary64))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (fma.f64 r (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64))) (pow.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) #s(literal -1 binary64))) (pow.f64 p #s(literal -3 binary64))) (pow.f64 (*.f64 p (*.f64 q q)) #s(literal -1 binary64))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (fma.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) #s(literal -1 binary64))))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64)))) (pow.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) #s(literal -1 binary64))) (pow.f64 p #s(literal -3 binary64))) (pow.f64 (*.f64 p (*.f64 q q)) #s(literal -1 binary64))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (fma.f64 r (-.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -4 binary64)) (*.f64 r (-.f64 (*.f64 r (-.f64 (pow.f64 p #s(literal -6 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64))))) (pow.f64 p #s(literal 3 binary64))) (fma.f64 #s(literal 3 binary64) (/.f64 (+.f64 p (*.f64 #s(literal 2 binary64) p)) (pow.f64 p #s(literal 7 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 4 binary64)) (*.f64 q q)) #s(literal -1 binary64)))))) (fma.f64 #s(literal 3 binary64) (pow.f64 p #s(literal -5 binary64)) (fma.f64 #s(literal 3 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p p) (*.f64 #s(literal -1 binary64) (*.f64 p p))) (pow.f64 p #s(literal 7 binary64))) (pow.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) #s(literal -1 binary64))))))) (pow.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) #s(literal -1 binary64))) (pow.f64 p #s(literal -3 binary64))) (pow.f64 (*.f64 p (*.f64 q q)) #s(literal -1 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 p (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 p (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 p (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 p (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64)))))))))))
#s(approx (* 1/2 (+ r (fabs r))) (*.f64 #s(literal 1/2 binary64) (fabs.f64 r)))
#s(approx (* 1/2 (+ r (fabs r))) (fma.f64 #s(literal 1/2 binary64) r (*.f64 #s(literal 1/2 binary64) (fabs.f64 r))))
#s(approx (+ r (fabs r)) (fabs.f64 r))
#s(approx (+ r (fabs r)) (+.f64 r (fabs.f64 r)))
#s(approx (* 1/2 (- (fabs r) r)) (*.f64 #s(literal 1/2 binary64) (fabs.f64 r)))
#s(approx (* 1/2 (- (fabs r) r)) (fma.f64 #s(literal -1/2 binary64) r (*.f64 #s(literal 1/2 binary64) (fabs.f64 r))))
#s(approx (- (fabs r) r) (fabs.f64 r))
#s(approx (- (fabs r) r) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r)))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (fabs.f64 r))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (fma.f64 #s(literal 1/2 binary64) (fabs.f64 r) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64))))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (fma.f64 #s(literal 1/2 binary64) (fabs.f64 r) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (fma.f64 #s(literal 1/2 binary64) (fabs.f64 r) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))))))))))))
#s(approx (/ (* q q) (- p r)) (+.f64 (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (/.f64 (*.f64 q q) p)))
#s(approx (/ (* q q) (- p r)) (fma.f64 r (-.f64 (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))) (/.f64 (*.f64 q q) p)))
#s(approx (/ (* q q) (- p r)) (fma.f64 r (-.f64 (*.f64 r (-.f64 (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64)))))) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))) (/.f64 (*.f64 q q) p)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64)))))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))) (*.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 r (-.f64 (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))) (*.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 r (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)))) r))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 r (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (*.f64 #s(literal -1 binary64) p)))) r))
#s(approx (* -2 (/ (* q q) r)) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))
#s(approx (/ (* q q) r) (/.f64 (*.f64 q q) r))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (+.f64 r (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 r (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)))) (*.f64 r r)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 r (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) (*.f64 #s(literal -1 binary64) p)))) (*.f64 r r)))
#s(approx (* -2 (* (/ q r) (/ q r))) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))
#s(approx (* (/ q r) (/ q r)) (pow.f64 (/.f64 q r) #s(literal 2 binary64)))
#s(approx (/ q r) (/.f64 q r))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (*.f64 r (fma.f64 #s(literal -1/2 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))) (*.f64 r (fma.f64 #s(literal -1/2 binary64) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 p (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 (/.f64 (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal -1 binary64))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal -1 binary64)))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 (*.f64 p p) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 (*.f64 p p) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 r (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 p (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 (/.f64 (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal -1 binary64))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal -1 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (/.f64 (*.f64 p p) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p r) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (fma.f64 r (-.f64 (*.f64 #s(literal -1 binary64) r) (*.f64 #s(literal -2 binary64) p)) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64)))))))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64)))))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (fma.f64 #s(literal -2 binary64) (*.f64 p r) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 r (+.f64 r (*.f64 #s(literal -2 binary64) p)) (*.f64 p p))))
#s(approx (pow (- p r) 2) (fma.f64 #s(literal -2 binary64) (*.f64 p r) (*.f64 p p)))
#s(approx (pow (- p r) 2) (fma.f64 r (+.f64 r (*.f64 #s(literal -2 binary64) p)) (*.f64 p p)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) p))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (+.f64 r (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 p r (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (fma.f64 p r (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 p (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 p (+.f64 (fabs.f64 r) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 p (+.f64 (fabs.f64 r) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))) (*.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 p (+.f64 (fabs.f64 r) (*.f64 r (-.f64 (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 p (*.f64 r (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))) (*.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 r (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))))))))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p) (*.f64 r (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64))))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p) (*.f64 r (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 r (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64)))))))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (*.f64 p p)) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p))))
#s(approx (* -2 (/ (pow q 2) (- p r))) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p) (*.f64 r (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 3 binary64))) (*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p) (*.f64 r (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (*.f64 r (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (*.f64 r (fma.f64 #s(literal -1/2 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))) (*.f64 r (fma.f64 #s(literal -1/2 binary64) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 p (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 (/.f64 (*.f64 p (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal -1 binary64))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 p (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (pow.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))) #s(literal -1 binary64)))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) r)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 r (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 p p) (*.f64 q r)) (fma.f64 #s(literal 1/4 binary64) (/.f64 p q) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) r))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (*.f64 r (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 p p) (*.f64 q r)) (*.f64 #s(literal 1/4 binary64) (/.f64 p q)))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 r (fma.f64 #s(literal -1/8 binary64) (/.f64 p (*.f64 q r)) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 (/.f64 q r) #s(literal 2 binary64)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64)))) r)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64)))) r) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64)))) r) (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 (/.f64 q r) #s(literal 2 binary64)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal 1/2 binary64) (/.f64 r (pow.f64 q #s(literal 6 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) r) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) r) (+.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (*.f64 r r)) #s(literal -1 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 r (fma.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) r) (+.f64 (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (*.f64 r r)) #s(literal -1 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)) (/.f64 p (*.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 r #s(literal 3 binary64)))))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 (/.f64 q r) #s(literal 2 binary64)))))))
#s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 q q)) r))
#s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (+.f64 (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 r r)) (*.f64 q q))) r))
#s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (+.f64 (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 r r)) (+.f64 (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 q q)))) r))
#s(approx (/ (* q q) (- p r)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r))
#s(approx (/ (* q q) (- p r)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 r r)) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (/.f64 (*.f64 p (*.f64 q q)) r)) r))
#s(approx (/ (* q q) (- p r)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 r r)))) r))
#s(approx (- p r) (*.f64 r (-.f64 (/.f64 p r) #s(literal 1 binary64))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 r (-.f64 (fma.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64))) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) (*.f64 (pow.f64 r #s(literal -1 binary64)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r)
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (*.f64 r (-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) (/.f64 p r))))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 q q)) r))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (+.f64 (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 r r)) (*.f64 q q))) r))
#s(approx (/ (neg (* q q)) (- p r)) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (+.f64 (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 r r)) (+.f64 (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 q q)))) r))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r) (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 (/.f64 q r) #s(literal 2 binary64)))))))
#s(approx (+ (+ r (fabs p)) (fabs r)) r)
#s(approx (+ (+ r (fabs p)) (fabs r)) (*.f64 r (+.f64 #s(literal 1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))))
#s(approx (+ r (fabs p)) r)
#s(approx (+ r (fabs p)) (*.f64 r (+.f64 #s(literal 1 binary64) (/.f64 (fabs.f64 p) r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (*.f64 q q) r))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 q q)) r))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r r)) (*.f64 q q))) r))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (+.f64 (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 q q) (*.f64 p p))) (*.f64 r r)) (+.f64 (/.f64 (*.f64 (*.f64 q q) (-.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))))) (pow.f64 r #s(literal 3 binary64))) (*.f64 q q)))) r))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (pow.f64 r #s(literal -1 binary64)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 p r)) r))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (+.f64 (/.f64 p r) (/.f64 (*.f64 p p) (*.f64 r r))))) r))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (+.f64 (/.f64 p r) (+.f64 (/.f64 (*.f64 p p) (*.f64 r r)) (pow.f64 (/.f64 p r) #s(literal 3 binary64)))))) (/.f64 (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))) (pow.f64 r #s(literal 3 binary64)))) r))
#s(approx (/ -1 (- p r)) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 p r)) r))
#s(approx (/ -1 (- p r)) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 p p) (*.f64 r r))) (*.f64 #s(literal -1 binary64) (/.f64 p r))) r))
#s(approx (/ -1 (- p r)) (/.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 p r) #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p p) (*.f64 r r))))) r))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 r r) (+.f64 (pow.f64 (*.f64 (*.f64 p p) r) #s(literal -1 binary64)) (pow.f64 p #s(literal -3 binary64))))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 (*.f64 r r) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))) (*.f64 r r))) (+.f64 (pow.f64 (*.f64 (*.f64 p p) r) #s(literal -1 binary64)) (pow.f64 p #s(literal -3 binary64))))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (*.f64 r r) (pow.f64 p #s(literal 3 binary64))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (*.f64 (*.f64 r r) (+.f64 (pow.f64 (*.f64 (*.f64 p p) r) #s(literal -1 binary64)) (pow.f64 p #s(literal -3 binary64)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (*.f64 (*.f64 r r) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 r r))) (+.f64 (pow.f64 (*.f64 p (*.f64 r r)) #s(literal -1 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 p p) r) #s(literal -1 binary64)) (pow.f64 p #s(literal -3 binary64)))))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (/.f64 (*.f64 r r) (*.f64 p p)))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (*.f64 (*.f64 r r) (+.f64 (pow.f64 (*.f64 p r) #s(literal -1 binary64)) (pow.f64 p #s(literal -2 binary64)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (*.f64 (*.f64 r r) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 (*.f64 p r) #s(literal 2 binary64))) (+.f64 (pow.f64 (*.f64 p r) #s(literal -1 binary64)) (+.f64 (pow.f64 p #s(literal -2 binary64)) (pow.f64 r #s(literal -2 binary64)))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (/.f64 (*.f64 r r) (*.f64 p p)))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (*.f64 (*.f64 r r) (+.f64 (pow.f64 (*.f64 p r) #s(literal -1 binary64)) (pow.f64 p #s(literal -2 binary64)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (*.f64 (*.f64 r r) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 (*.f64 p r) #s(literal 2 binary64))) (+.f64 (pow.f64 (*.f64 p r) #s(literal -1 binary64)) (pow.f64 p #s(literal -2 binary64))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 r r) (+.f64 (pow.f64 (*.f64 p r) #s(literal -1 binary64)) (pow.f64 p #s(literal -2 binary64))))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 (*.f64 r r) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (*.f64 p r) #s(literal 2 binary64))) (+.f64 (pow.f64 (*.f64 p r) #s(literal -1 binary64)) (pow.f64 p #s(literal -2 binary64))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 r r) (+.f64 (pow.f64 p #s(literal -1 binary64)) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (*.f64 (*.f64 r r) (-.f64 (/.f64 (*.f64 q q) (*.f64 p (*.f64 r r))) (+.f64 (pow.f64 p #s(literal -1 binary64)) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p)))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (*.f64 (*.f64 r r) (-.f64 (/.f64 (*.f64 q q) (*.f64 p (*.f64 r r))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (/.f64 (*.f64 r r) p))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (*.f64 (*.f64 r r) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (*.f64 p (*.f64 r r))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) (*.f64 r r))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (pow.f64 r #s(literal -1 binary64)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 p r)) r))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 p r) (/.f64 (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 p p) (*.f64 q q)) #s(literal 1 binary64))) (*.f64 r r)))) r))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 p r) (+.f64 (/.f64 (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 p p) (*.f64 q q)) #s(literal 1 binary64))) (*.f64 r r)) (/.f64 (*.f64 (*.f64 q q) (-.f64 (/.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) (+.f64 p (*.f64 #s(literal 2 binary64) p)))) (pow.f64 r #s(literal 3 binary64)))))) r))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (pow.f64 (*.f64 (*.f64 q q) r) #s(literal -1 binary64)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 (+.f64 (pow.f64 q #s(literal -2 binary64)) (/.f64 p (*.f64 (*.f64 q q) r))) r))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 (-.f64 (+.f64 (pow.f64 q #s(literal -2 binary64)) (+.f64 (/.f64 p (*.f64 (*.f64 q q) r)) (/.f64 (*.f64 p p) (pow.f64 (*.f64 q r) #s(literal 2 binary64))))) (pow.f64 r #s(literal -2 binary64))) r))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 (-.f64 (+.f64 (pow.f64 q #s(literal -2 binary64)) (+.f64 (/.f64 p (*.f64 (*.f64 q q) r)) (+.f64 (/.f64 (*.f64 p p) (pow.f64 (*.f64 q r) #s(literal 2 binary64))) (/.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (*.f64 q q) (pow.f64 r #s(literal 3 binary64))))))) (fma.f64 #s(literal 2 binary64) (/.f64 p (pow.f64 r #s(literal 3 binary64))) (+.f64 (pow.f64 r #s(literal -2 binary64)) (/.f64 p (pow.f64 r #s(literal 3 binary64)))))) r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 p (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 p (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 p (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ r (fabs r))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* 1/2 (+ r (fabs r))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (fabs.f64 r) r)))))
#s(approx (+ r (fabs r)) r)
#s(approx (+ r (fabs r)) (*.f64 r (+.f64 #s(literal 1 binary64) (/.f64 (fabs.f64 r) r))))
#s(approx (* 1/2 (- (fabs r) r)) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* 1/2 (- (fabs r) r)) (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fabs.f64 r) r)) #s(literal 1/2 binary64))))
#s(approx (- (fabs r) r) (*.f64 #s(literal -1 binary64) r))
#s(approx (- (fabs r) r) (*.f64 r (-.f64 (/.f64 (fabs.f64 r) r) #s(literal 1 binary64))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (fabs.f64 r) r)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fabs.f64 r) r) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (*.f64 r (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fabs.f64 r) r) (+.f64 (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (pow.f64 (/.f64 q r) #s(literal 2 binary64)))))))
#s(approx (/ (* q q) (- p r)) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r))
#s(approx (/ (* q q) (- p r)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 r r)) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (/.f64 (*.f64 p (*.f64 q q)) r)) r))
#s(approx (/ (* q q) (- p r)) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal -1 binary64) (*.f64 q q))) (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 r r)))) r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal -1 binary64) p)) r)))) #s(literal 1/2 binary64))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) r))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 r (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -1 binary64) r))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 r (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) r)
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 r (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64))) r))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (/.f64 r p))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (*.f64 (*.f64 p p) r)) (+.f64 (pow.f64 p #s(literal -1 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p r)))) (pow.f64 r #s(literal -1 binary64)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) #s(literal -1 binary64))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r)))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) r)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) r) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (*.f64 p p))))) (*.f64 r r)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p (*.f64 q q)) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))) (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (*.f64 p p)))))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) r) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (*.f64 p p))))) (*.f64 r r))))) #s(literal 1/2 binary64))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) r))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 r (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) r))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 p r) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 r r))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) r) (fma.f64 #s(literal 4 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (*.f64 p p)) (*.f64 r r)))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p (*.f64 q q)) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))) (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (*.f64 p p)))))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 p r) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 r r)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) r) (fma.f64 #s(literal 4 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (*.f64 p p)) (*.f64 r r)))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -1 binary64) (*.f64 r r)))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 r r) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 p r)) #s(literal 1 binary64))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 r r) (-.f64 (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 r r)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 p r) (fma.f64 #s(literal 4 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (*.f64 p p) (*.f64 r r))))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) r)
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (fma.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) r)
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r)))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 r r))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 p r)))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 p r) (fma.f64 #s(literal 4 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (*.f64 p p) (*.f64 r r)))))))
#s(approx (pow (- p r) 2) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (/.f64 p r)))))
#s(approx (pow (- p r) 2) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 p r) (/.f64 (*.f64 p p) (*.f64 r r))))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) r)
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (*.f64 p r)) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 p r))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 r (+.f64 p (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r) (/.f64 (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))) r)))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 p r))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 r (+.f64 p (/.f64 (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))) r))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) r)
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) r))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 r (-.f64 (/.f64 (+.f64 p (fabs.f64 r)) r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (+.f64 p (fabs.f64 r)) r)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 r (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (/.f64 (+.f64 p (fabs.f64 r)) r)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 p r) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) r)
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (*.f64 r (+.f64 #s(literal 1 binary64) (/.f64 (fabs.f64 r) r))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (fabs.f64 r) r)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (*.f64 r (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (/.f64 q r) #s(literal 2 binary64)) (/.f64 (fabs.f64 r) r))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (+.f64 (fabs.f64 r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) (*.f64 r r)) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r))))))
#s(approx (* -2 (/ (pow q 2) (- p r))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal 2 binary64) (*.f64 q q))) r))
#s(approx (* -2 (/ (pow q 2) (- p r))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 r r)) (*.f64 #s(literal 2 binary64) (*.f64 q q)))) r))
#s(approx (* -2 (/ (pow q 2) (- p r))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 r r)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) (pow.f64 r #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 q q))))) r))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 r (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) r)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) r) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (*.f64 p p))))) (*.f64 r r)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 r (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 p (*.f64 q q)) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))))) (*.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (*.f64 p p)))))))) (pow.f64 r #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) r) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (-.f64 (*.f64 #s(literal 2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) (*.f64 p p))))) (*.f64 r r))))) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (*.f64 q q) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) r)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1/2 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) r))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 p p) q) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)))) r) (*.f64 #s(literal -1/4 binary64) (/.f64 p q))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1/4 binary64) (/.f64 p q) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 p p) (*.f64 q r)))))))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 p (*.f64 q r))) (*.f64 #s(literal 1/4 binary64) (pow.f64 q #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (*.f64 q q) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) r)) #s(literal 1/2 binary64)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 q #s(literal 6 binary64)) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64)))) r)) #s(literal 1/2 binary64)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 q #s(literal 6 binary64)) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64)))) (/.f64 (*.f64 q q) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 q #s(literal 6 binary64)) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64)))))) r)) #s(literal 1/2 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) r) #s(literal -1 binary64))) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (pow.f64 q #s(literal 4 binary64)) r))) (pow.f64 q #s(literal -4 binary64))) r) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (pow.f64 q #s(literal 6 binary64))))) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (*.f64 q q) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) r)) #s(literal 1/2 binary64)))))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 p (*.f64 q q) (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) r)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) r))) r) (*.f64 p (*.f64 q q))) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 q q)) r)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) r)) (*.f64 p (*.f64 q q))) r) (*.f64 q q)) r)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (pow.f64 (*.f64 p q) #s(literal 2 binary64)))) r)) (*.f64 p (*.f64 q q))) r) (*.f64 q q)) r)))
#s(approx (- p r) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) (*.f64 p (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) #s(literal -1 binary64)))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)))) r))))))
#s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1 binary64)))))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 p (*.f64 q q) (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) r)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) r))) r) (*.f64 p (*.f64 q q))) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (*.f64 q q) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (+ r (fabs p)) (fabs r)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r)) #s(literal 1 binary64)))))
#s(approx (+ r (fabs p)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fabs.f64 p) r)) #s(literal 1 binary64)))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (*.f64 q q))) r) (*.f64 p (*.f64 q q))) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p))))) r) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (*.f64 q q)))) r) (*.f64 p (*.f64 q q))) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p r)) #s(literal 1 binary64)) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 p p) (*.f64 q q)) r))) r)) #s(literal 1 binary64)) r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 (*.f64 q q) (+.f64 p (*.f64 #s(literal 2 binary64) p)))) r) (fma.f64 #s(literal -1 binary64) (*.f64 p p) (*.f64 q q))) r))) r)) #s(literal 1 binary64)) r)))
#s(approx (/ -1 (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p r)) #s(literal 1 binary64)) r)))
#s(approx (/ -1 (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (*.f64 p p) r) (*.f64 #s(literal -1 binary64) p)) r)) #s(literal 1 binary64)) r)))
#s(approx (/ -1 (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 p #s(literal 3 binary64)) r)) (*.f64 p p)) r)) (*.f64 #s(literal -1 binary64) p)) r)) #s(literal 1 binary64)) r)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 (*.f64 r r) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (*.f64 (pow.f64 p #s(literal 3 binary64)) r)) (+.f64 (pow.f64 (*.f64 p r) #s(literal -1 binary64)) (pow.f64 p #s(literal -2 binary64)))) r)) (pow.f64 p #s(literal -3 binary64)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (*.f64 (*.f64 r r) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))) r)) (pow.f64 p #s(literal -2 binary64))) r) (pow.f64 p #s(literal -3 binary64)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (*.f64 (*.f64 r r) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))) r)) (pow.f64 p #s(literal -1 binary64))) r) (pow.f64 p #s(literal -2 binary64)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (*.f64 (*.f64 r r) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (*.f64 q q) (*.f64 (*.f64 p p) r)) (pow.f64 p #s(literal -1 binary64))) r) (pow.f64 p #s(literal -2 binary64)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 (*.f64 r r) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (*.f64 (*.f64 p p) r)) (pow.f64 p #s(literal -1 binary64))) r)) (pow.f64 p #s(literal -2 binary64)))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (*.f64 (*.f64 r r) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (*.f64 p r)))) r)) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p r)) #s(literal 1 binary64)) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p p) (*.f64 q q))))) r))) r)) #s(literal 1 binary64)) r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (/.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) (+.f64 p (*.f64 #s(literal 2 binary64) p)))) r) (*.f64 (*.f64 q q) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))))) r))) r)) #s(literal 1 binary64)) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (*.f64 q q) r))) (pow.f64 q #s(literal -2 binary64))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))) r) (/.f64 p (*.f64 q q))) r)) (pow.f64 q #s(literal -2 binary64))) r)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) (+.f64 p (*.f64 #s(literal 2 binary64) p))) r) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p p) (*.f64 q q))))) r) (/.f64 p (*.f64 q q))) r)) (pow.f64 q #s(literal -2 binary64))) r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fabs.f64 r) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (fabs.f64 r) (/.f64 (*.f64 q q) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r) (*.f64 #s(literal 1/2 binary64) (fabs.f64 r))) r)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (+ r (fabs r))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fabs.f64 r) r)) #s(literal 1/2 binary64)))))
#s(approx (+ r (fabs r)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fabs.f64 r) r)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (- (fabs r) r)) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (fabs.f64 r) r))))))
#s(approx (- (fabs r) r) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fabs.f64 r) r))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fabs.f64 r) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (fabs.f64 r) (/.f64 (*.f64 q q) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r) (*.f64 #s(literal 1/2 binary64) (fabs.f64 r))) r)) #s(literal 1/2 binary64)))))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 q q)) r)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) r)) (*.f64 p (*.f64 q q))) r) (*.f64 q q)) r)))
#s(approx (/ (* q q) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (pow.f64 (*.f64 p q) #s(literal 2 binary64)))) r)) (*.f64 p (*.f64 q q))) r) (*.f64 q q)) r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (/.f64 (*.f64 q q) r)) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -1 binary64) (*.f64 q q))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p))) r)) #s(literal 1/2 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) r)
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) r)) #s(literal 1 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r)))) p) r)) #s(literal 1 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r)) (*.f64 #s(literal 2 binary64) (*.f64 q q))) r)))) p) r)) #s(literal 1 binary64)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r))) (/.f64 p r)))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) r))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64))) r)) #s(literal 1 binary64)))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)) r)) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r))) p) r)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r))) p) r)) #s(literal 1 binary64)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) r)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 p p))))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))))) r)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 p p))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p (*.f64 q q)) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r)))))) (*.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 p p)))))))) r))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))))) r)) #s(literal 1/2 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) r)
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) r)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) p (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 p p))))) r))) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) r)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) p (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r)))))) r) (+.f64 (/.f64 (*.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 p p)))))) r) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 p p))))) r))) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) r)) #s(literal 1 binary64)))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 r r) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))) r)) (*.f64 #s(literal 2 binary64) p)) r)) #s(literal 1 binary64))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))))) r))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal 2 binary64) (*.f64 q q))) r))))) r))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r))) r))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 r (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal 2 binary64) (*.f64 q q))) r))) r))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p)) r) (*.f64 #s(literal 2 binary64) p)) r)))))
#s(approx (pow (- p r) 2) (*.f64 (*.f64 r r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p p) r) (*.f64 #s(literal 2 binary64) p)) r)))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal -1 binary64) p)))) r)) #s(literal 1 binary64)))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) p (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))))) r))))))
#s(approx (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r))) (*.f64 #s(literal -1 binary64) (*.f64 r (fma.f64 #s(literal -1 binary64) p (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p)))) r))))))
#s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) r)) #s(literal 1 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) r)
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fabs.f64 r) r)) #s(literal 1 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r))) r)) #s(literal 1 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r)) (*.f64 #s(literal 2 binary64) (*.f64 q q))) r))) r)) #s(literal 1 binary64)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fabs.f64 r) r)) #s(literal 1 binary64)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) r))) r)) #s(literal 1 binary64)))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -2 binary64) (*.f64 q q))) r))) r)) #s(literal 1 binary64)))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -2 binary64) (*.f64 q q))) r))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p (*.f64 q q)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) r))) r))) r))))
#s(approx (* -2 (/ (pow q 2) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 p (*.f64 q q)) r) (*.f64 #s(literal -2 binary64) (*.f64 q q))) r)))
#s(approx (* -2 (/ (pow q 2) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p (*.f64 q q)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 p q) #s(literal 2 binary64)) r))) r))) r)))
#s(approx (* -2 (/ (pow q 2) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (*.f64 p q) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) (*.f64 q q)) r))) r) (*.f64 #s(literal 2 binary64) (*.f64 p (*.f64 q q)))) r))) r)))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) r)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 p p))))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))))) r)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 p p))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 p (*.f64 q q)) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r)))))) (*.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 q q) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (fma.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))) (*.f64 p p)))))))) r))) r) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) p) (*.f64 #s(literal -1 binary64) (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))))))) r)) #s(literal 1/2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p p))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p p))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p p))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))) (*.f64 (*.f64 q q) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -20 binary64) (/.f64 r (pow.f64 p #s(literal 6 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal -5 binary64))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -3 binary64)))))))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (/.f64 (*.f64 p (fma.f64 #s(literal -1/8 binary64) p (*.f64 #s(literal 1/4 binary64) r))) q))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 q (+.f64 (fabs.f64 p) (fabs.f64 r))) (*.f64 p (fma.f64 #s(literal -1/8 binary64) p (*.f64 #s(literal 1/4 binary64) r)))) q))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (/.f64 (fma.f64 p (fma.f64 #s(literal -1/8 binary64) p (*.f64 #s(literal 1/4 binary64) r)) (*.f64 q (fma.f64 #s(literal -1 binary64) q (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))))) q))
#s(approx q q)
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) (+.f64 (fabs.f64 p) (fabs.f64 r)))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) q))))
#s(approx (* 2 q) (*.f64 #s(literal 2 binary64) q))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (/.f64 (*.f64 p (fma.f64 #s(literal -1/8 binary64) p (*.f64 #s(literal 1/4 binary64) r))) q))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (/.f64 (fma.f64 #s(literal -1/8 binary64) p (*.f64 #s(literal 1/4 binary64) r)) q))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (pow q 6) (pow.f64 q #s(literal 6 binary64)))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))) (pow.f64 q #s(literal 6 binary64))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))) (pow.f64 q #s(literal 6 binary64))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))) (pow.f64 q #s(literal 6 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (* -1 (/ (* q q) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
#s(approx (/ (* q q) (- p r)) (/.f64 (*.f64 q q) (-.f64 p r)))
#s(approx (* q q) (*.f64 q q))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p p))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))) p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p p)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -3 binary64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))) p))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p p)) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -3 binary64)) (fma.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -20 binary64) (/.f64 r (pow.f64 p #s(literal 6 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 p #s(literal -5 binary64))))))))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))) p))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (+.f64 r (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p p)) (*.f64 #s(literal 6 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 4 binary64))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (+.f64 r (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 r (*.f64 p p)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -20 binary64) (/.f64 (*.f64 (*.f64 q q) r) (pow.f64 p #s(literal 6 binary64))) (*.f64 #s(literal 6 binary64) (/.f64 r (pow.f64 p #s(literal 4 binary64))))))))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 6 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (fma.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -20 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 7 binary64))) (*.f64 #s(literal 6 binary64) (pow.f64 p #s(literal -5 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -3 binary64)))) (pow.f64 p #s(literal -1 binary64))))
#s(approx (/ -1/2 q) (/.f64 #s(literal -1/2 binary64) q))
#s(approx (/ 1/2 q) (/.f64 #s(literal 1/2 binary64) q))
#s(approx (/ (neg (* q q)) (- p r)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
#s(approx (neg (* q q)) (*.f64 #s(literal -1 binary64) (*.f64 q q)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r)))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p)) r) p))) p)))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p)) r) p))) p) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p)) r) p))) p))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p)) r) (*.f64 p p)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p)) r) p))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p)) r) p) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64))))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p)) r) p)))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p)) r) p) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p)) r) p))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p)) (pow.f64 (/.f64 q p) #s(literal 2 binary64))) (/.f64 r p)))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p)) r))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) p) (/.f64 (*.f64 q q) p)) r))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))))
#s(approx (* -1 (* q q)) (*.f64 #s(literal -1 binary64) (*.f64 q q)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 #s(literal -1 binary64) (-.f64 p r)))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (-.f64 p r))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q)))
#s(approx (* q q) (*.f64 q q))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))))
#s(approx (/ (* q q) (- p r)) (/.f64 (*.f64 q q) (-.f64 p r)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))) p))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))))) p))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))))) p))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r) (*.f64 r (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r)))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p) (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p)))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (fma.f64 #s(literal 2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal 4 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (-.f64 (fma.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (fma.f64 #s(literal 2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal 4 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64))))) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (-.f64 (fma.f64 #s(literal -4 binary64) (*.f64 q q) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
#s(approx (* -4 (* q q)) (*.f64 #s(literal -4 binary64) (*.f64 q q)))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))) r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))))) r))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))))) r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (-.f64 p r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (-.f64 (+.f64 p (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))) r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (-.f64 (+.f64 p (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))) r))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (-.f64 (+.f64 p (*.f64 (*.f64 q q) (fma.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))) r))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (fma.f64 #s(literal 4 binary64) (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 2 binary64))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal -1 binary64) p)))) (*.f64 #s(literal -1 binary64) r)))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (fabs.f64 r)))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 (*.f64 q q) (-.f64 (*.f64 (*.f64 q q) (fma.f64 #s(literal -4 binary64) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))
#s(approx (* -2 (/ (pow q 2) (- p r))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 q q) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (fma.f64 #s(literal 2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal 4 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 5 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))))) (*.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (-.f64 p r) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal -1 binary64)))) (*.f64 (-.f64 p r) (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r))) (*.f64 #s(literal -2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 p r) #s(literal 3 binary64)) (pow.f64 (-.f64 (+.f64 p (+.f64 (fabs.f64 p) (fabs.f64 r))) r) #s(literal 2 binary64)))))))))))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (*.f64 p p))) (*.f64 q q)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) r)) (*.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (*.f64 p p))) (*.f64 q q))))) #s(literal 1 binary64))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (/.f64 (*.f64 p (fma.f64 #s(literal -1/8 binary64) p (*.f64 #s(literal 1/4 binary64) r))) (*.f64 q q))) #s(literal 1 binary64))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) (*.f64 #s(literal -2 binary64) q))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) (*.f64 q (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) #s(literal 2 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (*.f64 (pow.f64 q #s(literal -4 binary64)) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (*.f64 (pow.f64 q #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (*.f64 (pow.f64 q #s(literal -4 binary64)) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 6 binary64)) (pow.f64 (-.f64 p r) #s(literal 5 binary64)))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (*.f64 (pow.f64 q #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (fma.f64 (pow.f64 q #s(literal -4 binary64)) (pow.f64 (-.f64 p r) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)))))))
#s(approx (* (pow q 6) (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1)))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (*.f64 (pow.f64 q #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (fma.f64 (pow.f64 q #s(literal -4 binary64)) (pow.f64 (-.f64 p r) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal 5 binary64))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (*.f64 (pow.f64 q #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (*.f64 (pow.f64 q #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (*.f64 (pow.f64 q #s(literal -4 binary64)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (*.f64 (pow.f64 q #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (*.f64 (pow.f64 q #s(literal -4 binary64)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (*.f64 q q))) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -2 binary64) q))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 q (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) #s(literal 2 binary64))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p r) (*.f64 q q)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 p r) (*.f64 q q)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))) (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p p) (*.f64 q q))))))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/.f64 (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (*.f64 p r))) q))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 r (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (*.f64 p r)))) q))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 r (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 r (fma.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 6 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 p p) (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64))))))))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (*.f64 p r))))) q))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))) q))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p p) (*.f64 q q))))) q))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 6 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 p p) (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64))))))) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))))) q))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (*.f64 (pow.f64 q #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 4 binary64))) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 (pow.f64 q #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (/.f64 (pow.f64 q #s(literal 4 binary64)) (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
#s(approx (* (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (* q q)) (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (*.f64 (pow.f64 q #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
#s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (*.f64 (pow.f64 q #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64))))
#s(approx (* -1 (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p))) (/.f64 r p)) p) (pow.f64 p #s(literal -1 binary64))) (*.f64 q q)) (pow.f64 p #s(literal -3 binary64)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (pow.f64 p #s(literal 3 binary64)))))
#s(approx (/ (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) p) (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p))) (/.f64 r p)) (*.f64 p (*.f64 q q))) (pow.f64 (*.f64 p (*.f64 q q)) #s(literal -1 binary64))) (pow.f64 p #s(literal -3 binary64)))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 q p) #s(literal 2 binary64))))
#s(approx (+ 1 (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p))) (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p))) (/.f64 r p)) (*.f64 q q)) (pow.f64 q #s(literal -2 binary64))) (pow.f64 p #s(literal -2 binary64)))))
#s(approx (* -1 (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p)) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p p))) (/.f64 r p)) (*.f64 q q))) (pow.f64 p #s(literal -2 binary64)))))
#s(approx (/ (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) p) (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (pow.f64 (*.f64 p q) #s(literal 2 binary64))) (pow.f64 p #s(literal -2 binary64))) (/.f64 r (*.f64 p (*.f64 q q))))))
#s(approx (- (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) r) (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p (*.f64 q q))) (pow.f64 p #s(literal -1 binary64))) (/.f64 r (*.f64 q q)))))
#s(approx (* -1 (/ (- (* -1 (* q q)) (* -1 (* r r))) p)) (*.f64 (*.f64 q q) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 r r) (*.f64 p (*.f64 q q))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (/ (- (* -1 (* q q)) (* -1 (* r r))) p) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 r r) (*.f64 p (*.f64 q q))) (pow.f64 p #s(literal -1 binary64)))))
#s(approx (- (* -1 (* q q)) (* -1 (* r r))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 r r) (*.f64 q q)) #s(literal 1 binary64))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))))
#s(approx (* (* q q) (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1))) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (*.f64 (pow.f64 q #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (pow.f64 (-.f64 p r) #s(literal -3 binary64)))
#s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (*.f64 (pow.f64 q #s(literal -2 binary64)) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 p (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 p (fabs.f64 r)) q))) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 p (fabs.f64 r)) q)))) #s(literal 1 binary64))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
#s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (*.f64 (*.f64 q q) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 r (fabs.f64 r)) (*.f64 q q))) (pow.f64 (-.f64 p r) #s(literal -1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)))) #s(literal 1 binary64))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -2 binary64) q))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) #s(literal 2 binary64))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)))))))
#s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 r (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) r) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 p r))))) (*.f64 q q)) (*.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -1 binary64))))))
#s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 p (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 r p))))) (*.f64 q q)) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64))))))
#s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 p (*.f64 q q))) (fma.f64 #s(literal -1 binary64) (/.f64 r (*.f64 p (*.f64 q q))) (fma.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -2 binary64)) (pow.f64 q #s(literal -2 binary64)))))))
#s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 (*.f64 q q) r)) (fma.f64 #s(literal -1 binary64) (/.f64 p (*.f64 (*.f64 q q) r)) (fma.f64 #s(literal 2 binary64) (pow.f64 r #s(literal -2 binary64)) (pow.f64 q #s(literal -2 binary64)))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (*.f64 q q)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)))))))) (pow.f64 q #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (*.f64 q q))))) #s(literal 1 binary64))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -2 binary64) q))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 q (-.f64 (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) #s(literal 2 binary64))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 q q))) (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 q q)))))))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)))))))) (pow.f64 q #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 q q)))) (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 q q)))))))))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q)))
#s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 q q) (-.f64 (/.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (*.f64 q q)) (+.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal 2 binary64) q))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 q (+.f64 #s(literal 2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal 2 binary64) q))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q))))))))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 #s(literal 4 binary64) (*.f64 q q)))
#s(approx (+ (* (* q q) 4) (pow (- p r) 2)) (*.f64 (*.f64 q q) (+.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)))))
#s(approx (/ (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) p) (*.f64 (*.f64 q q) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 p (*.f64 q q)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 q q))) (fma.f64 #s(literal -1 binary64) (/.f64 r (*.f64 q q)) (*.f64 #s(literal 2 binary64) (pow.f64 p #s(literal -1 binary64)))))))
#s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r))) (*.f64 q q)) #s(literal 2 binary64))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -2 binary64) q))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q (-.f64 (/.f64 (+.f64 p (fabs.f64 r)) q) #s(literal 2 binary64))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)) (/.f64 (+.f64 p (fabs.f64 r)) q)) #s(literal 2 binary64))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (/.f64 (+.f64 p (fabs.f64 r)) q)) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)))))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
#s(approx (+ r (+ (fabs r) (* -2 (/ (pow q 2) (- p r))))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (+.f64 r (fabs.f64 r)) (*.f64 q q)) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r))))
#s(approx (+ (fabs r) (* -2 (/ (pow q 2) (- p r)))) (*.f64 (*.f64 q q) (-.f64 (/.f64 (fabs.f64 r) (*.f64 q q)) (*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -1 binary64))))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) q))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 q (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (*.f64 q q)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 q (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)))))))) (pow.f64 q #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (*.f64 q q))))) #s(literal 1 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (*.f64 q q)))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) q)
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (*.f64 p p))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (*.f64 p p))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (pow.f64 p #s(literal 3 binary64)) r)) (*.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)))) (*.f64 q q)))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))))))
#s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (fma.f64 #s(literal -1/4 binary64) r (*.f64 #s(literal 1/8 binary64) p))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q))))))
#s(approx (- (+ (fabs p) (fabs r)) (* 2 q)) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))))))
#s(approx (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (fma.f64 #s(literal -1/4 binary64) r (*.f64 #s(literal 1/8 binary64) p))) q)))
#s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) r (*.f64 #s(literal 1/8 binary64) p)) q)))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal 2 binary64) q))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 p r)) (*.f64 #s(literal 1/4 binary64) (*.f64 p p))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (*.f64 p r))) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 p #s(literal 4 binary64)) (*.f64 q q)) (*.f64 #s(literal 1/4 binary64) (*.f64 p p)))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 p r) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (*.f64 p r))) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 r (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (*.f64 p r)))) q)))
#s(approx (* (* p r) (/ 1 (sqrt (+ (* 4 (* q q)) (* p p))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 r (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 p (*.f64 r (fma.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 6 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 p p) (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64))))))))) (pow.f64 q #s(literal 6 binary64))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (pow.f64 p #s(literal 3 binary64)) r) (*.f64 q q)) (*.f64 #s(literal 1/2 binary64) (*.f64 p r))))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p p) (*.f64 q q))))) q)))
#s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64)))) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 6 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 p p) (fma.f64 #s(literal -1/64 binary64) (pow.f64 p #s(literal 4 binary64)) (*.f64 #s(literal 1/256 binary64) (pow.f64 p #s(literal 4 binary64))))))) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 p p) (*.f64 q q)))))) q)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 p (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q) (*.f64 #s(literal 1/2 binary64) (+.f64 p (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (*.f64 q q)))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 p (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (*.f64 q q)))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal 2 binary64) q))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q)))) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (*.f64 q q))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) q)
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)))))))) q))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal 2 binary64) q))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 2 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) q)) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 2 binary64)))))
#s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) q) (fma.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)))))) q)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) q)) (*.f64 #s(literal -1 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 2 binary64)))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -2 binary64) q))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q)))) q))))))
#s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (*.f64 q q)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) q)))) q))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -2 binary64) q))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q))))))))
#s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) (*.f64 q (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (pow.f64 q #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 6 binary64)) (pow.f64 q #s(literal 6 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 q q)))))))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal 2 binary64) q))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (fabs.f64 r)) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (+.f64 (fabs.f64 r) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) q)))) q)) #s(literal 2 binary64)))))
#s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 p (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (pow.f64 (-.f64 p r) #s(literal 4 binary64)) (*.f64 q q))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) q)))) q)) #s(literal 2 binary64)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) q)
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) q)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 q (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (pow.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(literal 2 binary64)))))))) q))) q) (*.f64 #s(literal 1/2 binary64) (+.f64 (fabs.f64 p) (fabs.f64 r)))) q)) #s(literal 1 binary64)))))

eval300.0ms (3.7%)

Memory
21.6MiB live, 672.7MiB allocated; 102ms collecting garbage
Compiler

Compiled 154 006 to 9 988 computations (93.5% saved)

prune106.0ms (1.3%)

Memory
-30.1MiB live, 250.0MiB allocated; 24ms collecting garbage
Pruning

38 alts after pruning (12 fresh and 26 done)

PrunedKeptTotal
New1 887121 899
Fresh000
Picked91322
Done21315
Total1 898381 936
Accuracy
95.2%
Counts
1 936 → 38
Alt Table
Click to see full alt table
StatusAccuracyProgram
9.1%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) #s(literal 1 binary64)))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p)))))
7.3%
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 #s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 #s(literal -1 binary64) (*.f64 p p))) p))))
37.8%
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) #s(approx (pow (- p r) 2) (*.f64 p p)))))))
✓39.1%
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
✓2.0%
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
2.0%
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))))
✓2.1%
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
19.5%
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (*.f64 r r)))) r)))
✓26.0%
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)))
✓11.0%
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)))
✓28.6%
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))))
1.3%
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (*.f64 q q)))))) (*.f64 q q))))
34.5%
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r) (/.f64 (*.f64 q q) p)))
18.7%
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 p (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
28.1%
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))
✓29.9%
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r)))
✓2.5%
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
2.8%
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))))
✓2.6%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))))
✓1.9%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))))
✓2.6%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) #s(approx (- p r) p))))
✓2.2%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)))
✓22.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64)))
✓27.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
✓2.4%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))) #s(literal 1/2 binary64)))
✓3.8%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))))))
✓3.1%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))))))
✓2.5%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
✓5.2%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
✓5.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
✓2.9%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
✓40.3%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
✓14.7%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) #s(approx (- p r) p)))))
16.2%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (*.f64 q q) r))))
0.3%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) #s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) p)) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)))))))))
✓38.8%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))))))
✓3.8%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))))
✓3.0%
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
Compiler

Compiled 6 493 to 1 877 computations (71.1% saved)

regimes170.0ms (2.1%)

Memory
27.4MiB live, 367.2MiB allocated; 38ms collecting garbage
Counts
87 → 3
Calls
Call 1
Inputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))) #s(literal 1/2 binary64)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (* p p))) p)) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (*.f64 q q) r))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) #s(approx (- p r) p)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) #s(approx (- p r) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r) (/.f64 (*.f64 q q) p)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p)) p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (*.f64 r r)))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 #s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 #s(literal -1 binary64) (*.f64 p p))) p))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 p (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) #s(literal 1/2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (sqrt.f64 (*.f64 p p)) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) #s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p)))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (*.f64 q q)))))) (*.f64 q q))))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) #s(approx (pow (- p r) 2) (*.f64 p p)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))) #s(literal 1/2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) #s(literal 1 binary64)))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p)))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 p p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))) p)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 r r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))))))) (*.f64 q q))))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal -1 binary64) (*.f64 r (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1/2 binary64)) r)) (*.f64 #s(literal 1/2 binary64) (pow.f64 p #s(literal -1 binary64)))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)) #s(literal -1/2 binary64)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) #s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 #s(literal -1/2 binary64) (/.f64 p (pow.f64 q #s(literal 6 binary64))))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) (-.f64 (pow.f64 (-.f64 p r) #s(literal -3 binary64)) (pow.f64 (*.f64 (*.f64 q q) (-.f64 p r)) #s(literal -1 binary64))))) (*.f64 q q))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p))) #s(literal -1/2 binary64))) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) #s(approx (- (+ (* 1/2 (/ (- (+ r (+ (fabs p) (fabs r))) p) (pow q 6))) (pow (* (* q q) (pow (- p r) 3)) -1)) (+ (* 2 (pow (- p r) -5)) (pow (* (pow q 4) (- p r)) -1))) (*.f64 p (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) (pow.f64 q #s(literal 6 binary64))) p)) (*.f64 #s(literal 1/2 binary64) (pow.f64 q #s(literal -6 binary64)))))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 5 binary64))) #s(literal -2 binary64) (pow.f64 (-.f64 p r) #s(literal -3 binary64))) (*.f64 q q)) (pow.f64 (-.f64 p r) #s(literal -1 binary64))) (*.f64 q q))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 (-.f64 (pow.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (* (- (* (+ (* (/ (* q q) (pow (- p r) 5)) -2) (pow (- p r) -3)) (* q q)) (pow (- p r) -1)) (* q q))) (*.f64 (pow.f64 q #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r))) p) (pow.f64 q #s(literal 6 binary64))) (pow.f64 (*.f64 (*.f64 q q) (pow.f64 (-.f64 p r) #s(literal 3 binary64))) #s(literal -1 binary64))) (fma.f64 #s(literal 2 binary64) (pow.f64 (-.f64 p r) #s(literal -5 binary64)) (pow.f64 (*.f64 (pow.f64 q #s(literal 4 binary64)) (-.f64 p r)) #s(literal -1 binary64)))))))
Outputs
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r)))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (pow.f64 (-.f64 p r) #s(literal 2 binary64)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
Calls

7 calls:

33.0ms
q
24.0ms
r
23.0ms
p
22.0ms
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))))
21.0ms
(*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))
Results
AccuracySegmentsBranch
69.3%3(pow.f64 q #s(literal 2 binary64))
69.3%3(*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))
56.6%2(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))))
56.6%2(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))))))
65.0%5p
62.4%4r
69.3%3q
Compiler

Compiled 51 to 54 computations (-5.9% saved)

regimes70.0ms (0.9%)

Memory
8.7MiB live, 171.4MiB allocated; 21ms collecting garbage
Counts
74 → 3
Calls
Call 1
Inputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))) #s(literal 1/2 binary64)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (* p p))) p)) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (*.f64 q q) r))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) #s(approx (- p r) p)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) #s(approx (- p r) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r) (/.f64 (*.f64 q q) p)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p)) p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (*.f64 r r)))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 #s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 #s(literal -1 binary64) (*.f64 p p))) p))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 p (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) #s(literal 1/2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (sqrt.f64 (*.f64 p p)) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) #s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p)))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (*.f64 q q)))))) (*.f64 q q))))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) #s(approx (pow (- p r) 2) (*.f64 p p)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(approx (pow (+ (* (* q q) 4) (* p p)) -1/2) (/.f64 #s(literal 1/2 binary64) q)) (*.f64 r p) (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(approx (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))) (*.f64 p (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)) (/.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) p)) #s(literal 1 binary64)))) #s(literal 1/2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p (-.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) p))) (*.f64 #s(literal -1 binary64) r)))) p))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 (*.f64 p p) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) #s(literal 1 binary64)))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p)))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (/ (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2))))) (*.f64 p (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 r p)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (fabs.f64 p) (+.f64 (fabs.f64 r) (*.f64 #s(literal -1 binary64) r))) p)))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 p p)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64)))) p)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (fma.f64 (/.f64 (*.f64 q q) (*.f64 r r)) #s(literal -2 binary64) (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) r) (fma.f64 (/.f64 p r) #s(literal -1 binary64) #s(literal 1 binary64)))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 q q)) (*.f64 #s(literal -1 binary64) (*.f64 r r))) p)) r) p))) p))) (*.f64 q q))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r)))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 q #s(literal 2 binary64)) (-.f64 p r)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (pow.f64 q #s(literal 2 binary64))))))) (*.f64 q q))))
Outputs
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r)))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) #s(approx (pow (- p r) 2) (*.f64 p p)))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
Calls

3 calls:

24.0ms
q
22.0ms
(pow.f64 q #s(literal 2 binary64))
19.0ms
(*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))
Results
AccuracySegmentsBranch
66.0%3q
66.0%3(pow.f64 q #s(literal 2 binary64))
66.0%3(*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))
Compiler

Compiled 9 to 15 computations (-66.7% saved)

regimes86.0ms (1.1%)

Memory
7.9MiB live, 142.2MiB allocated; 55ms collecting garbage
Counts
61 → 2
Calls
Call 1
Inputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) (+.f64 r (+.f64 (fabs.f64 p) (fabs.f64 r)))) #s(literal 1/2 binary64)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (* p p))) p)) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) #s(approx (* -1 (/ (* q q) (- p r))) (/.f64 (*.f64 q q) r))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) #s(approx (+ (* 1/2 (- (+ (fabs p) (fabs r)) (* 2 q))) (* p (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 p r) q)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) #s(approx (- p r) p)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) #s(approx (- (* (/ (+ (fabs p) (- (fabs r) r)) p) -1/2) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 r p)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* (- (+ (+ r (fabs p)) (fabs r)) p) 1/2) (/ (neg (* q q)) (- p r))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) #s(approx (- p r) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal -1/2 binary64) q))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) #s(approx (/ 1 (sqrt (+ (* 4 (* q q)) (* p p)))) (/.f64 #s(literal 1/2 binary64) q))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(approx (- (+ (+ r (fabs p)) (fabs r)) p) r) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r) (/.f64 (*.f64 q q) p)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 p))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 #s(literal -2 binary64) q))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (*.f64 q #s(literal 2 binary64)))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (+ (* -1 (/ (pow q 2) (- p r))) (* 1/2 (+ r (fabs r)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 q q) p) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1)) (/.f64 r p)) p)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (neg.f64 p) (-.f64 (*.f64 (/.f64 (+.f64 (fabs.f64 p) (-.f64 (fabs.f64 r) r)) p) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 r r))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (*.f64 r r)))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (+.f64 r (+.f64 (fabs.f64 r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) (-.f64 p r)))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 #s(approx (+ (* -2 (* q q)) (* p (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)))) (*.f64 #s(literal -1 binary64) (*.f64 p p))) p))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) r) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 q q) r)))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 #s(approx (+ r (fabs p)) r) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 p (fabs.f64 r)) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) p)) (*.f64 q q))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (/.f64 (neg.f64 (*.f64 q q)) (-.f64 p r))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 p p)))) #s(literal 1/2 binary64)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 (-.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) (sqrt.f64 (fma.f64 (*.f64 q q) #s(literal 4 binary64) (*.f64 r r)))) #s(literal 1/2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (sqrt.f64 (*.f64 p p)) (fabs.f64 r)) #s(approx (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))) (neg.f64 r))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p #s(approx (+ (* -1/8 (/ p q)) (* 1/4 (/ r q))) (*.f64 #s(literal -1/8 binary64) (/.f64 p q)))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) #s(approx (+ (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (pow (- p r) 2)))) (*.f64 #s(literal -1 binary64) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (/.f64 #s(literal -1 binary64) (-.f64 p r))) (*.f64 q q))))
(*.f64 #s(literal 1/2 binary64) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) #s(approx (* (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) p) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 q q) (*.f64 p #s(approx (- (+ (fabs p) (+ (fabs r) (* -1 p))) (* -1 r)) (*.f64 #s(literal -1 binary64) p)))) p))))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) #s(approx (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p))))) (*.f64 (*.f64 p r) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (*.f64 q q) (*.f64 p p))))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (/.f64 #s(approx (- (pow (+ (fabs r) (fabs p)) 2) (pow (+ (* (* q q) 4) (pow (- p r) 2)) 1)) (*.f64 #s(literal -4 binary64) (*.f64 q q))) (+.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) #s(approx (sqrt (+ (* (* q q) 4) (pow (- p r) 2))) (*.f64 #s(literal -1 binary64) p)))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* p p)) -2) (- (/ (+ (fabs r) (fabs p)) p) (+ (* (/ r p) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q p) (/.f64 q p)))) p)))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 #s(approx (+ (* (/ (* q q) (* r r)) -2) (- (/ (+ (fabs r) (fabs p)) r) (+ (* (/ p r) -1) 1))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 q r) (/.f64 q r)))) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) #s(approx (* 1/2 (+ (* (pow (+ (* (* q q) 4) (* p p)) -1/2) (* r p)) (- (+ (fabs r) (fabs p)) (sqrt (+ (* (* q q) 4) (* p p)))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (*.f64 #s(literal 2 binary64) q)) (*.f64 p (fma.f64 #s(literal -1/8 binary64) (/.f64 p q) (*.f64 #s(literal 1/4 binary64) (/.f64 r q)))))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) #s(approx (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2))))) (*.f64 (-.f64 (/.f64 (+.f64 (fabs.f64 r) (fabs.f64 p)) p) (fma.f64 (/.f64 r p) #s(literal -1 binary64) #s(literal 1 binary64))) p)))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (fma.f64 (-.f64 (+.f64 (+.f64 r (fabs.f64 p)) (fabs.f64 r)) p) #s(literal 1/2 binary64) (*.f64 #s(approx (- (/ (* q q) (pow (- p r) 3)) (pow (- p r) -1)) (*.f64 (*.f64 q q) #s(approx (- (pow (- p r) -3) (pow (* (* q q) (- p r)) -1)) (/.f64 #s(literal -1 binary64) (*.f64 p (*.f64 q q)))))) (*.f64 q q))))
Outputs
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (fabs.f64 r) r)))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
Calls

3 calls:

29.0ms
(pow.f64 q #s(literal 2 binary64))
28.0ms
(*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))
25.0ms
q
Results
AccuracySegmentsBranch
61.9%2q
61.9%2(pow.f64 q #s(literal 2 binary64))
61.9%2(*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))
Compiler

Compiled 9 to 15 computations (-66.7% saved)

regimes26.0ms (0.3%)

Memory
20.0MiB live, 62.0MiB allocated; 11ms collecting garbage
Counts
7 → 1
Calls
Call 1
Inputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal -1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) p))
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) r))
#s(approx (* (/ 1 2) (- (+ (sqrt (* p p)) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (*.f64 #s(literal 1/2 binary64) (+.f64 r (fabs.f64 r))))
Outputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) (neg.f64 q))
Calls

7 calls:

11.0ms
p
3.0ms
r
2.0ms
q
2.0ms
(*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))
2.0ms
(pow.f64 q #s(literal 2 binary64))
Results
AccuracySegmentsBranch
40.3%1(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))))
40.3%1(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))))))
40.3%1r
40.3%1p
40.3%1q
40.3%1(pow.f64 q #s(literal 2 binary64))
40.3%1(*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))
Compiler

Compiled 51 to 54 computations (-5.9% saved)

regimes18.0ms (0.2%)

Memory
-18.5MiB live, 23.9MiB allocated; 13ms collecting garbage
Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

Counts
1 → 1
Calls
Call 1
Inputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
Outputs
#s(approx (* (/ 1 2) (- (+ (fabs p) (fabs r)) (sqrt (+ (pow (- p r) 2) (* 4 (pow q 2)))))) q)
Calls

7 calls:

12.0ms
(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))))
1.0ms
r
1.0ms
q
1.0ms
p
1.0ms
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))))))
Results
AccuracySegmentsBranch
3.0%1p
3.0%1(-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64))))))
3.0%1(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (-.f64 (+.f64 (fabs.f64 p) (fabs.f64 r)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 p r) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))))))
3.0%1(pow.f64 q #s(literal 2 binary64))
3.0%1(*.f64 #s(literal 4 binary64) (pow.f64 q #s(literal 2 binary64)))
3.0%1q
3.0%1r
Compiler

Compiled 51 to 54 computations (-5.9% saved)

bsearch1.0ms (0%)

Memory
2.5MiB live, 2.5MiB allocated; 0ms collecting garbage
Algorithm
2×left-value
Steps
TimeLeftRight
0.0ms
2.3718154551694275e+236
7.150759345708592e+238
0.0ms
4.316463876437205e-234
4.852470924644371e-229
Compiler

Compiled 25 to 25 computations (0% saved)

bsearch1.0ms (0%)

Memory
1.7MiB live, 1.7MiB allocated; 0ms collecting garbage
Algorithm
2×left-value
Steps
TimeLeftRight
0.0ms
8.73749250260402e+302
+inf
0.0ms
4.316463876437205e-234
4.852470924644371e-229
Compiler

Compiled 25 to 25 computations (0% saved)

bsearch1.0ms (0%)

Memory
1.2MiB live, 1.2MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
1.7429054065311047e-57
1.9857089587359046e-57
Compiler

Compiled 25 to 25 computations (0% saved)

derivations551.0ms (6.8%)

Memory
-92.2MiB live, 163.3MiB allocated; 847ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 355 to 75 computations (78.9% saved)

preprocess73.0ms (0.9%)

Memory
-18.0MiB live, 117.3MiB allocated; 25ms collecting garbage
Remove

(sort p r)

(abs q)

Compiler

Compiled 2 224 to 1 010 computations (54.6% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...