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

char *name = "Expression, p6";

double f_if(float a, float b, float c, float d) {
        float r25727 = a;
        float r25728 = b;
        float r25729 = c;
        float r25730 = d;
        float r25731 = r25729 + r25730;
        float r25732 = r25728 + r25731;
        float r25733 = r25727 + r25732;
        float r25734 = 2;
        float r25735 = r25733 * r25734;
        return r25735;
}

double f_id(double a, double b, double c, double d) {
        double r25736 = a;
        double r25737 = b;
        double r25738 = c;
        double r25739 = d;
        double r25740 = r25738 + r25739;
        double r25741 = r25737 + r25740;
        double r25742 = r25736 + r25741;
        double r25743 = 2;
        double r25744 = r25742 * r25743;
        return r25744;
}


double f_of(float a, float b, float c, float d) {
        float r25745 = b;
        float r25746 = c;
        float r25747 = r25745 + r25746;
        float r25748 = d;
        float r25749 = a;
        float r25750 = r25748 + r25749;
        float r25751 = r25747 + r25750;
        float r25752 = 2;
        float r25753 = r25751 * r25752;
        return r25753;
}

double f_od(double a, double b, double c, double d) {
        double r25754 = b;
        double r25755 = c;
        double r25756 = r25754 + r25755;
        double r25757 = d;
        double r25758 = a;
        double r25759 = r25757 + r25758;
        double r25760 = r25756 + r25759;
        double r25761 = 2;
        double r25762 = r25760 * r25761;
        return r25762;
}

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 r25763, r25764, r25765, r25766, r25767, r25768, r25769, r25770, r25771;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(336);
        mpfr_init(r25763);
        mpfr_init(r25764);
        mpfr_init(r25765);
        mpfr_init(r25766);
        mpfr_init(r25767);
        mpfr_init(r25768);
        mpfr_init(r25769);
        mpfr_init_set_str(r25770, "2", 10, MPFR_RNDN);
        mpfr_init(r25771);
}

double f_im(double a, double b, double c, double d) {
        mpfr_set_d(r25763, a, MPFR_RNDN);
        mpfr_set_d(r25764, b, MPFR_RNDN);
        mpfr_set_d(r25765, c, MPFR_RNDN);
        mpfr_set_d(r25766, d, MPFR_RNDN);
        mpfr_add(r25767, r25765, r25766, MPFR_RNDN);
        mpfr_add(r25768, r25764, r25767, MPFR_RNDN);
        mpfr_add(r25769, r25763, r25768, MPFR_RNDN);
        ;
        mpfr_mul(r25771, r25769, r25770, MPFR_RNDN);
        return mpfr_get_d(r25771, MPFR_RNDN);
}

static mpfr_t r25772, r25773, r25774, r25775, r25776, r25777, r25778, r25779, r25780;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        mpfr_init(r25772);
        mpfr_init(r25773);
        mpfr_init(r25774);
        mpfr_init(r25775);
        mpfr_init(r25776);
        mpfr_init(r25777);
        mpfr_init(r25778);
        mpfr_init_set_str(r25779, "2", 10, MPFR_RNDN);
        mpfr_init(r25780);
}

double f_fm(double a, double b, double c, double d) {
        mpfr_set_d(r25772, b, MPFR_RNDN);
        mpfr_set_d(r25773, c, MPFR_RNDN);
        mpfr_add(r25774, r25772, r25773, MPFR_RNDN);
        mpfr_set_d(r25775, d, MPFR_RNDN);
        mpfr_set_d(r25776, a, MPFR_RNDN);
        mpfr_add(r25777, r25775, r25776, MPFR_RNDN);
        mpfr_add(r25778, r25774, r25777, MPFR_RNDN);
        ;
        mpfr_mul(r25780, r25778, r25779, MPFR_RNDN);
        return mpfr_get_d(r25780, MPFR_RNDN);
}

static mpfr_t r25781, r25782, r25783, r25784, r25785, r25786, r25787, r25788, r25789;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        mpfr_init(r25781);
        mpfr_init(r25782);
        mpfr_init(r25783);
        mpfr_init(r25784);
        mpfr_init(r25785);
        mpfr_init(r25786);
        mpfr_init(r25787);
        mpfr_init_set_str(r25788, "2", 10, MPFR_RNDN);
        mpfr_init(r25789);
}

double f_dm(double a, double b, double c, double d) {
        mpfr_set_d(r25781, b, MPFR_RNDN);
        mpfr_set_d(r25782, c, MPFR_RNDN);
        mpfr_add(r25783, r25781, r25782, MPFR_RNDN);
        mpfr_set_d(r25784, d, MPFR_RNDN);
        mpfr_set_d(r25785, a, MPFR_RNDN);
        mpfr_add(r25786, r25784, r25785, MPFR_RNDN);
        mpfr_add(r25787, r25783, r25786, MPFR_RNDN);
        ;
        mpfr_mul(r25789, r25787, r25788, MPFR_RNDN);
        return mpfr_get_d(r25789, MPFR_RNDN);
}