#!/usr/bin/perl

use strict;
use warnings;

my $n;
$n = ~0 >> 1;
print "$n\n";
my $x = 999999999999999;
print "$x\n";
$x = 1000000000000000;
print "$x\n";
my $z = 1.79769313486231e+308;
print "$z\n";
$z = 1.79769313486232e+308;
print "$z\n";

##</code><code>##

2147483647
999999999999999
1e+15
1.79769313486231e+308
inf