"Source: Text/Algebra/AlgQEA.text";
"Line: 1278";
"Date: Tue Jun  7 22:27:14 2016";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Algebra/AlgQEA.text, line: 1278
// Example: H109E11 ()
print "Example: H109E11";
ei := GetEchoInput();
SetEchoInput(true);
R:= RootDatum("B2");
p:= DominantLSPath(R, [ 2, 3 ]);
p;
Falpha(p, 1);
Ealpha(Falpha(p, 1), 1);
p1:= Falpha(Falpha(Falpha(p, 1), 2), 1);
p1;
WeightSequence(p1);
RationalSequence(p1);
WeylWord(p1);
SetEchoInput(ei);
