for my $n (53..55) {
    my $max =   2**($n-1) - 1 ;
    my $min = -(2**($n-1)) ;

    printf "%4d: -%s..%s\n", $n, show($min), show($max) ;
  } ;

  sub show {
    my ($x) = @_ ;

    my $ms = int(abs($x)/2**32) ;
    my $ls = abs($x) - ($ms * 2**32) ;

    sprintf '0x%04X_%04X_%04X_%04X', ($ms >> 16), ($ms & 0xFFFF),
                                     ($ls >> 16), ($ls & 0xFFFF) ;
  } ;