#!/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);
}