F := GF(7);
R<x>:=PolynomialRing(F);
I := [<79,x>, <107,x>, <139,x>, <151,x>, <227, x>, <241, x>, <277,x>, <283, x>];
G := DirichletGroup(27);
eps := BaseExtend(G.1,F);

function KernelIntersection(k)
   assert IsOdd(k);
   time M := ModularSymbols(eps, k, +1);
   time return Kernel(I,M);
end function;