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

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

RETURN
     $BJ,;6I=8=B?9`<0(B

POLY
     $BB?9`<0(B

VLIST
     $B%j%9%H(B

   * $BJQ?t=g=x(B VLIST
     $B$*$h$S8=:_$NJQ?t=g=x7?$K=>$C$FJ,;6I=8=B?9`<0$KJQ49$9$k(B.

   * VLIST $B$K4^$^$l$J$$ITDj85$O(B, $B78?tBN$KB0$9$k$H$7$FJQ49$5$l$k(B.

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

$B;2>H(B
     *Note `dp_dtop': dp_dtop, *Note `dp_ord': dp_ord.

