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

char *name = "logs (example 3.8)";

double f_if(float n) {
        float r19876 = n;
        float r19877 = 1.0f;
        float r19878 = r19876 + r19877;
        float r19879 = log(r19878);
        float r19880 = r19878 * r19879;
        float r19881 = log(r19876);
        float r19882 = r19876 * r19881;
        float r19883 = r19880 - r19882;
        float r19884 = r19883 - r19877;
        return r19884;
}

double f_id(double n) {
        double r19885 = n;
        double r19886 = 1.0;
        double r19887 = r19885 + r19886;
        double r19888 = log(r19887);
        double r19889 = r19887 * r19888;
        double r19890 = log(r19885);
        double r19891 = r19885 * r19890;
        double r19892 = r19889 - r19891;
        double r19893 = r19892 - r19886;
        return r19893;
}


double f_of(float n) {
        float r19894 = 1.0f;
        float r19895 = n;
        float r19896 = r19894 + r19895;
        float r19897 = log(r19896);
        float r19898 = r19897 * r19896;
        float r19899 = -r19895;
        float r19900 = log(r19895);
        float r19901 = r19899 * r19900;
        float r19902 = r19901 + r19894;
        float r19903 = r19898 - r19902;
        return r19903;
}

double f_od(double n) {
        double r19904 = 1.0;
        double r19905 = n;
        double r19906 = r19904 + r19905;
        double r19907 = log(r19906);
        double r19908 = r19907 * r19906;
        double r19909 = -r19905;
        double r19910 = log(r19905);
        double r19911 = r19909 * r19910;
        double r19912 = r19911 + r19904;
        double r19913 = r19908 - r19912;
        return r19913;
}

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 r19914, r19915, r19916, r19917, r19918, r19919, r19920, r19921, r19922;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1424);
        mpfr_init(r19914);
        mpfr_init_set_str(r19915, "1", 10, MPFR_RNDN);
        mpfr_init(r19916);
        mpfr_init(r19917);
        mpfr_init(r19918);
        mpfr_init(r19919);
        mpfr_init(r19920);
        mpfr_init(r19921);
        mpfr_init(r19922);
}

double f_im(double n) {
        mpfr_set_d(r19914, n, MPFR_RNDN);
        ;
        mpfr_add(r19916, r19914, r19915, MPFR_RNDN);
        mpfr_log(r19917, r19916, MPFR_RNDN);
        mpfr_mul(r19918, r19916, r19917, MPFR_RNDN);
        mpfr_log(r19919, r19914, MPFR_RNDN);
        mpfr_mul(r19920, r19914, r19919, MPFR_RNDN);
        mpfr_sub(r19921, r19918, r19920, MPFR_RNDN);
        mpfr_sub(r19922, r19921, r19915, MPFR_RNDN);
        return mpfr_get_d(r19922, MPFR_RNDN);
}

static mpfr_t r19923, r19924, r19925, r19926, r19927, r19928, r19929, r19930, r19931, r19932;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1424);
        mpfr_init_set_str(r19923, "1", 10, MPFR_RNDN);
        mpfr_init(r19924);
        mpfr_init(r19925);
        mpfr_init(r19926);
        mpfr_init(r19927);
        mpfr_init(r19928);
        mpfr_init(r19929);
        mpfr_init(r19930);
        mpfr_init(r19931);
        mpfr_init(r19932);
}

double f_fm(double n) {
        ;
        mpfr_set_d(r19924, n, MPFR_RNDN);
        mpfr_add(r19925, r19923, r19924, MPFR_RNDN);
        mpfr_log(r19926, r19925, MPFR_RNDN);
        mpfr_mul(r19927, r19926, r19925, MPFR_RNDN);
        mpfr_neg(r19928, r19924, MPFR_RNDN);
        mpfr_log(r19929, r19924, MPFR_RNDN);
        mpfr_mul(r19930, r19928, r19929, MPFR_RNDN);
        mpfr_add(r19931, r19930, r19923, MPFR_RNDN);
        mpfr_sub(r19932, r19927, r19931, MPFR_RNDN);
        return mpfr_get_d(r19932, MPFR_RNDN);
}

static mpfr_t r19933, r19934, r19935, r19936, r19937, r19938, r19939, r19940, r19941, r19942;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1424);
        mpfr_init_set_str(r19933, "1", 10, MPFR_RNDN);
        mpfr_init(r19934);
        mpfr_init(r19935);
        mpfr_init(r19936);
        mpfr_init(r19937);
        mpfr_init(r19938);
        mpfr_init(r19939);
        mpfr_init(r19940);
        mpfr_init(r19941);
        mpfr_init(r19942);
}

double f_dm(double n) {
        ;
        mpfr_set_d(r19934, n, MPFR_RNDN);
        mpfr_add(r19935, r19933, r19934, MPFR_RNDN);
        mpfr_log(r19936, r19935, MPFR_RNDN);
        mpfr_mul(r19937, r19936, r19935, MPFR_RNDN);
        mpfr_neg(r19938, r19934, MPFR_RNDN);
        mpfr_log(r19939, r19934, MPFR_RNDN);
        mpfr_mul(r19940, r19938, r19939, MPFR_RNDN);
        mpfr_add(r19941, r19940, r19933, MPFR_RNDN);
        mpfr_sub(r19942, r19937, r19941, MPFR_RNDN);
        return mpfr_get_d(r19942, MPFR_RNDN);
}