#!/usr/bin/perl -w

use strict ;

my $samplesize = $ARGV[0] ;
my $max        = $ARGV[1] ;

chomp(my $prog = `basename $0`) ;

if ($#ARGV < 1)
{
  print "\nUsage: ./randomnumber.pl <samplesize> <max num>\n" ;
  exit ;
}


for (my $i = 0; $i<$samplesize; $i++)
{
  my $range = $max ;
  my $random_number = int(rand($range)) - $max/2;
  print "$random_number \n";
}