IPSW(A,V)
[Integral polynomial special write. A is a integral polynomial.
V is a variable list for A. A is written in the output stream.]
safe r.
(1) r=LENGTH(V); A'=SDIPFP(r,A); DIPSWS(A',V,0); return..