"Source: Text/RepThy/LieReps.text";
"Line: 1220";
"Date: Fri Nov  8 11:01:29 2019";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/RepThy/LieReps.text, line: 1220
// Example: H111E9 ()
print "Example: H111E9";
ei := GetEchoInput();
SetEchoInput(true);
R := RootDatum("D4" : Isogeny := "SC");
DAd := AdjointRepresentationDecomposition(R);
pwrs := function(D, n)
  Q := [D];
  for i in [2..n] do
    Q[i] := Tensor(Q[1], Q[i-1]);
  end for;
  return Q;
end function;
time Q := pwrs(DAd, 7);
[ #q : q in Q ];
DH := LieRepresentationDecomposition(R, [2,2,0,0]);
time Q := pwrs(DH, 4); [ #q : q in Q ];
SetEchoInput(ei);
