#!/usr/bin/perl

for $x (-8..8){
	for $y (-8..8){
		$z = sqrt(($x*$x)+($y*$y));
		$nx = $x*10;
		$ny = $y*10;
		$nz = $z*10;
		print "$nx $ny $nz\n";
	}
}