IPLSWL(L,V)
[Integral polynomial list, special write, linear. L is a list of
integral polynomials in r variables, r>=1. V is a variable list
of length r. The polynomials in L are linear written.
The list of polynomials is preceded by a left paren,
the individual polynomials are each written starting on a new line,
and the list is terminated by a right paren on a line by itself.]
safe L',L1.
(1) cwrite('('); L'=L; while L'~=() do
{ ADV(L';L1,L'); emptob; IPSWL(L1,V) };
emptob; cwrite(')'); emptob; return..