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

char *name = "neg log";

double f_if(float x) {
        float r19775 = 1;
        float r19776 = x;
        float r19777 = r19775 / r19776;
        float r19778 = r19777 - r19775;
        float r19779 = log(r19778);
        float r19780 = -r19779;
        return r19780;
}

double f_id(double x) {
        double r19781 = 1;
        double r19782 = x;
        double r19783 = r19781 / r19782;
        double r19784 = r19783 - r19781;
        double r19785 = log(r19784);
        double r19786 = -r19785;
        return r19786;
}


double f_of(float x) {
        float r19787 = 1;
        float r19788 = x;
        float r19789 = r19787 / r19788;
        float r19790 = r19789 - r19787;
        float r19791 = log(r19790);
        float r19792 = -r19791;
        return r19792;
}

double f_od(double x) {
        double r19793 = 1;
        double r19794 = x;
        double r19795 = r19793 / r19794;
        double r19796 = r19795 - r19793;
        double r19797 = log(r19796);
        double r19798 = -r19797;
        return r19798;
}

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 r19799, r19800, r19801, r19802, r19803, r19804;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r19799, "1", 10, MPFR_RNDN);
        mpfr_init(r19800);
        mpfr_init(r19801);
        mpfr_init(r19802);
        mpfr_init(r19803);
        mpfr_init(r19804);
}

double f_im(double x) {
        ;
        mpfr_set_d(r19800, x, MPFR_RNDN);
        mpfr_div(r19801, r19799, r19800, MPFR_RNDN);
        mpfr_sub(r19802, r19801, r19799, MPFR_RNDN);
        mpfr_log(r19803, r19802, MPFR_RNDN);
        mpfr_neg(r19804, r19803, MPFR_RNDN);
        return mpfr_get_d(r19804, MPFR_RNDN);
}

static mpfr_t r19805, r19806, r19807, r19808, r19809, r19810;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r19805, "1", 10, MPFR_RNDN);
        mpfr_init(r19806);
        mpfr_init(r19807);
        mpfr_init(r19808);
        mpfr_init(r19809);
        mpfr_init(r19810);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r19806, x, MPFR_RNDN);
        mpfr_div(r19807, r19805, r19806, MPFR_RNDN);
        mpfr_sub(r19808, r19807, r19805, MPFR_RNDN);
        mpfr_log(r19809, r19808, MPFR_RNDN);
        mpfr_neg(r19810, r19809, MPFR_RNDN);
        return mpfr_get_d(r19810, MPFR_RNDN);
}

static mpfr_t r19811, r19812, r19813, r19814, r19815, r19816;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r19811, "1", 10, MPFR_RNDN);
        mpfr_init(r19812);
        mpfr_init(r19813);
        mpfr_init(r19814);
        mpfr_init(r19815);
        mpfr_init(r19816);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r19812, x, MPFR_RNDN);
        mpfr_div(r19813, r19811, r19812, MPFR_RNDN);
        mpfr_sub(r19814, r19813, r19811, MPFR_RNDN);
        mpfr_log(r19815, r19814, MPFR_RNDN);
        mpfr_neg(r19816, r19815, MPFR_RNDN);
        return mpfr_get_d(r19816, MPFR_RNDN);
}