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

$a = OneOf(2,3);
$student_a = 0;
$Achecker = sub {
    my ($c, $s, $ans) = @_;
    $student_a = 0;
    if ($c == $s) {
        $student_a = $s->string;
        return 1;
    }
    return 0;
};
$acmp = $a->cmp(checker => $Achecker);

$b = $a->copy;
$Bchecker = sub {
    my ($c, $s, $ans) = @_;
    return ($student_a && $s->string eq $student_a);
};
$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 [$student_a] from answer 1.

[_]{$bcmp}

END_PGML
Section::End();
Scaffold::End();
ENDDOCUMENT();