DOCUMENT();

loadMacros(
"PGstandard.pl",
    "MathObjects.pl",
    "PGML.pl",
    "contextFraction.pl"
    );

SRAND(1355);

TEXT(beginproblem());

Context("Fraction-NoDecimals")->variables->add(C=>'Real');
Context()->variables->set(x=>{limits=>[1,4]});

$n3 = random(2,9,1);
do { $n4 = random(2,9,1); } until ( gcd($n3,$n4) == 1 );

$F = Compute("x^($n3/$n4)");
$ans = Compute("$F+C");

BEGIN_PGML
    [`` F(x) = [$F] ``]

 [`F(x)  = `]
    [___________________________________]{$F->cmp()}
   

[`F(x)+C  = `]
    [___________________________________]{$ans->cmp()}
END_PGML


ENDDOCUMENT();