gap> D:=[[1,[2,3]],[2,[3,3]],[3,[4,3]],[4,[5,6]]];;
gap> CoxeterDiagramDisplay(D);
