FUNCTION: LieTools/SgGenHWV
USAGE: SgGenHWV(gpoly)
SYNOPSIS: SgGenHWV(gpoly) finds a highest weight vector of the submodule
  of S[g] generated by adjoint action of g on gpoly.
CAVEATS: requires a previously initialized global Lie algebra environment.
  (See LieTools[gSetup].)
EXAMPLE: 
> with(LieTools):gSetup(G,2);
Setting up Gtype = G   rnk = 2
SgGenHWV(g[8]*g[9]);
                                      2
                               3 g[14]

SEE ALSO: 
