Help for this page
void foo(mpfr_t * x) { mpfr_out_str(*x, .......); fflush(stdout); }
SV * foo(mpfr_t * x) { size_t s = mpfr_out_str(*x, .......); fflush(stdout); return newSViv(s); }