RPSW(A,V)
[Rational polynomial special write.  A is a rational 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,1);  return..