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

for $x (1..50){
    for $y (1..50){
	for $z (1..50){
	    # Head

	    if(((($x-25)*($x-25))+(($y-35)*($y-35))+(($z-25)*($z-25))) < 64){
		print("$x $y $z 1\n");
	    }

	    # Body

	    if(($y > 7) && ($y < 26)){
		if((($x-25)*($x-25))+(($z-25)*($z-25)) < 12){
		    print("$x $y $z 1\n");
		}
	    }

	    # body tx

	    if($y == 5) {
		if((($x-25)*($x-25))+(($z-25)*($z-25)) < 12){
		    print("$x $y $z 3\n");
		}
	    }

	    # ground tx

	    if($y == 3) {
		if((($x-25)*($x-25))+(($z-25)*($z-25)) < 12){
		    print("$x $y $z 4\n");
		}
	    }
	    
	    # body rcv
	    
	    if(($y > 18) && ($y < 23)){
		if($x == 34){
		    if(($z >18) && ($z < 24)){
			print("$x $y $z 5\n");
		    }
		}
	    }

	    # ground rcv

	    if(($y > 18) && ($y < 23)){
		if($x == 38){
		    if(($z >18) && ($z < 24)){
			print("$x $y $z 6\n");
		    }
		}
	    }

	    # ground

	    if($y == 1){
		print ("$x $y $z 2\n");
	    }
	}
    }
}