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

p_terms(POLY,VLIST)
     :: ɂPXgɂ.

RETURN
     Xg
POLY
     
VLIST
     Xg

   * `gr' Œ`Ă.
   * PɓWJɌ鍀XgɂĕԂ. ̏
     ̎̕ϐ^ VLIST ̏ɂ.
   * Oui͂΂ΌWɂȂ邽, ۂɂǂ̍
     ̂邽߂Ȃǂɗp.

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

