my $i=new Math::BigInt shift();
my($int1,$int2)=do {
  if ($i<0) {
    $i=-1-$i;
    (~(int($i/2**32)%2**32),~int($i%2**32));
  } else {
    (int($i/2**32)%2**32,int($i%2**32));
  }
};
pack('NN',$int1,$int2);