#!/afs/athena/contrib/perl5/perl

$offset = $ARGV[0];
$seperation = $ARGV[1];
$size = $ARGV[2];

$plate2 = $offset+$seperation;
for $i ($offset..($offset+$size)){
	for $j ($offset..($offset+$size)){
		print("$i $j $offset 1\n");
		print("$i $j $plate2 2\n");
	}
}