#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 r27631 = x;
        float r27632 = r27631 / r27631;
        float r27633 = 1;
        float r27634 = r27633 / r27631;
        float r27635 = r27631 * r27631;
        float r27636 = sqrt(r27635);
        float r27637 = r27634 * r27636;
        float r27638 = r27632 - r27637;
        return r27638;
}

double f_id(double x) {
        double r27639 = x;
        double r27640 = r27639 / r27639;
        double r27641 = 1;
        double r27642 = r27641 / r27639;
        double r27643 = r27639 * r27639;
        double r27644 = sqrt(r27643);
        double r27645 = r27642 * r27644;
        double r27646 = r27640 - r27645;
        return r27646;
}


double f_of(float x) {
        float r27647 = 1;
        float r27648 = x;
        float r27649 = fabs(r27648);
        float r27650 = r27649 / r27648;
        float r27651 = r27647 - r27650;
        return r27651;
}

double f_od(double x) {
        double r27652 = 1;
        double r27653 = x;
        double r27654 = fabs(r27653);
        double r27655 = r27654 / r27653;
        double r27656 = r27652 - r27655;
        return r27656;
}

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 r27657, r27658, r27659, r27660, r27661, r27662, r27663, r27664;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1360);
        mpfr_init(r27657);
        mpfr_init(r27658);
        mpfr_init_set_str(r27659, "1", 10, MPFR_RNDN);
        mpfr_init(r27660);
        mpfr_init(r27661);
        mpfr_init(r27662);
        mpfr_init(r27663);
        mpfr_init(r27664);
}

double f_im(double x) {
        mpfr_set_d(r27657, x, MPFR_RNDN);
        mpfr_div(r27658, r27657, r27657, MPFR_RNDN);
        ;
        mpfr_div(r27660, r27659, r27657, MPFR_RNDN);
        mpfr_mul(r27661, r27657, r27657, MPFR_RNDN);
        mpfr_sqrt(r27662, r27661, MPFR_RNDN);
        mpfr_mul(r27663, r27660, r27662, MPFR_RNDN);
        mpfr_sub(r27664, r27658, r27663, MPFR_RNDN);
        return mpfr_get_d(r27664, MPFR_RNDN);
}

static mpfr_t r27665, r27666, r27667, r27668, r27669;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1360);
        mpfr_init_set_str(r27665, "1", 10, MPFR_RNDN);
        mpfr_init(r27666);
        mpfr_init(r27667);
        mpfr_init(r27668);
        mpfr_init(r27669);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r27666, x, MPFR_RNDN);
        mpfr_abs(r27667, r27666, MPFR_RNDN);
        mpfr_div(r27668, r27667, r27666, MPFR_RNDN);
        mpfr_sub(r27669, r27665, r27668, MPFR_RNDN);
        return mpfr_get_d(r27669, MPFR_RNDN);
}

static mpfr_t r27670, r27671, r27672, r27673, r27674;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1360);
        mpfr_init_set_str(r27670, "1", 10, MPFR_RNDN);
        mpfr_init(r27671);
        mpfr_init(r27672);
        mpfr_init(r27673);
        mpfr_init(r27674);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r27671, x, MPFR_RNDN);
        mpfr_abs(r27672, r27671, MPFR_RNDN);
        mpfr_div(r27673, r27672, r27671, MPFR_RNDN);
        mpfr_sub(r27674, r27670, r27673, MPFR_RNDN);
        return mpfr_get_d(r27674, MPFR_RNDN);
}