#!/usr/bin/perl

use strict;
use warnings;
use integer;

$| = 1;

my $MAXQUAD = 18446744073709551615;

for (my $i = 9007199254740000; $i <= $MAXQUAD; $i++)
{
  printf("\n %.0f   %d", $i, $i);
}


##</code><code>##

 4611686018420022272  4611686018420022338
 4611686018420022272  4611686018420022339
 4611686018420022272  4611686018420022340
 4611686018420022272  4611686018420022341
 4611686018420022272  4611686018420022342
 4611686018420022272  4611686018420022343
 4611686018420022272  4611686018420022344
 4611686018420022272  4611686018420022345
 4611686018420022272  4611686018420022346
 4611686018420022272  4611686018420022347
 4611686018420022272  4611686018420022348
 4611686018420022272  4611686018420022349
 4611686018420022272  4611686018420022350