#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 r20133 = a;
        float r20134 = b;
        float r20135 = c;
        float r20136 = d;
        float r20137 = r20135 + r20136;
        float r20138 = r20134 + r20137;
        float r20139 = r20133 + r20138;
        float r20140 = 2.0f;
        float r20141 = r20139 * r20140;
        return r20141;
}

double f_id(double a, double b, double c, double d) {
        double r20142 = a;
        double r20143 = b;
        double r20144 = c;
        double r20145 = d;
        double r20146 = r20144 + r20145;
        double r20147 = r20143 + r20146;
        double r20148 = r20142 + r20147;
        double r20149 = 2.0;
        double r20150 = r20148 * r20149;
        return r20150;
}


double f_of(float a, float b, float c, float d) {
        float r20151 = a;
        float r20152 = b;
        float r20153 = c;
        float r20154 = r20152 + r20153;
        float r20155 = d;
        float r20156 = r20154 + r20155;
        float r20157 = r20151 + r20156;
        float r20158 = 2.0f;
        float r20159 = r20157 * r20158;
        return r20159;
}

double f_od(double a, double b, double c, double d) {
        double r20160 = a;
        double r20161 = b;
        double r20162 = c;
        double r20163 = r20161 + r20162;
        double r20164 = d;
        double r20165 = r20163 + r20164;
        double r20166 = r20160 + r20165;
        double r20167 = 2.0;
        double r20168 = r20166 * r20167;
        return r20168;
}

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 r20169, r20170, r20171, r20172, r20173, r20174, r20175, r20176, r20177;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r20169);
        mpfr_init(r20170);
        mpfr_init(r20171);
        mpfr_init(r20172);
        mpfr_init(r20173);
        mpfr_init(r20174);
        mpfr_init(r20175);
        mpfr_init_set_str(r20176, "2", 10, MPFR_RNDN);
        mpfr_init(r20177);
}

double f_im(double a, double b, double c, double d) {
        mpfr_set_d(r20169, a, MPFR_RNDN);
        mpfr_set_d(r20170, b, MPFR_RNDN);
        mpfr_set_d(r20171, c, MPFR_RNDN);
        mpfr_set_d(r20172, d, MPFR_RNDN);
        mpfr_add(r20173, r20171, r20172, MPFR_RNDN);
        mpfr_add(r20174, r20170, r20173, MPFR_RNDN);
        mpfr_add(r20175, r20169, r20174, MPFR_RNDN);
        ;
        mpfr_mul(r20177, r20175, r20176, MPFR_RNDN);
        return mpfr_get_d(r20177, MPFR_RNDN);
}

static mpfr_t r20178, r20179, r20180, r20181, r20182, r20183, r20184, r20185, r20186;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r20178);
        mpfr_init(r20179);
        mpfr_init(r20180);
        mpfr_init(r20181);
        mpfr_init(r20182);
        mpfr_init(r20183);
        mpfr_init(r20184);
        mpfr_init_set_str(r20185, "2", 10, MPFR_RNDN);
        mpfr_init(r20186);
}

double f_fm(double a, double b, double c, double d) {
        mpfr_set_d(r20178, a, MPFR_RNDN);
        mpfr_set_d(r20179, b, MPFR_RNDN);
        mpfr_set_d(r20180, c, MPFR_RNDN);
        mpfr_add(r20181, r20179, r20180, MPFR_RNDN);
        mpfr_set_d(r20182, d, MPFR_RNDN);
        mpfr_add(r20183, r20181, r20182, MPFR_RNDN);
        mpfr_add(r20184, r20178, r20183, MPFR_RNDN);
        ;
        mpfr_mul(r20186, r20184, r20185, MPFR_RNDN);
        return mpfr_get_d(r20186, MPFR_RNDN);
}

static mpfr_t r20187, r20188, r20189, r20190, r20191, r20192, r20193, r20194, r20195;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r20187);
        mpfr_init(r20188);
        mpfr_init(r20189);
        mpfr_init(r20190);
        mpfr_init(r20191);
        mpfr_init(r20192);
        mpfr_init(r20193);
        mpfr_init_set_str(r20194, "2", 10, MPFR_RNDN);
        mpfr_init(r20195);
}

double f_dm(double a, double b, double c, double d) {
        mpfr_set_d(r20187, a, MPFR_RNDN);
        mpfr_set_d(r20188, b, MPFR_RNDN);
        mpfr_set_d(r20189, c, MPFR_RNDN);
        mpfr_add(r20190, r20188, r20189, MPFR_RNDN);
        mpfr_set_d(r20191, d, MPFR_RNDN);
        mpfr_add(r20192, r20190, r20191, MPFR_RNDN);
        mpfr_add(r20193, r20187, r20192, MPFR_RNDN);
        ;
        mpfr_mul(r20195, r20193, r20194, MPFR_RNDN);
        return mpfr_get_d(r20195, MPFR_RNDN);
}