#!/usr/bin/perl
for($x=0;$x<$ARGV[2]-$ARGV[0];$x++) {
    for($y=0;$y<$ARGV[3]-$ARGV[1];$y++) {
	if (!( $x & $y ))
		{
		$a = $x + $ARGV[0];
		$b = $y + $ARGV[1];
		print "0,$a,$b,$ARGV[4],$ARGV[5],$ARGV[6]\n";
		}
	}
}
