use strict;
use warnings;
use Math::GMPf qw(:mpf);

my $large_1 = Rmpf_init2(128);
my $large_2 = Rmpf_init2(128);

my $little_1 = Rmpf_init2(64);
my $little_2 = Rmpf_init2(64);

Rmpf_set_str($large_1, ('1' x 65) . ('0' x  2) . ('1' x 61), 2);
Rmpf_set_str($large_2, ('1' x 65) . ('0' x 42) . ('1' x 21), 2);


Rmpf_set($little_1, $large_1);
Rmpf_set($little_2, $large_2);

if(Rmpf_cmp($little_1, $little_2)) {print "WTF\n"}
print $little_1, "\n", $little_2, "\n";

Rmpf_out_str($little_1, 2, 0);
print "\n";
Rmpf_out_str($little_2, 2, 0);
print "\n";

print Rmpf_get_prec($little_1), "\n";
print Rmpf_get_prec($little_2), "\n";

__END__

OUTPUTS:

WTF
0.340282366920938463456e39
0.340282366920938463454e39
0.11111111111111111111111111111111111111111111111111111111111111111e128
0.11111111111111111111111111111111111111111111111111111111111111111e128
64
64