Convert problem to MathObjects and PGML

OpenProblemLibrary/Utah/Calculus_II/set6_Indeterminate_Forms_and_Improper_Integrals/set6_pr3.pg

@@ -18,30 +18,22 @@ DOCUMENT();        # This should be the first executable line in the problem.
 
 loadMacros(
   "PGstandard.pl",
-  "PGchoicemacros.pl",
+  "MathObjects.pl",
+  "PGML.pl",
+  "AnswerFormatHelp.pl",
   "PGcourse.pl"
 );
 
 TEXT(beginproblem());
 $showPartialCorrectAnswers = 1;
-$pi = 3.141592654;
 
-TEXT(EV2(<<EOT));
+Context("Numeric");
+$ans = Compute("infinity");
 
+BEGIN_PGML
 Find the following limit using l'Hopital's Rule:
 
-\[ \lim_{x \rightarrow 0^{+}} \dfrac{\int_{0}^{x} \sqrt{t}\,\cos t\; dt}{x^{2}} \]
-
-$PAR
-
-Answer: \{ans_rule(80)\}.
-
-$PAR Enter the word "infinity" if the answer is \(\infty\).
-
-EOT
-
-$ans = "infinity";
-ANS(str_cmp($ans));
-#ANS(fun_cmp($ans, mode=>"antider", vars=>"t"));
+[`` \lim_{x \rightarrow 0^{+}} \dfrac{\int_{0}^{x} \sqrt{t}\,\cos t\; dt}{x^{2}} = ``][_]{$ans} [@ AnswerFormatHelp('limits')@]*
+END_PGML
 
 ENDDOCUMENT();        # This should be the last executable line in the problem.