clear;

q:=115792089210356248762697446949407573530086143415290314195533631308867097853951;

r:=115792089210356248762697446949407573529996955224135760342422259061068512044369;

b:=41058363725152142129326129780047268409114441015993725554835256314039467401291;

p:=2^256-2^224+2^192+2^96-1;
E:=EllipticCurve([GF( p)|-3,b]);

Gx:=0x6b17d1f2e12c4247f8bce6e563a440f277037d812deb33a0f4a13945d898c296;
Gy:=0x4fe342e2fe1a7f9b8ee7eb4a7c0f9e162bce33576b315ececbb6406837bf51f5;
Gx:=GF( p)!Gx;
Gy:=GF( p)!Gy;
P:=E![Gx,Gy];

Hx:=53987601597021778433910548064987973235945515666715026302948657055639179420355;
Hy:=53690949263410447908824456005055253553237881490194075871737490561466076234637;

