my $i = 0;
my $j = 1;
for( 1..10 ){
	( $i+=1 ) %= 4;
	( $j-=1 ) %= 4;
	printf "%d %d\n", $i+1, $j+1;
}