Select Code to Download

use bigrat;

...

($j) = ($i .. $i);
print("j: ", ref($j), "\n");

i: Math::BigInt
j:

use bigrat;

...
   }
   print "n = $n, s = $s\n";
}

$x = Math::BigRat->new($x);