#!/usr/local/bin/perl
use strict;
use warnings;
use integer;
my $even = -1<<31;
do {
  print "$even\n";
  $even += 2;
} while ($even != -1<<31);