IPSWL(A,V)
[Integral polynomial special write, linear. A is a integral polynomial.
V is a variable list for A. A is written in the output stream in a
linearized form which can be read by ipsr.]
     safe r.
(1)  r=LENGTH(V);  A'=SDIPFP(r,A);  DIPSWL(A',V,0);
     CWRITE(' ');  CWRITE('$'); return..