`gr', `grm', `hgr', `hgrm'
--------------------------

gr(PLIST,VLIST)
grm(PLIST,VLIST)
hgr(PLIST,VLIST)
hgrm(PLIST,VLIST)
     :: $@%0%l%V%J4pDl$N7W;;(J

RETURN
     $@%j%9%H(J
PLIST, VLIST
     $@%j%9%H(J

   * $@I8=`%i%$%V%i%j$N(J `gr' $@$GDj5A$5$l$F$$$k(J.
   * $@$$$:$l$b(J, $@B?9`<0%j%9%H(J PLIST $@$N(J, $@JQ?t=g=x(J VLIST $@$K4X$9$k%0%l%V%J(J
     $@4pDl$r5a$a$k(J.
   * VLIST $@$OITDj85$N%j%9%H(J. VLIST $@$K8=$l$J$$ITDj85$O(J, $@78?tBN$KB0$9$k(J
     $@$H8+$J$5$l$k(J.
   * `grm()', `hgrm()' $@$O%b%8%e%i1i;;$rMQ$$$?9bB.2=(J, `hgr()' `hgrm()' 
     $@$O@F<!2=$rMQ$$$?0BDj2=$r9T$&(J.
   * $@JQ?t=g=x7?$O(J, $@Bg0hJQ?t(J `Ord' $@$NCM$,MQ$$$i$l$k(J.
   * $@2r$,M-8B8D$H?dB,$5$l$k>l9g$K$O(J, `grm()', `hgrm()' $@$,M-8z(J.

     [0] load("gr")$
     [44] Ord=2$
     [45] load("cyclic")$
     [55] P=cyclic(5);        
     [c4*c3*c2*c1*c0-1,(((c3+c4)*c2+c4*c3)*c1+c4*c3*c2)*c0+c4*c3*c2*c1,
     ((c2+c4)*c1+c4*c3)*c0+c3*c2*c1+c4*c3*c2,(c1+c4)*c0+c2*c1+c3*c2+c4*c3,
     c0+c1+c2+c3+c4]
     [56] G=grm(P,[c0,c1,c2,c3,c4]);
     [c0+c1+c2+c3+c4,...]

$@;2>H(J
     `Ord'

