\\ Testing Buhler-Gross \r bg.gp default(timer,1); curves=[[0,-1,1,0,0],\ [0,0,1,-1,0],\ [0,1,1,-2,0],\ [0,0,1,-7,6],\ [1,-1,0,-79,289],\ [0,0,1,-79,342],\ [0,0,1,-547,-2934],\ [0,0,1,-1387,68046]]; gens=[[],\ [[0,0]],\ [[1,0],[-1,1]],\ [[2,0],[-1,3],[4,6]],\ [[91,-906],[-9,19],[-7,25],[-4,25]],\ [[-10,11],[-39/4,105/8],[-8,21],[-7,23],[-6,24]],\ [[-20,2],[-79/4,99/8],[-19,24],[-16,41],[-63/4,333/8],[-13,44]],\ [[-207/4,277/8],[-49,135],[-47,171],[-44,209],[-43,219],[-42,228],[-34,275]]]; ellSha(ellinit(curves[1]),gens[1]) ellSha(ellinit(curves[2]),gens[2]) ellSha(ellinit(curves[3]),gens[3]) ellSha(ellinit(curves[4]),gens[4]) ellSha(ellinit(curves[5]),gens[5]) ellSha(ellinit(curves[6]),gens[6])