FUNCTION: LieTools/SgLTWgt
USAGE: SgLTWgt(gpoly);
SYNOPSIS: SgLTWgt(gpoly) returns the weight of the leading term of a polynomial 
  gpoly in S[g] w.r.t.to a basis of simple weights.
CAVEATS: requires a previously initialized global Lie algebra environment.
  (See LieTools[gSetup].)
EXAMPLE: 
> with(LieTools):
> gSetup(G,2):
Setting up Gtype = G   rnk = 2
> gpoly := g[14]^2;

                                         2
                           gpoly := g[14]

> SgLTWgt(gpoly);

                                [6, 4]

> swgt2fwgt(%);

                                [0, 2]

SEE ALSO: LieTools[SgLeadingTerm]v
