FUNCTION: LieTools/UgExpand
USAGE: UgExpand(upoly); 
SYNOPSIS: UgExpand(upoly) expands a polynomial upoly in U(g) and
  then, for each term, pulls constant factors within the u-products
  out front as coefficients.
CAVEATS: requires a previously initialized global Lie algebra environment.
  (See LieTools[gSetup].)
EXAMPLE: 
> with(LieTools):

> upoly := 9*u(g[1],g[1])+12*u(1,g[2])+u(g[1],g[2]);

       upoly := 9 u(g[1], g[1]) + 12 u(1, g[2]) + u(g[1], g[2])

> UgExpand(upoly);

             9 u(g[1], g[1]) + 12 u(g[2]) + u(g[1], g[2])

SEE ALSO: LieTools[PBWexpand]
