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

char *name = "sqrt sqr";

double f_if(float x) {
        float r27298 = x;
        float r27299 = r27298 / r27298;
        float r27300 = 1;
        float r27301 = r27300 / r27298;
        float r27302 = r27298 * r27298;
        float r27303 = sqrt(r27302);
        float r27304 = r27301 * r27303;
        float r27305 = r27299 - r27304;
        return r27305;
}

double f_id(double x) {
        double r27306 = x;
        double r27307 = r27306 / r27306;
        double r27308 = 1;
        double r27309 = r27308 / r27306;
        double r27310 = r27306 * r27306;
        double r27311 = sqrt(r27310);
        double r27312 = r27309 * r27311;
        double r27313 = r27307 - r27312;
        return r27313;
}


double f_of(float x) {
        float r27314 = 1;
        float r27315 = x;
        float r27316 = fabs(r27315);
        float r27317 = r27316 / r27315;
        float r27318 = r27314 - r27317;
        return r27318;
}

double f_od(double x) {
        double r27319 = 1;
        double r27320 = x;
        double r27321 = fabs(r27320);
        double r27322 = r27321 / r27320;
        double r27323 = r27319 - r27322;
        return r27323;
}

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 r27324, r27325, r27326, r27327, r27328, r27329, r27330, r27331;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1360);
        mpfr_init(r27324);
        mpfr_init(r27325);
        mpfr_init_set_str(r27326, "1", 10, MPFR_RNDN);
        mpfr_init(r27327);
        mpfr_init(r27328);
        mpfr_init(r27329);
        mpfr_init(r27330);
        mpfr_init(r27331);
}

double f_im(double x) {
        mpfr_set_d(r27324, x, MPFR_RNDN);
        mpfr_div(r27325, r27324, r27324, MPFR_RNDN);
        ;
        mpfr_div(r27327, r27326, r27324, MPFR_RNDN);
        mpfr_mul(r27328, r27324, r27324, MPFR_RNDN);
        mpfr_sqrt(r27329, r27328, MPFR_RNDN);
        mpfr_mul(r27330, r27327, r27329, MPFR_RNDN);
        mpfr_sub(r27331, r27325, r27330, MPFR_RNDN);
        return mpfr_get_d(r27331, MPFR_RNDN);
}

static mpfr_t r27332, r27333, r27334, r27335, r27336;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1360);
        mpfr_init_set_str(r27332, "1", 10, MPFR_RNDN);
        mpfr_init(r27333);
        mpfr_init(r27334);
        mpfr_init(r27335);
        mpfr_init(r27336);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r27333, x, MPFR_RNDN);
        mpfr_abs(r27334, r27333, MPFR_RNDN);
        mpfr_div(r27335, r27334, r27333, MPFR_RNDN);
        mpfr_sub(r27336, r27332, r27335, MPFR_RNDN);
        return mpfr_get_d(r27336, MPFR_RNDN);
}

static mpfr_t r27337, r27338, r27339, r27340, r27341;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1360);
        mpfr_init_set_str(r27337, "1", 10, MPFR_RNDN);
        mpfr_init(r27338);
        mpfr_init(r27339);
        mpfr_init(r27340);
        mpfr_init(r27341);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r27338, x, MPFR_RNDN);
        mpfr_abs(r27339, r27338, MPFR_RNDN);
        mpfr_div(r27340, r27339, r27338, MPFR_RNDN);
        mpfr_sub(r27341, r27337, r27340, MPFR_RNDN);
        return mpfr_get_d(r27341, MPFR_RNDN);
}