my $pval=Math::BigInt->new(10531788168169408);
  my ($l,$r) =$pval->brsft(32);