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