Function: ecppexport
Section: number_theoretical
C-Name: ecppexport
Prototype: GD0,L,
Help: ecppexport(cert, {format = 0}): Returns a string suitable for print/write to display the certificate.
Doc:
 Returns a string suitable for print/write to display the certificate, the format of which depends on the value of \kbd{format}:

 \item 0: Human-readable format.

 \item 1: MAGMA format.

 \item 2: Primo format 4.

 \bprog
 ? cert = [[100000000000000000000000000000000069, -3, [9999
 9999999999999453132088964547996, 33743830764501150277], [[
 0, 24801346627559045846663902397578657], [9016023053530503
 2546831554892364688, 98556953733269789903175420826460780]]
 ], [33743830764501150277, -3, [33743830776111980697, 45959
 444779], [[0, 4407823091193978639], [2169871353760194457,
 8026073465987914856]]], [45959444779, -3, [45959744377, 26
 03509], [[0, 17273271661], [26780696591, 20804940599]]]];
 ? ecppexport(cert)
 %2 = "\n[1]\nN = 100000000000000000000000000000000069\nD =
  -3\nm = 99999999999999999453132088964547996\nq = 33743830
  764501150277\nE = [0, 24801346627559045846663902397578657
  ]\nP = [90160230535305032546831554892364688, 985569537332
  69789903175420826460780]\n\n[2]\nN = 33743830764501150277
  \nD = -3\nm = 33743830776111980697\nq = 45959444779\nE =
  [0, 4407823091193978639]\nP = [2169871353760194457, 80260
  73465987914856]\n\n[3]\nN = 45959444779\nD = -3\nm = 4595
  9744377\nq = 2603509\nE = [0, 17273271661]\nP = [26780696
  591, 20804940599]\n"
 ? print(%)

 [1]
 N = 100000000000000000000000000000000069
 D = -3
 m = 99999999999999999453132088964547996
 q = 33743830764501150277
 E = [0, 24801346627559045846663902397578657]
 P = [90160230535305032546831554892364688, 9855695373326978
 9903175420826460780]

 [2]
 N = 33743830764501150277
 D = -3
 m = 33743830776111980697
 q = 45959444779
 E = [0, 4407823091193978639]
 P = [2169871353760194457, 8026073465987914856]

 [3]
 N = 45959444779
 D = -3
 m = 45959744377
 q = 2603509
 E = [0, 17273271661]
 P = [26780696591, 20804940599]

 ? ecppexport(cert,1)
 %3 = "[* [* 100000000000000000000000000000000069, 3, -1, 9
 9999999999999999453132088964547996, [* 0, 2480134662755904
 5846663902397578657 *], [* 9016023053530503254683155489236
 4688, 98556953733269789903175420826460780, 1 *], [* [* 337
 43830764501150277, 1 *] *] *], [* 33743830764501150277, 3,
  -1, 33743830776111980697, [* 0, 4407823091193978639 *], [
  * 2169871353760194457, 8026073465987914856, 1 *], [* [* 4
  5959444779, 1 *] *] *], [* 45959444779, 3, -1, 4595974437
  7, [* 0, 17273271661 *], [* 26780696591, 20804940599, 1 *
  ], [* [* 2603509, 1 *] *] *] *]"
 ? ecppexport(cert,2)
 %4 = "[PRIMO - Primality Certificate]\nFormat=4\nTestCount
 =3\n\n[Candidate]\nN=$13426172C74D822B878FE800000045\n\n[1
 ]\nS=$A874AB30CB6EC\nW=$796DD77B853FAAA\nA=-$0\nB=-$1E5235
 9E52FDCA301C50E0A8A84B6\nT=$1\n\n[2]\nS=$2BC3234B\nW=-$2B4
 0F3653\nA=-$0\nB=$1E1CEE7FF12C1F98\nT=$1\n\n[3]\nS=$44F5\n
 W=-$4924D\nA=-$0\nB=-$47724791D\nT=$1\n\n"
 @eprog
