// finding the subgroup lattice of a group

G := AGammaL(1, 8);
L := SubgroupLattice(G);
print L;