N:=38; R:=PolynomialRing(Rationals(),2); X:=u^3*v^12 + u*(u^5 + 4*u^3 + 10*u^2 - u + 1)*v^11 + (4*u^7 + 10*u^6 + 2*u^5 + 39*u^4 + 41*u^3 - 5*u^2 + 7*u - 1)*v^10 + (u^9 + 4*u^8 + 38*u^7 + 32*u^6 + 26*u^5 + 167*u^4 + 88*u^3 - 10*u^2 + 17*u - 6)*v^9 + (4*u^10 + 3*u^9 + 39*u^8 + 141*u^7 + 28*u^6 + 144*u^5 + 396*u^4 + 94*u^3 - 18*u^2 + 12*u - 15)*v^8 + (6*u^11 + 14*u^10 + 173*u^8 + 234*u^7 - 44*u^6 + 421*u^5 + 545*u^4 - 4*u^3 - 50*u^2 - 17*u - 20)*v^7 + (4*u^12 + 25*u^11 - u^10 + 41*u^9 + 368*u^8 + 91*u^7 - 39*u^6 + 691*u^5 + 383*u^4 - 168*u^3 - 91*u^2 - 38*u - 15)*v^6 + (u^13 + 17*u^12 + 30*u^11 - 33*u^10 + 171*u^9 + 326*u^8 - 163*u^7 + 166*u^6 + 594*u^5 + 24*u^4 - 236*u^3 - 82*u^2 - 28*u - 6)*v^5 + (4*u^13 + 26*u^12 + 4*u^11 - 7*u^10 + 202*u^9 + 61*u^8 - 135*u^7 + 249*u^6 + 210*u^5 - 153*u^4 - 146*u^3 - 34*u^2 - 9*u - 1)*v^4 + u*(6*u^12 + 17*u^11 - 10*u^10 + 27*u^9 + 78*u^8 - 34*u^7 - 10*u^6 + 107*u^5 - 17*u^4 - 90*u^3 - 39*u^2 - 5*u - 1)*v^3 + u^3*(4*u^10 + 4*u^9 - 3*u^8 + 12*u^7 + 10*u^6 - 9*u^5 + 6*u^4 + 6*u^3 - 25*u^2 - 15*u - 3)*v^2 + u^5*(u^8 + u^5 + u^4 - 3*u^2 - 3*u - 3)*v - u^7; G:=1/u; x:=(u+v)/u; y:=(4*G^9*x^2-4*G^9*x-G^8*x^4+15*G^8*x^3-27*G^8*x^2+10*G^8*x+3*G^8-2*G^7*x^5+24*G^7*x^4-69*G^7*x^3+61*G^7*x^2-9*G^7*x-8*G^7-G^6*x^6+20*G^6*x^5-94*G^6*x^4+148*G^6*x^3-77*G^6*x^2-10*G^6*x+16*G^6+9*G^5*x^6 -74*G^5*x^5+184*G^5*x^4-173*G^5*x^3+34*G^5*x^2+41*G^5*x-20*G^5+2*G^4*x^7-33*G^4*x^6+128*G^4*x^5-191*G^4*x^4+101*G^4*x^3+28*G^4*x^2-51*G^4*x+15*G^4-8*G^3*x^7+51*G^3*x^6-116*G^3*x^5+106*G^3*x^4-11*G^3*x^3 -51*G^3*x^2+34*G^3*x-6*G^3-G^2*x^8+11*G^2*x^7-37*G^2*x^6+54*G^2*x^5-24*G^2*x^4-23*G^2*x^3+32*G^2*x^2-12*G^2*x+G^2+G*x^8-5*G*x^7+13*G*x^6-12*G*x^5-4*G*x^4+15*G*x^3-10*G*x^2+2*G*x+x^7-2*x^6+3*x^4-3*x^3+x^2) / (2*G^9*x^2-2*G^9*x-G^8*x^4+7*G^8*x^3-5*G^8*x^2-G^8*x+2*G^8-2*G^7*x^5+9*G^7*x^4-7*G^7*x^3-8*G^7*x^2+6*G^7*x-2*G^7-G^6*x^6+5*G^6*x^5-8*G^6*x^4-11*G^6*x^3+18*G^6*x^2-3*G^6*x+G^6+G^5*x^6-7*G^5*x^5-5*G^5*x^4 +29*G^5*x^3-10*G^5*x^2-6*G^5*x-3*G^4*x^6+2*G^4*x^5+23*G^4*x^4-22*G^4*x^3-12*G^4*x^2+11*G^4*x-G^3*x^7+2*G^3*x^6+10*G^3*x^5-25*G^3*x^4+2*G^3*x^3+18*G^3*x^2-7*G^3*x+4*G^2*x^6-15*G^2*x^5+14*G^2*x^4 +5*G^2*x^3-9*G^2*x^2+2*G^2*x+G*x^7-4*G*x^6+8*G*x^5-5*G*x^4-G*x^3+G*x^2+x^6-2*x^5+x^4); r:=(x^2*y - x*y + y - 1) / (x^2*y - x); s:=(x*y - y + 1) / (x*y); E:=[s-r*s+1,r*s-r^2*s,r*s-r^2*s,0,0]; P:=[0,0];