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

##</code><code>##

#include <stdio.h>
#include <gmp.h>

int main(void) {
 mp_exp_t exponent;
 char *out_1, *out_2;
 mpf_t large_1, large_2, little_1, little_2;
 char *str_1 =
  "11111111111111111111111111111111111111111111111111111111111111111001111111111111111111111111111111111111111111111111111111111111";
 char *str_2 = 
  "11111111111111111111111111111111111111111111111111111111111111111000000000000000000000000000000000000000000111111111111111111111";

 mpf_init2(large_1, 128);
 mpf_init2(large_2, 128);

 mpf_init2(little_1, 64);
 mpf_init2(little_2, 64);

 mpf_set_str(large_1, str_1, 2);
 mpf_set_str(large_2, str_2, 2);

 mpf_set(little_1, large_1);
 mpf_set(little_2, large_2);

 if(mpf_cmp(little_1, little_2)) printf("WTF\n");

 out_1 = mpf_get_str(NULL, &exponent, 10, 0, little_1);
 printf("%s %d\n", out_1, exponent);

 out_2 = mpf_get_str(NULL, &exponent, 10, 0, little_2);
 printf("%s %d\n", out_2, exponent);

 mpf_out_str(stdout, 2, 0, little_1);
 printf("\n");

 mpf_out_str(stdout, 2, 0, little_2);
 printf("\n");

 printf("%d\n%d\n", mpf_get_prec(little_1),
                    mpf_get_prec(little_2));

 return 0;
}

/*
OUTPUTS:

WTF
340282366920938463456 39
340282366920938463454 39
0.11111111111111111111111111111111111111111111111111111111111111111e128
0.11111111111111111111111111111111111111111111111111111111111111111e128
64
64
*/