<<SBases_3.1.0.m
<<FIRE_3.4.0.m
<<IBP.m
Internal={k1,k2};
External={p};
Propagators={-(k1+p)^2,-(k2+p)^2,-k1^2,-k2^2,-(k1-k2)^2};
PrepareIBP[]
startinglist={IBP[k1,k1],IBP[k1,k2],IBP[k1,p],IBP[k2,k1],IBP[k2,k2],IBP[k2,p]}/.p^2->-1;
SYMMETRIES={{2,1,4,3,5},
            {3,4,1,2,5},
            {4,3,2,1,5}};
RESTRICTIONS={{-1,-1,0,0,0},
              {-1,0,-1,0,0},
              {-1,0,0,0,-1},
              {0,-1,0,-1,0},
              {0,-1,0,0,-1},
              {0,0,-1,-1,0},
              {0,0,-1,0,-1},
              {0,0,0,-1,-1}};
Prepare[]
(*Prepare[AutoDetectRestrictions->True]*)
Burn[]
