a:=-3;
b:= 41058363725152142129326129780047268409114441015993725554835256314039467401291;
E:= EllipticCurve([GF(115792089210356248762697446949407573530086143415290314195533631308867097853951)|a, b]);
x:= 48439561293906451759052585252797914202762949526041747995844080717082404635286;
y:= 36134250956749795798585127919587881956611106672985015071877198253568414405109;
z:= 1;
P0:= E![x, y, z];
kc:= 36171316190616364993904639065742317799147026734560045237610867911168803198483691572249278776029428892241083624994975;
kc*P0;