FUNCTION: LieTools/UgPolySplit
USAGE: UgPolySplit(upoly);
SYNOPSIS: procedure to split up a polynomial in g[i] into list of 
  coefficients and (monic) monomials
EXAMPLE: 
> upoly := 96*u(g[3],g[2],g[2])+6*u(g[2],g[2],g[3])+5*u(g[1],g[2]);
> 

  upoly := 96 u(g[3], g[2], g[2]) + 6 u(g[2], g[2], g[3])

         + 5 u(g[1], g[2])

> UgPolySplit(upoly);

  [[5, 6, 96],

        [u(g[1], g[2]), u(g[2], g[2], g[3]), u(g[3], g[2], g[2])]]

SEE ALSO: LieTools[SgPolySplit]
