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

for $x (1..24){
    for $y (1..24){
	for $z (1..24){

	    # Body

	    if(($y > 8) && ($y < 15)){
		if((($x-6)*($x-6))+(($z-6)*($z-6)) < 16){
		    print("$x $y $z 1\n");
		}
	    }

	    # body tx

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

	    # ground tx

	    if($y == 3) {
		if((($x-6)*($x-6))+(($z-6)*($z-6)) < 16){
		    print("$x $y $z 4\n");
		}
	    }
	    
	    # body rcv

	    if($y == 17) {
		if((($x-6)*($x-6))+(($z-6)*($z-6)) < 16){
		    print("$x $y $z 5\n");
		}
	    }

	    # ground rcv
	    if($y == 20) {
		if((($x-6)*($x-6))+(($z-6)*($z-6)) < 16){
		    print("$x $y $z 6\n");
		}
	    }

	    # ground

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