`dp_ptod'
---------

dp_ptod(POLY,VLIST)
     :: $@B?9`<0$rJ,;6I=8=B?9`<0$KJQ49$9$k(J.

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

   * $@JQ?t=g=x(J VLIST $@$*$h$S8=:_$NJQ?t=g=x7?$K=>$C$FJ,;6I=8=B?9`<0$KJQ49(J
     $@$9$k(J.
   * VLIST $@$K4^$^$l$J$$ITDj85$O(J, $@78?tBN$KB0$9$k$H$7$FJQ49$5$l$k(J.

     [50] dp_ord(0);
     1
     [51] dp_ptod((x+y+z)^2,[x,y,z]);
     (1)*<<2,0,0>>+(2)*<<1,1,0>>+(1)*<<0,2,0>>+(2)*<<1,0,1>>+(2)*<<0,1,1>>
     +(1)*<<0,0,2>>
     [52] 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>>

$@;2>H(J
     `dp_dtop', `dp_ord'

