Read("types.gap");
g:=Representative(types[23]);
pic:=GraphicSubgroupLattice(g);
for cc in types do
  h:=Representative(cc);
  InsertVertex(pic,h);
od;