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

dp_ptod(POLY,VLIST)
     :: 𕪎U\ɕϊ.

RETURN
     U\
POLY
     
VLIST
     Xg

   * ϐ VLIST ь݂̕ϐ^ɏ]ĕU\ɕϊ
     .
   * VLIST Ɋ܂܂Ȃs茳, ŴɑƂĕϊ.

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

Q
     `dp_dtop', `dp_ord'

