int
sizeinbase_gmp(n, b)
       mpz_t * n
       int b

  CODE:
    RETVAL = mpz_sizeinbase(*n, b);



##</code><code>##

sub Math::BigInt::sizeinbase_gmp {
    my $bigint = shift; # ?
    my $base = shift;
    require Math::BaseCnv;
    return Math::BaseCnv::cnv( length($bigint)-1, 10, $base (;
}