#!/usr/bin/perl 

for ( $i=0; $i<80; $i+=4 ) {
	$y = $i + 20;	
	$x = int( rand( 80 ) + 0.5 ) + 20;
	print "$x $y\n";
}
