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

char *name = "Expression 4, p15";

double f_if(float a, float b) {
        float r26348 = a;
        float r26349 = b;
        float r26350 = r26348 + r26349;
        float r26351 = r26350 * r26350;
        return r26351;
}

double f_id(double a, double b) {
        double r26352 = a;
        double r26353 = b;
        double r26354 = r26352 + r26353;
        double r26355 = r26354 * r26354;
        return r26355;
}


double f_of(float a, float b) {
        float r26356 = a;
        float r26357 = b;
        float r26358 = r26356 + r26357;
        float r26359 = r26358 * r26356;
        float r26360 = r26358 * r26357;
        float r26361 = r26359 + r26360;
        return r26361;
}

double f_od(double a, double b) {
        double r26362 = a;
        double r26363 = b;
        double r26364 = r26362 + r26363;
        double r26365 = r26364 * r26362;
        double r26366 = r26364 * r26363;
        double r26367 = r26365 + r26366;
        return r26367;
}

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 r26368, r26369, r26370, r26371;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(336);
        mpfr_init(r26368);
        mpfr_init(r26369);
        mpfr_init(r26370);
        mpfr_init(r26371);
}

double f_im(double a, double b) {
        mpfr_set_d(r26368, a, MPFR_RNDN);
        mpfr_set_d(r26369, b, MPFR_RNDN);
        mpfr_add(r26370, r26368, r26369, MPFR_RNDN);
        mpfr_mul(r26371, r26370, r26370, MPFR_RNDN);
        return mpfr_get_d(r26371, MPFR_RNDN);
}

static mpfr_t r26372, r26373, r26374, r26375, r26376, r26377;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        mpfr_init(r26372);
        mpfr_init(r26373);
        mpfr_init(r26374);
        mpfr_init(r26375);
        mpfr_init(r26376);
        mpfr_init(r26377);
}

double f_fm(double a, double b) {
        mpfr_set_d(r26372, a, MPFR_RNDN);
        mpfr_set_d(r26373, b, MPFR_RNDN);
        mpfr_add(r26374, r26372, r26373, MPFR_RNDN);
        mpfr_mul(r26375, r26374, r26372, MPFR_RNDN);
        mpfr_mul(r26376, r26374, r26373, MPFR_RNDN);
        mpfr_add(r26377, r26375, r26376, MPFR_RNDN);
        return mpfr_get_d(r26377, MPFR_RNDN);
}

static mpfr_t r26378, r26379, r26380, r26381, r26382, r26383;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        mpfr_init(r26378);
        mpfr_init(r26379);
        mpfr_init(r26380);
        mpfr_init(r26381);
        mpfr_init(r26382);
        mpfr_init(r26383);
}

double f_dm(double a, double b) {
        mpfr_set_d(r26378, a, MPFR_RNDN);
        mpfr_set_d(r26379, b, MPFR_RNDN);
        mpfr_add(r26380, r26378, r26379, MPFR_RNDN);
        mpfr_mul(r26381, r26380, r26378, MPFR_RNDN);
        mpfr_mul(r26382, r26380, r26379, MPFR_RNDN);
        mpfr_add(r26383, r26381, r26382, MPFR_RNDN);
        return mpfr_get_d(r26383, MPFR_RNDN);
}