use strict;
use warnings;
use diagnostics;
use Math::BigFloat;

my $x = Math::BigFloat->new(2**23);
print "x=$x\n";

my $product = $x->copy();
$product->bfac();
print "p=$product\n";