Read("subtypes.gap");
l:=Length(subtypes);
g:=Representative(subtypes[l]);
SetName(g,String(subtypesid));
pic:=GraphicSubgroupLattice(g);
for cc in subtypes do
  h:=Representative(cc);
  Print(h);
  InsertVertex(pic,h);
od;