gap> S5:=SymmetricGroup(5);SetName(S5,"S5");;
gap> A:=SymmetricGroup(3);SetName(A,"S3");;
gap> f:=GroupHomomorphismByImages(A,S5,[(1,2),(1,2,3)],[(3,4),(3,4,5)]);;
gap> g:=GroupHomomorphismByFunction(A,S5,x->x);;
gap> D:=[S5,[f,g]];;
gap> GraphOfGroupsDisplay(D);;
