"Source: Text/Algebra/AlgQEA.text";
"Line: 1409";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgQEA.text, line: 1409
// Example: H112E14 ()
print "Example: H112E14";
ei := GetEchoInput();
SetEchoInput(true);
U:= QuantizedUEA(RootDatum("A2"));
G, p:= CrystalGraph(RootDatum(U), [1,1]);
e:= Edges(G);
for edge in e do    
print edge, Label(edge);
end for;
Falpha(Falpha(Falpha(Falpha(One(U), 1), 2), 2), 1); 
V:= HighestWeightModule(U, [1,1]); 
ce:= CanonicalElements(U, [2,2]);
ce;                                
v0:= V.1;                                
ce[2]^v0;
ce[1]^v0;
ce[3]^v0;
SetEchoInput(ei);
