ANWRL(M,J,V)
[Algebraic number write, linear.  M is the integral minimal polynomial,
and J an isolating interval, for a real algebraic number.
V is a variable list of length one.  M and J are
written to the output stream, M in linear format.]
(1)  cwrite('('); cwrite(' ');
     ipswl(M,V);  CLOUT(" , ");  emptob;
     FIRST2(J;u,v);
     cwrite('('); RNWRIT(u); CLOUT(" , "); RNWRIT(v);
     cwrite(')'); cwrite(' ');
     cwrite(')');  emptob;
     return..