Get["NCGB.m"];
 
SNC[A,B,C,l];
SetKnowns[l];
SetUnknowns[{A,B,C}];

rels={
	A+B+C-l,
        A**A-A,
	B**B-B,
        C**C-C,
        A**l-l**A,
	B**l-l**B,
	C**l-l**C,
        l-3	
     };

ans=NCProcess[rels,3,0,0,0,"Printout5",
    RR->True,SB->False,RRByCat->False,SBByCat->False,NCCV->False];
