sub GetValue {
  my( $grid, $y, $x ) = @_;
  return "($y, $x)";
}