A=RPSR(V)
$(RATIONAL POLYNOMIAL, SPECIAL READ.  MAY 17 79 DSA.)
     SAFE RL.
(1)   RL=LENGTH(V).  A=DIRPSR(V).  A=PFSDIP(RL,A)..