for i in [1..100] do
        M := ModularSymbols(Gamma1(i),2);
        S := CuspidalSubspace(M);
        print [i,LRatio(S,1)];           
end for;

