#include <tgmath.h>
#include <gmp.h>
#include <mpfr.h>
#include <stdio.h>
#include <stdbool.h>

char *name = "subtraction fraction";

double f_if(float f, float n) {
        float r20561 = f;
        float r20562 = n;
        float r20563 = r20561 + r20562;
        float r20564 = -r20563;
        float r20565 = r20561 - r20562;
        float r20566 = r20564 / r20565;
        return r20566;
}

double f_id(double f, double n) {
        double r20567 = f;
        double r20568 = n;
        double r20569 = r20567 + r20568;
        double r20570 = -r20569;
        double r20571 = r20567 - r20568;
        double r20572 = r20570 / r20571;
        return r20572;
}


double f_of(float f, float n) {
        float r20573 = n;
        float r20574 = f;
        float r20575 = r20573 + r20574;
        float r20576 = -r20575;
        float r20577 = r20574 - r20573;
        float r20578 = r20576 / r20577;
        float r20579 = r20577 / r20575;
        float r20580 = r20579 * r20579;
        float r20581 = r20578 / r20580;
        float r20582 = cbrt(r20581);
        return r20582;
}

double f_od(double f, double n) {
        double r20583 = n;
        double r20584 = f;
        double r20585 = r20583 + r20584;
        double r20586 = -r20585;
        double r20587 = r20584 - r20583;
        double r20588 = r20586 / r20587;
        double r20589 = r20587 / r20585;
        double r20590 = r20589 * r20589;
        double r20591 = r20588 / r20590;
        double r20592 = cbrt(r20591);
        return r20592;
}

void mpfr_fmod2(mpfr_t r, mpfr_t n, mpfr_t d, mpfr_rnd_t rmd) {
        mpfr_fmod(r, n, d, rmd);
        if (mpfr_cmp_ui(r, 0) < 0) mpfr_add(r, r, d, rmd);
}


static mpfr_t r20593, r20594, r20595, r20596, r20597, r20598;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r20593);
        mpfr_init(r20594);
        mpfr_init(r20595);
        mpfr_init(r20596);
        mpfr_init(r20597);
        mpfr_init(r20598);
}

double f_im(double f, double n) {
        mpfr_set_d(r20593, f, MPFR_RNDN);
        mpfr_set_d(r20594, n, MPFR_RNDN);
        mpfr_add(r20595, r20593, r20594, MPFR_RNDN);
        mpfr_neg(r20596, r20595, MPFR_RNDN);
        mpfr_sub(r20597, r20593, r20594, MPFR_RNDN);
        mpfr_div(r20598, r20596, r20597, MPFR_RNDN);
        return mpfr_get_d(r20598, MPFR_RNDN);
}

static mpfr_t r20599, r20600, r20601, r20602, r20603, r20604, r20605, r20606, r20607, r20608;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r20599);
        mpfr_init(r20600);
        mpfr_init(r20601);
        mpfr_init(r20602);
        mpfr_init(r20603);
        mpfr_init(r20604);
        mpfr_init(r20605);
        mpfr_init(r20606);
        mpfr_init(r20607);
        mpfr_init(r20608);
}

double f_fm(double f, double n) {
        mpfr_set_d(r20599, n, MPFR_RNDN);
        mpfr_set_d(r20600, f, MPFR_RNDN);
        mpfr_add(r20601, r20599, r20600, MPFR_RNDN);
        mpfr_neg(r20602, r20601, MPFR_RNDN);
        mpfr_sub(r20603, r20600, r20599, MPFR_RNDN);
        mpfr_div(r20604, r20602, r20603, MPFR_RNDN);
        mpfr_div(r20605, r20603, r20601, MPFR_RNDN);
        mpfr_mul(r20606, r20605, r20605, MPFR_RNDN);
        mpfr_div(r20607, r20604, r20606, MPFR_RNDN);
        mpfr_cbrt(r20608, r20607, MPFR_RNDN);
        return mpfr_get_d(r20608, MPFR_RNDN);
}

static mpfr_t r20609, r20610, r20611, r20612, r20613, r20614, r20615, r20616, r20617, r20618;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r20609);
        mpfr_init(r20610);
        mpfr_init(r20611);
        mpfr_init(r20612);
        mpfr_init(r20613);
        mpfr_init(r20614);
        mpfr_init(r20615);
        mpfr_init(r20616);
        mpfr_init(r20617);
        mpfr_init(r20618);
}

double f_dm(double f, double n) {
        mpfr_set_d(r20609, n, MPFR_RNDN);
        mpfr_set_d(r20610, f, MPFR_RNDN);
        mpfr_add(r20611, r20609, r20610, MPFR_RNDN);
        mpfr_neg(r20612, r20611, MPFR_RNDN);
        mpfr_sub(r20613, r20610, r20609, MPFR_RNDN);
        mpfr_div(r20614, r20612, r20613, MPFR_RNDN);
        mpfr_div(r20615, r20613, r20611, MPFR_RNDN);
        mpfr_mul(r20616, r20615, r20615, MPFR_RNDN);
        mpfr_div(r20617, r20614, r20616, MPFR_RNDN);
        mpfr_cbrt(r20618, r20617, MPFR_RNDN);
        return mpfr_get_d(r20618, MPFR_RNDN);
}