$VersionNumber
$System

$LoadFeynArts=True;
<<FeynCalc`;
$FAVerbose=0;
FAPatch[PatchModelsOnly->True]

top=CreateTopologies[0,2->2];
diags=InsertFields[top,{F[3,{1}],F[3,{1}]}->{F[3,{1}],F[3,{1}]},InsertionLevel->{Particles},Model->"model1",GenericModel->"model1",ExcludeParticles->{V[1],V[2],V[3]}];
Paint[%, ColumnsXRows -> {2, 1}, Numbering -> None,SheetHeader->None,ImageSize->{512,256}];

AmpList=FCFAConvert[CreateFeynAmp[diags],ChangeDimension->4,IncomingMomenta->{p1,p2},OutgoingMomenta->{k1,k2},DropSumOver->True,List->False,UndoChiralSplittings->True,FinalSubstitutions->Flatten[Join[M$FACouplings,{SUNFDelta[__]:>1}]],SMP->True]//Contract