#!/usr/athena/bin/perl

$g = 25;
$hei = shift(@ARGV);
for $x (0..$g){
    for $y (0..$g){
	for $z (0..$g){
	    # Person & electrodes
	    $dist = (($x-12)*($x-12)) + (($y-12)*($y-12));
	    if(((($x-12)*($x-12)) + (($y-12)*($y-12))) < 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 == 17) && (abs($y-12) < 4) && (abs($z-$hei) < 4)){
		print "$x $y $z 5\n";
	    }
	    if(($x == 19) && (abs($y-12) < 4) && (abs($z-$hei) < 4)){
		print "$x $y $z 6\n";
	    }

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

	    

	}
    }
}