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

char *name = "Difference of squares";

double f_if(float a, float b) {
        float r52032 = a;
        float r52033 = r52032 * r52032;
        float r52034 = b;
        float r52035 = r52034 * r52034;
        float r52036 = r52033 - r52035;
        return r52036;
}

double f_id(double a, double b) {
        double r52037 = a;
        double r52038 = r52037 * r52037;
        double r52039 = b;
        double r52040 = r52039 * r52039;
        double r52041 = r52038 - r52040;
        return r52041;
}


double f_of(float a, float b) {
        float r52042 = a;
        float r52043 = r52042 * r52042;
        float r52044 = b;
        float r52045 = r52044 * r52044;
        float r52046 = r52043 - r52045;
        return r52046;
}

double f_od(double a, double b) {
        double r52047 = a;
        double r52048 = r52047 * r52047;
        double r52049 = b;
        double r52050 = r52049 * r52049;
        double r52051 = r52048 - r52050;
        return r52051;
}

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 r52052, r52053, r52054, r52055, r52056;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r52052);
        mpfr_init(r52053);
        mpfr_init(r52054);
        mpfr_init(r52055);
        mpfr_init(r52056);
}

double f_im(double a, double b) {
        mpfr_set_d(r52052, a, MPFR_RNDN);
        mpfr_mul(r52053, r52052, r52052, MPFR_RNDN);
        mpfr_set_d(r52054, b, MPFR_RNDN);
        mpfr_mul(r52055, r52054, r52054, MPFR_RNDN);
        mpfr_sub(r52056, r52053, r52055, MPFR_RNDN);
        return mpfr_get_d(r52056, MPFR_RNDN);
}

static mpfr_t r52057, r52058, r52059, r52060, r52061;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r52057);
        mpfr_init(r52058);
        mpfr_init(r52059);
        mpfr_init(r52060);
        mpfr_init(r52061);
}

double f_fm(double a, double b) {
        mpfr_set_d(r52057, a, MPFR_RNDN);
        mpfr_mul(r52058, r52057, r52057, MPFR_RNDN);
        mpfr_set_d(r52059, b, MPFR_RNDN);
        mpfr_mul(r52060, r52059, r52059, MPFR_RNDN);
        mpfr_sub(r52061, r52058, r52060, MPFR_RNDN);
        return mpfr_get_d(r52061, MPFR_RNDN);
}

static mpfr_t r52062, r52063, r52064, r52065, r52066;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r52062);
        mpfr_init(r52063);
        mpfr_init(r52064);
        mpfr_init(r52065);
        mpfr_init(r52066);
}

double f_dm(double a, double b) {
        mpfr_set_d(r52062, a, MPFR_RNDN);
        mpfr_mul(r52063, r52062, r52062, MPFR_RNDN);
        mpfr_set_d(r52064, b, MPFR_RNDN);
        mpfr_mul(r52065, r52064, r52064, MPFR_RNDN);
        mpfr_sub(r52066, r52063, r52065, MPFR_RNDN);
        return mpfr_get_d(r52066, MPFR_RNDN);
}