`p_terms'
---------

p_terms(POLY,VLIST)
     :: ¿༰ˤñꥹȤˤ.

RETURN
     ꥹ
POLY
     ¿༰
VLIST
     ꥹ

   * `gr' Ƥ.
   * ¿༰ñŸ˸ꥹȤˤ֤. ν
     λѿ VLIST νˤ.
   * ֥ʴϤФзˤʤ뤿, ºݤˤɤιब
     Τ򸫤뤿ʤɤѤ.

     [232] Ord=2$
     [233] G=grm(katsura(5),[u5,u4,u3,u2,u1,u0])$
     [234] p_terms(G[0],[u5,u4,u3,u2,u1,u0]);
     [u5,u0^31,u0^30,u0^29,u0^28,u0^27,u0^26,u0^25,u0^24,u0^23,u0^22,u0^21,u0^20,
     u0^19,u0^18,u0^17,u0^16,u0^15,u0^14,u0^13,u0^12,u0^11,u0^10,u0^9,u0^8,u0^7,
     u0^6,u0^5,u0^4,u0^3,u0^2,u0,1]

