H := CuspidalSubspace(ModularSymbols(37));
H;
D := Decomposition(H,2); 
D;
IntersectionGroup(D[1],D[2]);