bChTb := function(G)
    XT := CharacterTable(G);
    N := 0;
    for i := 1 to NumberOfClasses(G) do
	N +:= Degree(XT[i]) ^ 2;
    end for;
    return N ne Order(G);
end function;

load "chardegs";

// PANIC!! p-gps ONLY!!
cXDegs := func<G | not checkchardegs(G, chardegs(G))>;
