#!/usr/bin/perl

$g = 25;

for $x (0..$g){
    for $y (0..$g){
	for $z (0..$g){
	    # Person & electrodes
	    $dist = (($x-7)*($x-7)) + (($y-7)*($y-7));
	    if(((($x-7)*($x-7)) + (($y-7)*($y-7))) < 16){
		if($z >= 8){
		    print "$x $y $z 1\n";
		}
		elsif($z == 6) {
		    print "$x $y $z 3\n";
		}
		elsif($z == 4) {
			print "$x $y $z 4\n";
		}
	    }

	    if(((($x-18)*($x-18)) + (($y-18)*($y-18))) < 16){
		if($z >= 8){
		    print "$x $y $z 1\n";
		}
		elsif($z == 6) {
		    print "$x $y $z 5\n";
		}
		elsif($z == 4) {
			print "$x $y $z 6\n";
		}
	    }


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

	    

	}
    }
}