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