(require-extension
 test numbers
 elliptic-curve-parameters elliptic-curve-arithmetic elliptic-curve-cryptography)

(define-values (Pa da)
  (values
   92897557279071929405054700981283987182270458933+238321587714826603040180574132569439980589298667i
   883304521208869771305835273301026344))

(define-values (Pb db)
  (values
   846494785973115308712960259688035354632275732551+572615237670332504400367023577934275509260041638i
   673680672765538815329903170888866050876125369))

(define (not-quite-random-integer n)
  906731563783955179404346677549109838)

(define not-quite-random-message
  1273357628937632146136537396202999868)

(include "elliptic-curve-arithmetic.scm")
(include "elliptic-curve-cryptography.scm")