DOCUMENT();

loadMacros(
	"PGstandard.pl",
	"PGML.pl",
	"scaffold.pl",
	"parserOneOf.pl",
	"PGcourse.pl"
);

$a = OneOf(2,3);
$acmp = $a->cmp;

$b = $a->copy;
$Bchecker = sub {
	my ($c, $s, $ans) = @_;
	return $acmp->{rh_ans}{score} == 1 && $s == $acmp->{rh_ans}{student_value} ? 1 : 0;
};
$bcmp = $b->cmp(checker => $Bchecker);

Scaffold::Begin();

Section::Begin();
BEGIN_PGML

Enter a prime less than 4.

[_]{$acmp}

END_PGML
Section::End();

Section::Begin();
BEGIN_PGML

Enter the number [$acmp->{rh_ans}{student_value} // 0] from answer 1.

[_]{$bcmp}

END_PGML
Section::End();

Scaffold::End();

ENDDOCUMENT();