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