DOCUMENT();      
loadMacros(
   "PGstandard.pl",     # Standard macros for PG language
   "MathObjects.pl",
   "PGML.pl"
);

# Print problem number and point value (weight) for the problem
TEXT(beginproblem());

# Show which answers are correct and which ones are incorrect
$showPartialCorrectAnswers = 1;

Context("Point");
$ans = Point(2,2);

BEGIN_PGML
Enter the point [`[$ans]`]: [@$ans->ans_array@]*
END_PGML
ANS($ans->cmp);

ENDDOCUMENT();