#!/usr/bin/perl -w
use strict;

$SIG{'INT'}= sub { die("SIGINT\n"); };
$SIG{'PIPE'}=sub { die("SIGPIPE\n"); };

my $maxintvec=0;
for (my $b=0;$b<32;$b++)
{
	vec($maxintvec,$b,1)=1;
}
my ($maxint)=unpack("L",$maxintvec);

my $start=0;
my $end=$maxint;

for(my $i=$start;$i<=$end;$i++)
{
	print pack("L",$i);
}