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