"Source: Text/Algebra/AlgLie.text";
"Line: 5517";
"Date: Thu Nov  7 07:18:13 2019";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Algebra/AlgLie.text, line: 5517
// Example: H107E59 ()
print "Example: H107E59";
ei := GetEchoInput();
SetEchoInput(true);
L:= LieAlgebra( RootDatum("D4"), Rationals() );
[ w : i,j,k,l in [0,1,2] | IsGenuineWeightedDynkinDiagram(L, w) 
    where w := [i,j,k,l] ];
SetEchoInput(ei);
