\frac{x0}{1 - x1} - x0
(FPCore (x0 x1) :precision binary64 (- (/ x0 (- 1.0 x1)) x0))
double code(double x0, double x1) { return (x0 / (1.0 - x1)) - x0; }