#!/usr/bin/perl

use strict;
use warnings;

#use Math::Random::MT qw(rand);

for (1..32){
    print (int (rand(2**31)) & 7, "\n");
}

my $sum = 0;

for (1..1000000){
    $sum += rand();
    #print &rand()."\n";

}

print $sum."\n";