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

dp_ptod(POLY,VLIST)
     :: ¿༰ʬɽ¿༰Ѵ.

RETURN
     ʬɽ¿༰
POLY
     ¿༰
VLIST
     ꥹ

   * ѿ VLIST Ӹߤѿ˽äʬɽ¿༰Ѵ
     .
   * VLIST ˴ޤޤʤ긵, Τ°ȤѴ.

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


     `dp_dtop', `dp_ord'

