print "<table border>\n<tr><td>", join("</td><td>", "x", "y", "andNeg()", "spaceship()", "mult()", "anchor()"), "</td></tr>\n";
for (0..3) {
  my $x = 1 - 2 * ($_ % 2);
  my $y = 1 - 2 * int($_ / 2);
  print "<tr><td>", join("</td><td>", $x, $y, andNeg($x, $y), spaceship($x, $y), mult($x, $y), anchor($x, $y)), "</td></tr>\n";
}
print "</table>\n";