#!/usr/bin/perl -w

use Math::BigInt;

$x = Math::BigInt->new('0xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF');
$y = Math::BigInt->new('6123125123125136535612134122135123');

print "x = ", $x, "\n";
print "y = ", $y, "\n";
print "x^2 = ", $x->bpow(2), "\n";
print "x*y = ", $x->copy()->bmul($y), "\n";
print "x^2 mod y = ", $x->bmodpow(2, $y), "\n";
