sub blog10 {
    my $n = shift;

    my $bn = ref($n) ? $n->copy
                     : do {
                         require Math::BigInt;
                         Math::BigInt->new($n)
                     };

    my $ret = $bn->blog(10);

    return ref($n) ? $ret : $ret->numify;
}