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