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