(*                         Ren-Cang Li, June 1, 1996
                           na.rcli@na-net.ornl.gov    *)

<<ReduceH

(* Possible Brackets *)
cmt[1] =Expand[Cmt[Y,Cmt[X,Cmt[X,Cmt[X,Y]]]]];
cmt[2] =Expand[Cmt[X,Cmt[Y,Cmt[X,Cmt[X,Y]]]]];
cmt[3] =Expand[Cmt[X,Cmt[X,Cmt[Y,Cmt[X,Y]]]]];

(* Results: The number of independent brackets:  2.
            The independent brackets are:
                cmt[1], cmt[2].
   Relations:

            - cmt[2]+ cmt[3] = 0  *)

NumBrackets=3;
(* Do[{Print[cmt[i]];Pause[5]},{i,NumBrackets}]; *)

(* The maximum possible length of these vectors *)
MaxL=5!/(2! 3!);

<<ReduceT
