J0389 := CuspidalSubspace(ModularSymbols(389));
time A     := NewformDecomposition(J0389)[5];
E     := NewformDecomposition(J0389)[1];
IntersectionGroup(A,E);
G,f  := MordellWeilGroup(EllipticCurve(E));
f(G.1); f(G.2);
