#!/usr/bin/perl
for($x=0;$x<256;$x+=8) {
    for($y=0;$y<256;$y+=2) {
	print "0,$x,$y,0,45874,65535\n";
    }
}

for($y=0;$y<256;$y+=8) {
    for($x=0;$x<256;$x+=2) {
	print "0,$x,$y,0,45874,65535\n";
    }
}
