`dp_dtop'
---------

dp_dtop(DPOLY,VLIST)
     ::

RETURN
     $@B?9`<0(J
DPOLY
     $@J,;6I=8=B?9`<0(J
VLIST
     $@%j%9%H(J

   * $@J,;6I=8=B?9`<0$r(J, $@M?$($i$l$?ITDj85%j%9%H$rMQ$$$FB?9`<0$KJQ49$9$k(J.
   * $@ITDj85%j%9%H$O(J, $@D9$5J,;6I=8=B?9`<0$NJQ?t$N8D?t$H0lCW$7$F$$$l$P2?(J
     $@$G$b$h$$(J.

     [53] T=dp_ptod((x+y+z)^2,[x,y]);
     (1)*<<2,0>>+(2)*<<1,1>>+(1)*<<0,2>>+(2*z)*<<1,0>>+(2*z)*<<0,1>>+(z^2)*<<0,0>>
     [54] P=dp_dtop(T,[a,b]);
     z^2+(2*a+2*b)*z+a^2+2*b*a+b^2

