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..