my $rop = Math::BigInt->new(0); my $op = Math::BigInt->new(-123456); my $x = 1103;

gmp_mul_unsigned_integer($rop, $op, $x); print "\n" . $rop . "\n"; print (-123456 * 1103);

gmp_mul_unsigned_integer($op, $op, 5); print "\n" . $op . "\n"; print (-123456 * 5);