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

my $randomx=37; # the seed for x
my $randomy=1531; # the seed for y
my $n_randomx=0;
my $n_randomy=0;
my $i=0;


while ($i<101) {
	
	$n_randomx=(($randomx*106+1283) % 6075) / 6075;	
	$n_randomy=(($randomy*106+1283) % 6075) / 6075;
	
	print "$i $randomx $randomy\n\n";
	$randomx=$n_randomx;
	$randomy=$n_randomy;
	$i++;
}