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

$icirc = 1200;
$ocirc = 1875;

for $x (1..99) {
    for $y (1..99) {
	for $z (1..99) {
	    $r = (($x-50)*($x-50)) + (($y-50)*($y-50)) + (($z-50)*($z-50));
	    if($r < $icirc){
		print("$x $y $z 240 1\n");
	    }
	    if($r > $ocirc){
		print("$x $y $z 0 2\n");
	    }
	}
    }
}