N = 97; m = 93; q = 31; E = ellinit( [Mod(69, N), Mod(2, N)] ); P = [12, 91]; s = m/q; (N^(1/4) + 1)^2 ellmul(E,P,m) ellmul(E,P,s) N = 97; ecpp(N) N = 51; ecpp(N) N = ecpp(2^100000); ecpp(N) N = randomprime(10^50) cert = ecpp(N) N = 6218021483076269348132291041647045291708771276517; cert = ecpp(N); ??ecpp #cert N = cert[1][1] t = cert[1][2] s = cert[1][3] a4 = cert[1][4] P = cert[1][5] N = 6218021483076269348132291041647045291708771276517; cert = ecpp(N); expo = ecppexport(cert) print(expo) N = 6218021483076269348132291041647045291708771276517; cert = ecpp(N); magma = ecppexport(cert,1) primo = ecppexport(cert,2) write("primo.out", primo); N = 6218021483076269348132291041647045291708771276517; cert = ecpp(N); ecppisvalid(cert) cert[4][5] = [118915338768549494077476, 21630043675718480916130]; ecppisvalid(cert) ecppisvalid(vector(100, i, i))