R=QQ[x_1..x_81];
j = 1;while j <= 81 list F_j=(x_j-1)*(x_j-2)*(x_j-3)*(x_j-4)*(x_j-5)*(x_j-6)*(x_j-7)*(x_j-8)*(x_j-9)do j = j+1;
g=();
i = 1;while i <= 9 do(if (x_1-x_i != 0) then(G1_i=(F_1-F_i)/(x_1-x_i);g=append(g,lift(G1_i,R))); i = i+1);
i = 1;while i <= 73 do(if (x_1-x_i != 0) then(G1_i=(F_1-F_i)/(x_1-x_i);g=append(g,lift(G1_i,R))); i = i+9);
i = 10;while i <= 12 do(if (x_1-x_i != 0) then(G1_i=(F_1-F_i)/(x_1-x_i);g=append(g,lift(G1_i,R))); i = i+1); i = 19;while i <= 21 do(if (x_1-x_i != 0) then(G1_i=(F_1-F_i)/(x_1-x_i);g=append(g,lift(G1_i,R))); i = i+1);
i = 1;while i <= 9 do(if (x_2-x_i != 0) then(G2_i=(F_2-F_i)/(x_2-x_i);g=append(g,lift(G2_i,R))); i = i+1);
i = 2;while i <= 74 do(if (x_2-x_i != 0) then(G2_i=(F_2-F_i)/(x_2-x_i);g=append(g,lift(G2_i,R))); i = i+9);
i = 10;while i <= 12 do(if (x_2-x_i != 0) then(G2_i=(F_2-F_i)/(x_2-x_i);g=append(g,lift(G2_i,R))); i = i+1); i = 19;while i <= 21 do(if (x_2-x_i != 0) then(G2_i=(F_2-F_i)/(x_2-x_i);g=append(g,lift(G2_i,R))); i = i+1);
i = 1;while i <= 9 do(if (x_3-x_i != 0) then(G3_i=(F_3-F_i)/(x_3-x_i);g=append(g,lift(G3_i,R))); i = i+1);
i = 3;while i <= 73 do(if (x_3-x_i != 0) then(G3_i=(F_3-F_i)/(x_3-x_i);g=append(g,lift(G3_i,R))); i = i+9);
i = 10;while i <= 12 do(if (x_3-x_i != 0) then(G3_i=(F_3-F_i)/(x_3-x_i);g=append(g,lift(G3_i,R))); i = i+1); i = 19;while i <= 21 do(if (x_3-x_i != 0) then(G3_i=(F_3-F_i)/(x_3-x_i);g=append(g,lift(G3_i,R))); i = i+1);
i = 1;while i <= 9 do(if (x_4-x_i != 0) then(G4_i=(F_4-F_i)/(x_4-x_i);g=append(g,lift(G4_i,R))); i = i+1);
i = 4;while i <= 76 do(if (x_4-x_i != 0) then(G4_i=(F_4-F_i)/(x_4-x_i);g=append(g,lift(G4_i,R))); i = i+9);
i = 13;while i <= 15 do(if (x_4-x_i != 0) then(G4_i=(F_4-F_i)/(x_4-x_i);g=append(g,lift(G4_i,R))); i = i+1);

 i = 22;while i <= 24 do(if (x_4-x_i != 0) then(G4_i=(F_4-F_i)/(x_4-x_i);g=append(g,lift(G4_i,R))); i = i+1);
i = 1;while i <= 9 do(if (x_5-x_i != 0) then(G5_i=(F_5-F_i)/(x_5-x_i);g=append(g,lift(G5_i,R))); i = i+1);
i = 5;while i <= 77 do(if (x_5-x_i != 0) then(G5_i=(F_5-F_i)/(x_5-x_i);g=append(g,lift(G5_i,R))); i = i+9);
i = 13;while i <= 15 do(if (x_5-x_i != 0) then(G5_i=(F_5-F_i)/(x_5-x_i);g=append(g,lift(G5_i,R))); i = i+1); i = 22;while i <= 24 do(if (x_5-x_i != 0) then(G5_i=(F_5-F_i)/(x_5-x_i);g=append(g,lift(G5_i,R))); i = i+1);
i = 1;while i <= 9 do(if (x_6-x_i != 0) then(G6_i=(F_6-F_i)/(x_6-x_i);g=append(g,lift(G6_i,R))); i = i+1);
i = 6;while i <= 78 do(if (x_6-x_i != 0) then(G6_i=(F_6-F_i)/(x_6-x_i);g=append(g,lift(G6_i,R) )); i = i+9);
i = 13;while i <= 15 do(if (x_6-x_i != 0) then(G6_i=(F_6-F_i)/(x_6-x_i);g=append(g,lift(G6_i,R))); i = i+1);
i = 22;while i <= 24 do(G6_i=(F_6-F_i)/(x_6-x_i);g=append(g,lift(G6_i,R)); i = i+1);
i = 1;while i <= 9 do(if (x_7-x_i != 0) then(G7_i=(F_7-F_i)/(x_7-x_i);g=append(g,lift(G7_i,R))); i = i+1);
i = 7;while i <= 79 do(if (x_7-x_i != 0) then(G7_i=(F_7-F_i)/(x_7-x_i);g=append(g,lift(G7_i,R))); i = i+9);
i = 16;while i <= 18 do(if (x_7-x_i != 0) then(G7_i=(F_7-F_i)/(x_7-x_i);g=append(g,lift(G7_i,R))); i = i+1); i = 25;while i <= 27 do(if (x_7-x_i != 0) then(G7_i=(F_7-F_i)/(x_7-x_i);g=append(g,lift(G7_i,R))); i = i+1);
i = 1;while i <= 9 do(if (x_8-x_i != 0) then(G8_i=(F_8-F_i)/(x_8-x_i);g=append(g,lift(G8_i,R))); i = i+1);
i = 8;while i <= 80 do(if (x_8-x_i != 0) then(G8_i=(F_8-F_i)/(x_8-x_i);g=append(g,lift(G8_i,R))); i = i+9);
i = 16;while i <= 18 do(if (x_8-x_i != 0) then(G8_i=(F_8-F_i)/(x_8-x_i);g=append(g,lift(G8_i,R))); i = i+1); i = 25;while i <= 27 do(if (x_8-x_i != 0) then(G8_i=(F_8-F_i)/(x_8-x_i);g=append(g,lift(G8_i,R))); i = i+1);
i = 1;while i <= 9 do(if (x_9-x_i != 0) then(G9_i=(F_9-F_i)/(x_9-x_i);g=append(g,lift(G9_i,R)));

 i = i+1);
i = 9;while i <= 81 do(if (x_9-x_i != 0) then(G9_i=(F_9-F_i)/(x_9-x_i);g=append(g,lift(G9_i,R))); i = i+9);
i = 16;while i <= 18 do(if (x_9-x_i != 0) then(G9_i=(F_9-F_i)/(x_9-x_i);g=append(g,lift(G9_i,R))); i = i+1); i = 25;while i <= 27 do(if (x_9-x_i != 0) then(G9_i=(F_9-F_i)/(x_9-x_i);g=append(g,lift(G9_i,R))); i = i+1);
i = 10;while i <= 18 do(if (x_10-x_i != 0) then(G10_i=(F_10-F_i)/(x_10-x_i);g=append(g,lift(G10_i,R))); i = i+1);
i = 1;while i <= 73 do(if (x_10-x_i != 0) then(G10_i=(F_10-F_i)/(x_10-x_i);g=append(g,lift(G10_i,R))); i = i+9);
i = 1;while i <= 3 do(if (x_10-x_i != 0) then(G10_i=(F_10-F_i)/(x_10-x_i);g=append(g,lift(G10_i,R))); i = i+1); i = 19;while i <= 21 do(if (x_10-x_i != 0) then(G10_i=(F_10-F_i)/(x_10-x_i);g=append(g,lift(G10_i,R))); i = i+1);
i = 10;while i <= 18 do(if (x_11-x_i != 0) then(G11_i=(F_11-F_i)/(x_11-x_i);g=append(g,lift(G11_i,R))); i = i+1); i = 2;while i <= 74 do(if (x_11-x_i != 0) then(G11_i=(F_11-F_i)/(x_11-x_i);g=append(g,lift(G11_i,R))); i = i+9);
i = 1;while i <= 3 do(if (x_11-x_i != 0) then(G11_i=(F_11-F_i)/(x_11-x_i);g=append(g,lift(G11_i,R))); i = i+1); i = 19;while i <= 21 do(if (x_11-x_i != 0) then(G11_i=(F_11-F_i)/(x_11-x_i);g=append(g,lift(G11_i,R))); i = i+1);
i = 10;while i <= 18 do(if (x_12-x_i != 0) then(G12_i=(F_12-F_i)/(x_12-x_i);g=append(g,lift(G12_i,R))); i = i+1); i = 3;while i <= 75 do(if (x_12-x_i != 0) then(G12_i=(F_12-F_i)/(x_12-x_i);g=append(g,lift(G12_i,R))); i = i+9);
i = 1;while i <= 3 do(if (x_12-x_i != 0) then(G12_i=(F_12-F_i)/(x_12-x_i);g=append(g,lift(G12_i,R))); i = i+1); i = 19;while i <= 21 do(if (x_12-x_i != 0) then(G12_i=(F_12-F_i)/(x_12-x_i);g=append(g,lift(G12_i,R))); i = i+1);
i = 10;while i <= 18 do(if (x_13-x_i != 0) then(G13_i=(F_13-F_i)/(x_13-x_i);g=append(g,lift(G13_i,R))); i = i+1); i = 4;while i <= 76 do(if (x_13-x_i != 0) then(G13_i=(F_13-F_i)/(x_13-x_i);g=append(g,lift(G13_i,R))); i = i+9);
i = 4;while i <= 6 do(if (x_13-x_i != 0)

 then(G13_i=(F_13-F_i)/(x_13-x_i);g=append(g,lift(G13_i,R))); i = i+1); i = 22;while i <= 24 do(if (x_13-x_i != 0) then(G13_i=(F_13-F_i)/(x_13-x_i);g=append(g,lift(G13_i,R))); i = i+1);
i = 10;while i <= 18 do(if (x_14-x_i != 0) then(G14_i=(F_14-F_i)/(x_14-x_i);g=append(g,lift(G14_i,R))); i = i+1); i = 5;while i <= 77 do(if (x_14-x_i != 0) then(G14_i=(F_14-F_i)/(x_14-x_i);g=append(g,lift(G14_i,R))); i = i+9);
i = 4;while i <= 6 do(if (x_14-x_i != 0) then(G14_i=(F_14-F_i)/(x_14-x_i);g=append(g,lift(G14_i,R))); i = i+1); i = 22;while i <= 24 do(if (x_14-x_i != 0) then(G14_i=(F_14-F_i)/(x_14-x_i);g=append(g,lift(G14_i,R))); i = i+1);
i = 10;while i <= 18 do(if (x_15-x_i != 0) then(G15_i=(F_15-F_i)/(x_15-x_i);g=append(g,lift(G15_i,R))); i = i+1); i = 6;while i <= 78 do(if (x_15-x_i != 0) then(G15_i=(F_15-F_i)/(x_15-x_i);g=append(g,lift(G15_i,R))); i = i+9);
i = 4;while i <= 6 do(if (x_15-x_i != 0) then(G15_i=(F_15-F_i)/(x_15-x_i);g=append(g,lift(G15_i,R))); i = i+1); i = 22;while i <= 24 do(if (x_15-x_i != 0) then(G15_i=(F_15-F_i)/(x_15-x_i);g=append(g,lift(G15_i,R))); i = i+1);
i = 10;while i <= 18 do(if (x_16-x_i != 0) then(G16_i=(F_16-F_i)/(x_16-x_i);g=append(g,lift(G16_i,R))); i = i+1); i = 7;while i <= 79 do(if (x_16-x_i != 0) then(G16_i=(F_16-F_i)/(x_16-x_i);g=append(g,lift(G16_i,R))); i = i+9);
i = 7;while i <= 9 do(if (x_16-x_i != 0) then(G16_i=(F_16-F_i)/(x_16-x_i);g=append(g,lift(G16_i,R))); i = i+1);
i = 25;while i <= 27 do(if (x_16-x_i != 0)then(G16_i=(F_16-F_i)/(x_16-x_i);g=append(g,lift(G16_i,R))); i = i+1);
i = 10;while i <= 18 do(if (x_17-x_i != 0) then(G17_i=(F_17-F_i)/(x_17-x_i);g=append(g,lift(G17_i,R))); i = i+1); i = 8;while i <= 80 do(if (x_17-x_i != 0) then(G17_i=(F_17-F_i)/(x_17-x_i);g=append(g,lift(G17_i,R))); i = i+9);
i = 7;while i <= 9 do(if (x_17-x_i != 0) then(G17_i=(F_17-F_i)/(x_17-x_i);g=append(g,lift(G17_i,R))); i = i+1); i = 25;while i <= 27 do(if (x_17-x_i != 0) then(G17_i=(F_17-F_i)/(x_17-x_i);g=append(g,lift(G17_i,R))); i = i+1);

 i = 10;while i <= 18 do(if (x_18-x_i != 0) then(G18_i=(F_18-F_i)/(x_18-x_i);g=append(g,lift(G18_i,R))); i = i+1); i = 9;while i <= 81 do(if (x_18-x_i != 0) then(G18_i=(F_18-F_i)/(x_18-x_i);g=append(g,lift(G18_i,R))); i = i+9);
i = 7;while i <= 9 do(if (x_18-x_i != 0) then(G18_i=(F_18-F_i)/(x_18-x_i);g=append(g,lift(G18_i,R))); i = i+1); i = 25;while i <= 27 do(if (x_18-x_i != 0) then(G18_i=(F_18-F_i)/(x_18-x_i);g=append(g,lift(G18_i,R))); i = i+1);
i = 19;while i <= 27 do(if (x_19-x_i != 0) then(G19_i=(F_19-F_i)/(x_19-x_i);g=append(g,lift(G19_i,R))); i = i+1); i = 1;while i <= 73 do(if (x_19-x_i != 0) then(G19_i=(F_19-F_i)/(x_19-x_i);g=append(g,lift(G19_i,R))); i = i+9);
i = 1;while i <= 3 do(if (x_19-x_i != 0) then(G19_i=(F_19-F_i)/(x_19-x_i);g=append(g,lift(G19_i,R))); i = i+1); i = 10;while i <= 12 do(if (x_19-x_i != 0) then(G19_i=(F_19-F_i)/(x_19-x_i);g=append(g,lift(G19_i,R))); i = i+1);
i = 19;while i <= 27 do(if (x_20-x_i != 0) then(G20_i=(F_20-F_i)/(x_20-x_i);g=append(g,lift(G20_i,R))); i = i+1); i = 2;while i <= 74 do(if (x_20-x_i != 0) then(G20_i=(F_20-F_i)/(x_20-x_i);g=append(g,lift(G20_i,R))); i = i+9);
i = 1;while i <= 3 do(if (x_20-x_i != 0) then(G20_i=(F_20-F_i)/(x_20-x_i);g=append(g,lift(G20_i,R))); i = i+1); i = 10;while i <= 12 do(if (x_20-x_i != 0) then(G20_i=(F_20-F_i)/(x_20-x_i);g=append(g,lift(G20_i,R))); i = i+1);
i = 19;while i <= 27 do(if (x_21-x_i != 0) then(G21_i=(F_21-F_i)/(x_21-x_i);g=append(g,lift(G21_i,R))); i = i+1); i = 3;while i <= 75 do(if (x_21-x_i != 0) then(G21_i=(F_21-F_i)/(x_21-x_i);g=append(g,lift(G21_i,R))); i = i+9);
i = 1;while i <= 3 do(if (x_21-x_i != 0) then(G21_i=(F_21-F_i)/(x_21-x_i);g=append(g,lift(G21_i,R))); i = i+1); i = 10;while i <= 12 do(if (x_21-x_i != 0) then(G21_i=(F_21-F_i)/(x_21-x_i);g=append(g,lift(G21_i,R))); i = i+1);
i = 19;while i <= 27 do(if (x_22-x_i != 0) then(G22_i=(F_22-F_i)/(x_22-x_i);g=append(g,lift(G22_i,R))); i = i+1); i = 4;while i <= 76 do(if (x_22-x_i != 0)

 then(G22_i=(F_22-F_i)/(x_22-x_i);g=append(g,lift(G22_i,R))); i = i+9);
i = 4;while i <= 6 do(if (x_22-x_i != 0) then(G22_i=(F_22-F_i)/(x_22-x_i);g=append(g,lift(G22_i,R))); i = i+1); i = 13;while i <= 15 do(if (x_22-x_i != 0) then(G22_i=(F_22-F_i)/(x_22-x_i);g=append(g,lift(G22_i,R))); i = i+1);
i = 19;while i <= 27 do(if (x_23-x_i != 0) then(G23_i=(F_23-F_i)/(x_23-x_i);g=append(g,lift(G23_i,R))); i = i+1); i = 5;while i <= 77 do(if (x_23-x_i != 0) then(G23_i=(F_23-F_i)/(x_23-x_i);g=append(g,lift(G23_i,R))); i = i+9);
i = 4;while i <= 6 do(if (x_23-x_i != 0) then(G23_i=(F_23-F_i)/(x_23-x_i);g=append(g,lift(G23_i,R))); i = i+1); i = 13;while i <= 15 do(if (x_23-x_i != 0) then(G23_i=(F_23-F_i)/(x_23-x_i);g=append(g,lift(G23_i,R))); i = i+1);
i = 19;while i <= 27 do(if (x_24-x_i != 0) then(G24_i=(F_24-F_i)/(x_24-x_i);g=append(g,lift(G24_i,R))); i = i+1); i = 6;while i <= 78 do(if (x_24-x_i != 0) then(G24_i=(F_24-F_i)/(x_24-x_i);g=append(g,lift(G24_i,R))); i = i+9);
i = 4;while i <= 6 do(if (x_24-x_i != 0) then(G24_i=(F_24-F_i)/(x_24-x_i);g=append(g,lift(G24_i,R))); i = i+1); i = 13;while i <= 15 do(if (x_24-x_i != 0) then(G24_i=(F_24-F_i)/(x_24-x_i);g=append(g,lift(G24_i,R))); i = i+1);
i = 19;while i <= 27 do(if (x_25-x_i != 0) then(G25_i=(F_25-F_i)/(x_25-x_i);g=append(g,lift(G25_i,R))); i = i+1); i = 7;while i <= 79 do(if (x_25-x_i != 0) then(G25_i=(F_25-F_i)/(x_25-x_i);g=append(g,lift(G25_i,R))); i = i+9);
i = 7;while i <= 9 do(if (x_25-x_i != 0) then(G25_i=(F_25-F_i)/(x_25-x_i);g=append(g,lift(G25_i,R))); i = i+1); i = 16;while i <= 18 do(if (x_25-x_i != 0) then(G25_i=(F_25-F_i)/(x_25-x_i);g=append(g,lift(G25_i,R))); i = i+1);
i = 19;while i <= 27 do(if (x_26-x_i != 0) then(G26_i=(F_26-F_i)/(x_26-x_i);g=append(g,lift(G26_i,R))); i = i+1); i = 8;while i <= 80 do(if (x_26-x_i != 0) then(G26_i=(F_26-F_i)/(x_26-x_i);g=append(g,lift(G26_i,R))); i = i+9);
i = 7;while i <= 9 do(if (x_26-x_i != 0) then(G26_i=(F_26-F_i)/(x_26-x_i);g=append(g,lift(G26_i,R))); i = i+1);

 i = 16;while i <= 18 do(if (x_26-x_i != 0) then(G26_i=(F_26-F_i)/(x_26-x_i);g=append(g,lift(G26_i,R))); i = i+1);
i = 19;while i <= 27 do(if (x_27-x_i != 0) then(G27_i=(F_27-F_i)/(x_27-x_i);g=append(g,lift(G27_i,R))); i = i+1); i = 9;while i <= 81 do(if (x_27-x_i != 0) then(G27_i=(F_27-F_i)/(x_27-x_i);g=append(g,lift(G27_i,R))); i = i+9);
i = 7;while i <= 9 do(if (x_27-x_i != 0) then(G27_i=(F_27-F_i)/(x_27-x_i);g=append(g,lift(G27_i,R))); i = i+1); i = 16;while i <= 18 do(if (x_27-x_i != 0) then(G27_i=(F_27-F_i)/(x_27-x_i);g=append(g,lift(G27_i,R))); i = i+1);
i = 28;while i <= 36 do(if (x_28-x_i != 0) then(G28_i=(F_28-F_i)/(x_28-x_i);g=append(g,lift(G28_i,R))); i = i+1); i = 1;while i <= 73 do(if (x_28-x_i != 0) then(G28_i=(F_28-F_i)/(x_28-x_i);g=append(g,lift(G28_i,R))); i = i+9);
i = 37;while i <= 39 do(if (x_28-x_i != 0) then(G28_i=(F_28-F_i)/(x_28-x_i);g=append(g,lift(G28_i,R))); i = i+1); i = 46;while i <= 48 do(if (x_28-x_i != 0) then(G28_i=(F_28-F_i)/(x_28-x_i);g=append(g,lift(G28_i,R))); i = i+1);
i = 28;while i <= 36 do(if (x_29-x_i != 0) then(G29_i=(F_29-F_i)/(x_29-x_i);g=append(g,lift(G29_i,R))); i = i+1); i = 2;while i <= 74 do(if (x_29-x_i != 0) then(G29_i=(F_29-F_i)/(x_29-x_i);g=append(g,lift(G29_i,R))); i = i+9);
i = 37;while i <= 39 do(if (x_29-x_i != 0) then(G29_i=(F_29-F_i)/(x_29-x_i);g=append(g,lift(G29_i,R))); i = i+1); i = 46;while i <= 48 do(if (x_29-x_i != 0) then(G29_i=(F_29-F_i)/(x_29-x_i);g=append(g,lift(G29_i,R))); i = i+1);
i = 28;while i <= 36 do(if (x_30-x_i != 0) then(G30_i=(F_30-F_i)/(x_30-x_i);g=append(g,lift(G30_i,R))); i = i+1); i = 3;while i <= 75 do(if (x_30-x_i != 0) then(G30_i=(F_30-F_i)/(x_30-x_i);g=append(g,lift(G30_i,R))); i = i+9);
i = 37;while i <= 39 do(if (x_30-x_i != 0) then(G30_i=(F_30-F_i)/(x_30-x_i);g=append(g,lift(G30_i,R))); i = i+1); i = 46;while i <= 48 do(if (x_30-x_i != 0) then(G30_i=(F_30-F_i)/(x_30-x_i);g=append(g,lift(G30_i,R))); i = i+1);

 i = 28;while i <= 36 do(if (x_31-x_i != 0) then(G31_i=(F_31-F_i)/(x_31-x_i);g=append(g,lift(G31_i,R))); i = i+1); i = 4;while i <= 76 do(if (x_31-x_i != 0) then (G31_i=(F_31-F_i)/(x_31-x_i);g=append(g,lift(G31_i,R))); i = i+9);
i = 40;while i <= 42 do(if (x_31-x_i != 0) then(G31_i=(F_31-F_i)/(x_31-x_i);g=append(g,lift(G31_i,R))); i = i+1); i = 49;while i <= 51 do(if (x_31-x_i != 0) then(G31_i=(F_31-F_i)/(x_31-x_i);g=append(g,lift(G31_i,R))); i = i+1);
i = 28;while i <= 36 do(if (x_32-x_i != 0) then(G32_i=(F_32-F_i)/(x_32-x_i);g=append(g,lift(G32_i,R))); i = i+1); i = 5;while i <= 77 do(if (x_32-x_i != 0) then(G32_i=(F_32-F_i)/(x_32-x_i);g=append(g,lift(G32_i,R))); i = i+9);
i = 40;while i <= 42 do(if (x_32-x_i != 0) then(G32_i=(F_32-F_i)/(x_32-x_i);g=append(g,lift(G32_i,R))); i = i+1); i = 49;while i <= 51 do(if (x_32-x_i != 0) then(G32_i=(F_32-F_i)/(x_32-x_i);g=append(g,lift(G32_i,R))); i = i+1);
i = 28;while i <= 36 do(if (x_33-x_i != 0) then(G33_i=(F_33-F_i)/(x_33-x_i);g=append(g,lift(G33_i,R))); i = i+1); i = 6;while i <= 78 do(if (x_33-x_i != 0) then(G33_i=(F_33-F_i)/(x_33-x_i);g=append(g,lift(G33_i,R))); i = i+9);
i = 40;while i <= 42 do(if (x_33-x_i != 0) then(G33_i=(F_33-F_i)/(x_33-x_i);g=append(g,lift(G33_i,R))); i = i+1); i = 49;while i <= 51 do(if (x_33-x_i != 0) then(G33_i=(F_33-F_i)/(x_33-x_i);g=append(g,lift(G33_i,R))); i = i+1);
i = 28;while i <= 36 do(if (x_34-x_i != 0) then(G34_i=(F_34-F_i)/(x_34-x_i);g=append(g,lift(G34_i,R))); i = i+1); i = 7;while i <= 79 do(if (x_34-x_i != 0) then(G34_i=(F_34-F_i)/(x_34-x_i);g=append(g,lift(G34_i,R))); i = i+9);
i = 43;while i <= 45 do(if (x_34-x_i != 0) then(G34_i=(F_34-F_i)/(x_34-x_i);g=append(g,lift(G34_i,R))); i = i+1); i = 52;while i <= 54 do(if (x_34-x_i != 0) then(G34_i=(F_34-F_i)/(x_34-x_i);g=append(g,lift(G34_i,R))); i = i+1);
i = 28;while i <= 36 do(if (x_35-x_i != 0) then(G35_i=(F_35-F_i)/(x_35-x_i);g=append(g,lift(G35_i,R))); i = i+1); i = 8;while i <= 80 do(if (x_35-x_i != 0) then(G35_i=(F_35-F_i)/(x_35-x_i);g=append(g,lift(G35_i,R))); i = i+9);

 i = 43;while i <= 45 do(if (x_35-x_i != 0) then(G35_i=(F_35-F_i)/(x_35-x_i);g=append(g,lift(G35_i,R))); i = i+1); i = 52;while i <= 54 do(if (x_35-x_i != 0) then(G35_i=(F_35-F_i)/(x_35-x_i);g=append(g,lift(G35_i,R))); i = i+1);
i = 28;while i <= 36 do(if (x_36-x_i != 0) then(G36_i=(F_36-F_i)/(x_36-x_i);g=append(g,lift(G36_i,R))); i = i+1); i = 9;while i <= 81 do(if (x_36-x_i != 0) then(G36_i=(F_36-F_i)/(x_36-x_i);g=append(g,lift(G36_i,R))); i = i+9);
i = 43;while i <= 45 do(if (x_36-x_i != 0) then(G36_i=(F_36-F_i)/(x_36-x_i);g=append(g,lift(G36_i,R))); i = i+1); i = 52;while i <= 54 do(if (x_36-x_i != 0) then(G36_i=(F_36-F_i)/(x_36-x_i);g=append(g,lift(G36_i,R))); i = i+1);
i = 37;while i <= 45 do(if (x_37-x_i != 0) then(G37_i=(F_37-F_i)/(x_37-x_i);g=append(g,lift(G37_i,R))); i = i+1); i = 1;while i <= 73 do(if (x_37-x_i != 0) then(G37_i=(F_37-F_i)/(x_37-x_i);g=append(g,lift(G37_i,R))); i = i+9);
i = 28;while i <= 30 do(if (x_37-x_i != 0) then(G37_i=(F_37-F_i)/(x_37-x_i);g=append(g,lift(G37_i,R))); i = i+1); i = 46;while i <= 48 do(if (x_37-x_i != 0) then(G37_i=(F_37-F_i)/(x_37-x_i);g=append(g,lift(G37_i,R))); i = i+1);
i = 37;while i <= 45 do(if (x_38-x_i != 0) then(G38_i=(F_38-F_i)/(x_38-x_i);g=append(g,lift(G38_i,R))); i = i+1); i = 2;while i <= 74 do(if (x_38-x_i != 0) then(G38_i=(F_38-F_i)/(x_38-x_i);g=append(g,lift(G38_i,R))); i = i+9);
i = 28;while i <= 30 do(if (x_38-x_i != 0) then(G38_i=(F_38-F_i)/(x_38-x_i);g=append(g,lift(G38_i,R))); i = i+1); i = 46;while i <= 48 do(if (x_38-x_i != 0) then(G38_i=(F_38-F_i)/(x_38-x_i);g=append(g,lift(G38_i,R))); i = i+1);
i = 37;while i <= 45 do(if (x_39-x_i != 0) then(G39_i=(F_39-F_i)/(x_39-x_i);g=append(g,lift(G39_i,R))); i = i+1); i = 3;while i <= 75 do(if (x_39-x_i != 0) then(G39_i=(F_39-F_i)/(x_39-x_i);g=append(g,lift(G39_i,R))); i = i+9);
i = 28;while i <= 30 do(if (x_39-x_i != 0) then(G39_i=(F_39-F_i)/(x_39-x_i);g=append(g,lift(G39_i,R))); i = i+1); i = 46;while i <= 48 do(if (x_39-x_i != 0)

 then(G39_i=(F_39-F_i)/(x_39-x_i);g=append(g,lift(G39_i,R))); i = i+1);
i = 37;while i <= 45 do(if (x_40-x_i != 0) then(G40_i=(F_40-F_i)/(x_40-x_i);g=append(g,lift(G40_i,R))); i = i+1); i = 4;while i <= 76 do(if (x_40-x_i != 0) then(G40_i=(F_40-F_i)/(x_40-x_i);g=append(g,lift(G40_i,R))); i = i+9);
i = 31;while i <= 33 do(if (x_40-x_i != 0) then(G40_i=(F_40-F_i)/(x_40-x_i);g=append(g,lift(G40_i,R))); i = i+1); i = 49;while i <= 51 do(if (x_40-x_i != 0) then(G40_i=(F_40-F_i)/(x_40-x_i);g=append(g,lift(G40_i,R))); i = i+1);
i = 37;while i <= 45 do(if (x_41-x_i != 0) then(G41_i=(F_41-F_i)/(x_41-x_i);g=append(g,lift(G41_i,R))); i = i+1); i = 5;while i <= 77 do(if (x_41-x_i != 0) then(G41_i=(F_41-F_i)/(x_41-x_i);g=append(g,lift(G41_i,R))); i = i+9);
i = 31;while i <= 33 do(if (x_41-x_i != 0) then(G41_i=(F_41-F_i)/(x_41-x_i);g=append(g,lift(G41_i,R))); i = i+1); i = 49;while i <= 51 do(if (x_41-x_i != 0) then(G41_i=(F_41-F_i)/(x_41-x_i);g=append(g,lift(G41_i,R))); i = i+1);
i = 37;while i <= 45 do(if (x_42-x_i != 0) then(G42_i=(F_42-F_i)/(x_42-x_i);g=append(g,lift(G42_i,R))); i = i+1); i = 6;while i <= 78 do(if (x_42-x_i != 0) then(G42_i=(F_42-F_i)/(x_42-x_i);g=append(g,lift(G42_i,R))); i = i+9);
i = 31;while i <= 33 do(if (x_42-x_i != 0) then(G42_i=(F_42-F_i)/(x_42-x_i);g=append(g,lift(G42_i,R))); i = i+1); i = 49;while i <= 51 do(if (x_42-x_i != 0) then(G42_i=(F_42-F_i)/(x_42-x_i);g=append(g,lift(G42_i,R))); i = i+1);
i = 37;while i <= 45 do(if (x_43-x_i != 0) then(G43_i=(F_43-F_i)/(x_43-x_i);g=append(g,lift(G43_i,R))); i = i+1); i = 7;while i <= 79 do(if (x_43-x_i != 0) then(G43_i=(F_43-F_i)/(x_43-x_i);g=append(g,lift(G43_i,R))); i = i+9);
i = 34;while i <= 36 do(if (x_43-x_i != 0) then(G43_i=(F_43-F_i)/(x_43-x_i);g=append(g,lift(G43_i,R))); i = i+1); i = 52;while i <= 54 do(if (x_43-x_i != 0) then(G43_i=(F_43-F_i)/(x_43-x_i);g=append(g,lift(G43_i,R))); i = i+1);
i = 37;while i <= 45 do(if (x_44-x_i != 0)

 then(G44_i=(F_44-F_i)/(x_44-x_i);g=append(g,lift(G44_i,R))); i = i+1); i = 8;while i <= 80 do(if (x_44-x_i != 0) then(G44_i=(F_44-F_i)/(x_44-x_i);g=append(g,lift(G44_i,R))); i = i+9);
i = 34;while i <= 36 do(if (x_44-x_i != 0) then(G44_i=(F_44-F_i)/(x_44-x_i);g=append(g,lift(G44_i,R))); i = i+1); i = 52;while i <= 54 do(if (x_44-x_i != 0) then(G44_i=(F_44-F_i)/(x_44-x_i);g=append(g,lift(G44_i,R))); i = i+1);
i = 37;while i <= 45 do(if (x_45-x_i != 0) then(G45_i=(F_45-F_i)/(x_45-x_i);g=append(g,lift(G45_i,R))); i = i+1); i = 9;while i <= 81 do(if (x_45-x_i != 0) then(G45_i=(F_45-F_i)/(x_45-x_i);g=append(g,lift(G45_i,R))); i = i+9);
i = 34;while i <= 36 do(if (x_45-x_i != 0) then(G45_i=(F_45-F_i)/(x_45-x_i);g=append(g,lift(G45_i,R))); i = i+1); i = 52;while i <= 54 do(if (x_45-x_i != 0) then(G45_i=(F_45-F_i)/(x_45-x_i);g=append(g,lift(G45_i,R))); i = i+1);
i = 46;while i <= 54 do(if (x_46-x_i != 0) then(G46_i=(F_46-F_i)/(x_46-x_i);g=append(g,lift(G46_i,R))); i = i+1); i = 1;while i <= 73 do(if (x_46-x_i != 0) then(G46_i=(F_46-F_i)/(x_46-x_i);g=append(g,lift(G46_i,R))); i = i+9);
i = 28;while i <= 30 do(if (x_46-x_i != 0) then(G46_i=(F_46-F_i)/(x_46-x_i);g=append(g,lift(G46_i,R))); i = i+1); i = 37;while i <= 39 do(if (x_46-x_i != 0) then(G46_i=(F_46-F_i)/(x_46-x_i);g=append(g,lift(G46_i,R))); i = i+1);
i = 46;while i <= 54 do(if (x_47-x_i != 0) then(G47_i=(F_47-F_i)/(x_47-x_i);g=append(g,lift(G47_i,R))); i = i+1); i = 2;while i <= 74 do(if (x_47-x_i != 0) then(G47_i=(F_47-F_i)/(x_47-x_i);g=append(g,lift(G47_i,R))); i = i+9);
i = 28;while i <= 30 do(if (x_47-x_i != 0) then(G47_i=(F_47-F_i)/(x_47-x_i);g=append(g,lift(G47_i,R))); i = i+1); i = 37;while i <= 39 do(if (x_47-x_i != 0) then(G47_i=(F_47-F_i)/(x_47-x_i);g=append(g,lift(G47_i,R))); i = i+1);
i = 46;while i <= 54 do(if (x_48-x_i != 0) then(G48_i=(F_48-F_i)/(x_48-x_i);g=append(g,lift(G48_i,R))); i = i+1); i = 3;while i <= 75 do(if (x_48-x_i != 0) then(G48_i=(F_48-F_i)/(x_48-x_i);g=append(g,lift(G48_i,R))); i = i+9);

 i = 28;while i <= 30 do(if (x_48-x_i != 0) then(G48_i=(F_48-F_i)/(x_48-x_i);g=append(g,lift(G48_i,R))); i = i+1); i = 37;while i <= 39 do(if (x_48-x_i != 0) then(G48_i=(F_48-F_i)/(x_48-x_i);g=append(g,lift(G48_i,R))); i = i+1);
i = 46;while i <= 54 do(if (x_49-x_i != 0) then(G49_i=(F_49-F_i)/(x_49-x_i);g=append(g,lift(G49_i,R))); i = i+1); i = 4;while i <= 76 do(if (x_49-x_i != 0) then(G49_i=(F_49-F_i)/(x_49-x_i);g=append(g,lift(G49_i,R))); i = i+9);
i = 31;while i <= 33 do(if (x_49-x_i != 0) then(G49_i=(F_49-F_i)/(x_49-x_i);g=append(g,lift(G49_i,R))); i = i+1); i = 40;while i <= 42 do(if (x_49-x_i != 0) then(G49_i=(F_49-F_i)/(x_49-x_i);g=append(g,lift(G49_i,R))); i = i+1);
i = 46;while i <= 54 do(if (x_50-x_i != 0) then(G50_i=(F_50-F_i)/(x_50-x_i);g=append(g,lift(G50_i,R))); i = i+1); i = 5;while i <= 77 do(if (x_50-x_i != 0) then(G50_i=(F_50-F_i)/(x_50-x_i);g=append(g,lift(G50_i,R))); i = i+9);
i = 31;while i <= 33 do(if (x_50-x_i != 0) then(G50_i=(F_50-F_i)/(x_50-x_i);g=append(g,lift(G50_i,R))); i = i+1); i = 40;while i <= 42 do(if (x_50-x_i != 0) then(G50_i=(F_50-F_i)/(x_50-x_i);g=append(g,lift(G50_i,R))); i = i+1);
i = 46;while i <= 54 do(if (x_51-x_i != 0) then(G51_i=(F_51-F_i)/(x_51-x_i);g=append(g,lift(G51_i,R))); i = i+1); i = 6;while i <= 78 do(if (x_51-x_i != 0) then(G51_i=(F_51-F_i)/(x_51-x_i);g=append(g,lift(G51_i,R))); i = i+9);
i = 31;while i <= 33 do(if (x_51-x_i != 0) then(G51_i=(F_51-F_i)/(x_51-x_i);g=append(g,lift(G51_i,R))); i = i+1); i = 40;while i <= 42 do(if (x_51-x_i != 0) then(G51_i=(F_51-F_i)/(x_51-x_i);g=append(g,lift(G51_i,R))); i = i+1);
i = 46;while i <= 54 do(if (x_52-x_i != 0) then(G52_i=(F_52-F_i)/(x_52-x_i);g=append(g,lift(G52_i,R))); i = i+1); i = 7;while i <= 79 do(if (x_52-x_i != 0) then(G52_i=(F_52-F_i)/(x_52-x_i);g=append(g,lift(G52_i,R))); i = i+9);
i = 34;while i <= 36 do(if (x_52-x_i != 0) then(G52_i=(F_52-F_i)/(x_52-x_i);g=append(g,lift(G52_i,R))); i = i+1); i = 43;while i <= 45 do(if (x_52-x_i != 0) then(G52_i=(F_52-F_i)/(x_52-x_i);g=append(g,lift(G52_i,R))); i = i+1);

 i = 46;while i <= 54 do(if (x_53-x_i != 0) then(G53_i=(F_53-F_i)/(x_53-x_i);g=append(g,lift(G53_i,R))); i = i+1); i = 8;while i <= 80 do(if (x_53-x_i != 0) then(G53_i=(F_53-F_i)/(x_53-x_i);g=append(g,lift(G53_i,R))); i = i+9);
i = 34;while i <= 36 do(if (x_53-x_i != 0) then(G53_i=(F_53-F_i)/(x_53-x_i);g=append(g,lift(G53_i,R))); i = i+1); i = 43;while i <= 45 do(if (x_53-x_i != 0) then(G53_i=(F_53-F_i)/(x_53-x_i);g=append(g,lift(G53_i,R))); i = i+1);
i = 46;while i <= 54 do(if (x_54-x_i != 0) then(G54_i=(F_54-F_i)/(x_54-x_i);g=append(g,lift(G54_i,R))); i = i+1); i = 9;while i <= 81 do(if (x_54-x_i != 0) then(G54_i=(F_54-F_i)/(x_54-x_i);g=append(g,lift(G54_i,R))); i = i+9);
i = 34;while i <= 36 do(if (x_54-x_i != 0) then(G54_i=(F_54-F_i)/(x_54-x_i);g=append(g,lift(G54_i,R))); i = i+1); i = 43;while i <= 45 do(if (x_54-x_i != 0) then(G54_i=(F_54-F_i)/(x_54-x_i);g=append(g,lift(G54_i,R))); i = i+1);
i = 55;while i <= 63 do(if (x_55-x_i != 0) then(G55_i=(F_55-F_i)/(x_55-x_i);g=append(g,lift(G55_i,R))); i = i+1); i = 1;while i <= 73 do(if (x_55-x_i != 0) then(G55_i=(F_55-F_i)/(x_55-x_i);g=append(g,lift(G55_i,R))); i = i+9);
i = 64;while i <= 66 do(if (x_55-x_i != 0) then(G55_i=(F_55-F_i)/(x_55-x_i);g=append(g,lift(G55_i,R))); i = i+1); i = 73;while i <= 75 do(if (x_55-x_i != 0) then(G55_i=(F_55-F_i)/(x_55-x_i);g=append(g,lift(G55_i,R))); i = i+1);
i = 55;while i <= 63 do(if (x_56-x_i != 0) then(G56_i=(F_56-F_i)/(x_56-x_i);g=append(g,lift(G56_i,R))); i = i+1); i = 2;while i <= 74 do(if (x_56-x_i != 0) then(G56_i=(F_56-F_i)/(x_56-x_i);g=append(g,lift(G56_i,R))); i = i+9);
i = 64;while i <= 66 do(if (x_56-x_i != 0) then(G56_i=(F_56-F_i)/(x_56-x_i);g=append(g,lift(G56_i,R))); i = i+1); i = 73;while i <= 75 do(if (x_56-x_i != 0) then(G56_i=(F_56-F_i)/(x_56-x_i);g=append(g,lift(G56_i,R))); i = i+1);
i = 55;while i <= 63 do(if (x_57-x_i != 0) then(G57_i=(F_57-F_i)/(x_57-x_i);g=append(g,lift(G57_i,R))); i = i+1);

 i = 3;while i <= 75 do(if (x_57-x_i != 0) then(G57_i=(F_57-F_i)/(x_57-x_i);g=append(g,lift(G57_i,R))); i = i+9);
i = 64;while i <= 66 do(if (x_57-x_i != 0) then(G57_i=(F_57-F_i)/(x_57-x_i);g=append(g,lift(G57_i,R))); i = i+1); i = 73;while i <= 75 do(if (x_57-x_i != 0) then(G57_i=(F_57-F_i)/(x_57-x_i);g=append(g,lift(G57_i,R))); i = i+1);
i = 55;while i <= 63 do(if (x_58-x_i != 0) then(G58_i=(F_58-F_i)/(x_58-x_i);g=append(g,lift(G58_i,R))); i = i+1); i = 4;while i <= 76 do(if (x_58-x_i != 0) then(G58_i=(F_58-F_i)/(x_58-x_i);g=append(g,lift(G58_i,R))); i = i+9);
i = 67;while i <= 69 do(if (x_58-x_i != 0) then(G58_i=(F_58-F_i)/(x_58-x_i);g=append(g,lift(G58_i,R))); i = i+1); i = 76;while i <= 78 do(if (x_58-x_i != 0) then(G58_i=(F_58-F_i)/(x_58-x_i);g=append(g,lift(G58_i,R))); i = i+1);
i = 55;while i <= 63 do(if (x_59-x_i != 0) then(G59_i=(F_59-F_i)/(x_59-x_i);g=append(g,lift(G59_i,R))); i = i+1); i = 5;while i <= 77 do(if (x_59-x_i != 0) then(G59_i=(F_59-F_i)/(x_59-x_i);g=append(g,lift(G59_i,R))); i = i+9);
i = 67;while i <= 69 do(if (x_59-x_i != 0) then(G59_i=(F_59-F_i)/(x_59-x_i);g=append(g,lift(G59_i,R))); i = i+1); i = 76;while i <= 78 do(if (x_59-x_i != 0) then(G59_i=(F_59-F_i)/(x_59-x_i);g=append(g,lift(G59_i,R))); i = i+1);
i = 55;while i <= 63 do(if (x_60-x_i != 0) then(G60_i=(F_60-F_i)/(x_60-x_i);g=append(g,lift(G60_i,R))); i = i+1); i = 6;while i <= 78 do(if (x_60-x_i != 0) then(G60_i=(F_60-F_i)/(x_60-x_i);g=append(g,lift(G60_i,R))); i = i+9);
i = 67;while i <= 69 do(if (x_60-x_i != 0) then(G60_i=(F_60-F_i)/(x_60-x_i);g=append(g,lift(G60_i,R))); i = i+1); i = 76;while i <= 78 do(if (x_60-x_i != 0) then(G60_i=(F_60-F_i)/(x_60-x_i);g=append(g,lift(G60_i,R))); i = i+1);
i = 55;while i <= 63 do(if (x_61-x_i != 0) then(G61_i=(F_61-F_i)/(x_61-x_i);g=append(g,lift(G61_i,R))); i = i+1); i = 7;while i <= 79 do(if (x_61-x_i != 0) then(G61_i=(F_61-F_i)/(x_61-x_i);g=append(g,lift(G61_i,R))); i = i+9);
i = 70;while i <= 72 do(if (x_61-x_i != 0)

 then(G61_i=(F_61-F_i)/(x_61-x_i);g=append(g,lift(G61_i,R))); i = i+1); i = 79;while i <= 81 do(if (x_61-x_i != 0) then(G61_i=(F_61-F_i)/(x_61-x_i);g=append(g,lift(G61_i,R))); i = i+1);
i = 55;while i <= 63 do(if (x_62-x_i != 0) then(G62_i=(F_62-F_i)/(x_62-x_i);g=append(g,lift(G62_i,R))); i = i+1); i = 8;while i <= 80 do(if (x_62-x_i != 0) then(G62_i=(F_62-F_i)/(x_62-x_i);g=append(g,lift(G62_i,R))); i = i+9);
i = 70;while i <= 72 do(if (x_62-x_i != 0) then(G62_i=(F_62-F_i)/(x_62-x_i);g=append(g,lift(G62_i,R))); i = i+1); i = 79;while i <= 81 do(if (x_62-x_i != 0) then(G62_i=(F_62-F_i)/(x_62-x_i);g=append(g,lift(G62_i,R))); i = i+1);
i = 55;while i <= 63 do(if (x_63-x_i != 0) then(G63_i=(F_63-F_i)/(x_63-x_i);g=append(g,lift(G63_i,R))); i = i+1); i = 9;while i <= 81 do(if (x_63-x_i != 0) then(G63_i=(F_63-F_i)/(x_63-x_i);g=append(g,lift(G63_i,R))); i = i+9);
i = 70;while i <= 72 do(if (x_63-x_i != 0) then(G63_i=(F_63-F_i)/(x_63-x_i);g=append(g,lift(G63_i,R))); i = i+1); i = 79;while i <= 81 do(if (x_63-x_i != 0) then(G63_i=(F_63-F_i)/(x_63-x_i);g=append(g,lift(G63_i,R))); i = i+1);
i = 64;while i <= 72 do(if (x_64-x_i != 0) then(G64_i=(F_64-F_i)/(x_64-x_i);g=append(g,lift(G64_i,R))); i = i+1); i = 1;while i <= 73 do(if (x_64-x_i != 0) then(G64_i=(F_64-F_i)/(x_64-x_i);g=append(g,lift(G64_i,R))); i = i+9);
i = 55;while i <= 57 do(if (x_64-x_i != 0) then(G64_i=(F_64-F_i)/(x_64-x_i);g=append(g,lift(G64_i,R))); i = i+1); i = 73;while i <= 75 do(if (x_64-x_i != 0) then(G64_i=(F_64-F_i)/(x_64-x_i);g=append(g,lift(G64_i,R))); i = i+1);
i = 64;while i <= 72 do(if (x_65-x_i != 0) then(G65_i=(F_65-F_i)/(x_65-x_i);g=append(g,lift(G65_i,R))); i = i+1); i = 2;while i <= 74 do(if (x_65-x_i != 0) then(G65_i=(F_65-F_i)/(x_65-x_i);g=append(g,lift(G65_i,R))); i = i+9);
i = 55;while i <= 57 do(if (x_65-x_i != 0) then(G65_i=(F_65-F_i)/(x_65-x_i);g=append(g,lift(G65_i,R))); i = i+1); i = 73;while i <= 75 do(if (x_65-x_i != 0) then(G65_i=(F_65-F_i)/(x_65-x_i);g=append(g,lift(G65_i,R))); i = i+1);

 i = 64;while i <= 72 do(if (x_66-x_i != 0) then(G66_i=(F_66-F_i)/(x_66-x_i);g=append(g,lift(G66_i,R))); i = i+1); i = 3;while i <= 75 do(if (x_66-x_i != 0) then(G66_i=(F_66-F_i)/(x_66-x_i);g=append(g,lift(G66_i,R))); i = i+9);
i = 55;while i <= 57 do(if (x_66-x_i != 0) then(G66_i=(F_66-F_i)/(x_66-x_i);g=append(g,lift(G66_i,R))); i = i+1); i = 73;while i <= 75 do(if (x_66-x_i != 0) then(G66_i=(F_66-F_i)/(x_66-x_i);g=append(g,lift(G66_i,R))); i = i+1);
i = 64;while i <= 72 do(if (x_67-x_i != 0) then(G67_i=(F_67-F_i)/(x_67-x_i);g=append(g,lift(G67_i,R))); i = i+1); i = 4;while i <= 76 do(if (x_67-x_i != 0) then(G67_i=(F_67-F_i)/(x_67-x_i);g=append(g,lift(G67_i,R))); i = i+9);
i = 58;while i <= 60 do(if (x_67-x_i != 0) then(G67_i=(F_67-F_i)/(x_67-x_i);g=append(g,lift(G67_i,R))); i = i+1); i = 76;while i <= 78 do(if (x_67-x_i != 0) then(G67_i=(F_67-F_i)/(x_67-x_i);g=append(g,lift(G67_i,R))); i = i+1);
i = 64;while i <= 72 do(if (x_68-x_i != 0) then(G68_i=(F_68-F_i)/(x_68-x_i);g=append(g,lift(G68_i,R))); i = i+1); i = 5;while i <= 77 do(if (x_68-x_i != 0) then(G68_i=(F_68-F_i)/(x_68-x_i);g=append(g,lift(G68_i,R))); i = i+9);
i = 58;while i <= 60 do(if (x_68-x_i != 0) then(G68_i=(F_68-F_i)/(x_68-x_i);g=append(g,lift(G68_i,R))); i = i+1); i = 76;while i <= 78 do(if (x_68-x_i != 0) then(G68_i=(F_68-F_i)/(x_68-x_i);g=append(g,lift(G68_i,R))); i = i+1);
i = 64;while i <= 72 do(if (x_69-x_i != 0) then(G69_i=(F_69-F_i)/(x_69-x_i);g=append(g,lift(G69_i,R))); i = i+1); i = 6;while i <= 78 do(if (x_69-x_i != 0) then(G69_i=(F_69-F_i)/(x_69-x_i);g=append(g,lift(G69_i,R))); i = i+9);
i = 58;while i <= 60 do(if (x_69-x_i != 0) then(G69_i=(F_69-F_i)/(x_69-x_i);g=append(g,lift(G69_i,R))); i = i+1); i = 76;while i <= 78 do(if (x_69-x_i != 0) then(G69_i=(F_69-F_i)/(x_69-x_i);g=append(g,lift(G69_i,R))); i = i+1);
i = 64;while i <= 72 do(if (x_70-x_i != 0) then(G70_i=(F_70-F_i)/(x_70-x_i);g=append(g,lift(G70_i,R))); i = i+1); i = 7;while i <= 79 do(if (x_70-x_i != 0)

 then(G70_i=(F_70-F_i)/(x_70-x_i);g=append(g,lift(G70_i,R))); i = i+9);
i = 61;while i <= 63 do(if (x_70-x_i != 0) then(G70_i=(F_70-F_i)/(x_70-x_i);g=append(g,lift(G70_i,R))); i = i+1); i = 79;while i <= 81 do(if (x_70-x_i != 0) then(G70_i=(F_70-F_i)/(x_70-x_i);g=append(g,lift(G70_i,R))); i = i+1);
i = 64;while i <= 72 do(if (x_71-x_i != 0) then(G71_i=(F_71-F_i)/(x_71-x_i);g=append(g,lift(G71_i,R))); i = i+1); i = 8;while i <= 80 do(if (x_71-x_i != 0) then(G71_i=(F_71-F_i)/(x_71-x_i);g=append(g,lift(G71_i,R))); i = i+9);
i = 61;while i <= 63 do(if (x_71-x_i != 0) then(G71_i=(F_71-F_i)/(x_71-x_i);g=append(g,lift(G71_i,R))); i = i+1); i = 79;while i <= 81 do(if (x_71-x_i != 0) then(G71_i=(F_71-F_i)/(x_71-x_i);g=append(g,lift(G71_i,R))); i = i+1);
i = 64;while i <= 72 do(if (x_72-x_i != 0) then(G72_i=(F_72-F_i)/(x_72-x_i);g=append(g,lift(G72_i,R))); i = i+1); i = 9;while i <= 81 do(if (x_72-x_i != 0) then(G72_i=(F_72-F_i)/(x_72-x_i);g=append(g,lift(G72_i,R))); i = i+9);
i = 61;while i <= 63 do(if (x_72-x_i != 0) then(G72_i=(F_72-F_i)/(x_72-x_i);g=append(g,lift(G72_i,R))); i = i+1); i = 79;while i <= 81 do(if (x_72-x_i != 0) then(G72_i=(F_72-F_i)/(x_72-x_i);g=append(g,lift(G72_i,R))); i = i+1);
i = 73;while i <= 81 do(if (x_73-x_i != 0) then(G73_i=(F_73-F_i)/(x_73-x_i);g=append(g,lift(G73_i,R))); i = i+1); i = 1;while i <= 73 do(if (x_73-x_i != 0) then(G73_i=(F_73-F_i)/(x_73-x_i);g=append(g,lift(G73_i,R))); i = i+9);
i = 55;while i <= 57 do(if (x_73-x_i != 0) then(G73_i=(F_73-F_i)/(x_73-x_i);g=append(g,lift(G73_i,R))); i = i+1); i = 64;while i <= 66 do(if (x_73-x_i != 0) then(G73_i=(F_73-F_i)/(x_73-x_i);g=append(g,lift(G73_i,R))); i = i+1);
i = 73;while i <= 81 do(if (x_74-x_i != 0) then(G74_i=(F_74-F_i)/(x_74-x_i);g=append(g,lift(G74_i,R))); i = i+1); i = 2;while i <= 74 do(if (x_74-x_i != 0) then(G74_i=(F_74-F_i)/(x_74-x_i);g=append(g,lift(G74_i,R))); i = i+9);
i = 55;while i <= 57 do(if (x_74-x_i != 0) then(G74_i=(F_74-F_i)/(x_74-x_i);g=append(g,lift(G74_i,R))); i = i+1);

 i = 64;while i <= 66 do(if (x_74-x_i != 0) then(G74_i=(F_74-F_i)/(x_74-x_i);g=append(g,lift(G74_i,R))); i = i+1);
i = 73;while i <= 81 do(if (x_75-x_i != 0) then(G75_i=(F_75-F_i)/(x_75-x_i);g=append(g,lift(G75_i,R))); i = i+1); i = 3;while i <= 75 do(if (x_75-x_i != 0) then(G75_i=(F_75-F_i)/(x_75-x_i);g=append(g,lift(G75_i,R))); i = i+9);
i = 55;while i <= 57 do(if (x_75-x_i != 0) then(G75_i=(F_75-F_i)/(x_75-x_i);g=append(g,lift(G75_i,R))); i = i+1); i = 64;while i <= 66 do(if (x_75-x_i != 0) then(G75_i=(F_75-F_i)/(x_75-x_i);g=append(g,lift(G75_i,R))); i = i+1);
i = 73;while i <= 81 do(if (x_76-x_i != 0) then(G76_i=(F_76-F_i)/(x_76-x_i);g=append(g,lift(G76_i,R))); i = i+1); i = 4;while i <= 76 do(if (x_76-x_i != 0) then(G76_i=(F_76-F_i)/(x_76-x_i);g=append(g,lift(G76_i,R))); i = i+9);
i = 58;while i <= 60 do(if (x_76-x_i != 0) then(G76_i=(F_76-F_i)/(x_76-x_i);g=append(g,lift(G76_i,R))); i = i+1); i = 67;while i <= 69 do(if (x_76-x_i != 0) then(G76_i=(F_76-F_i)/(x_76-x_i);g=append(g,lift(G76_i,R))); i = i+1);
i = 73;while i <= 81 do(if (x_77-x_i != 0) then(G77_i=(F_77-F_i)/(x_77-x_i);g=append(g,lift(G77_i,R))); i = i+1); i = 5;while i <= 77 do(if (x_77-x_i != 0) then(G77_i=(F_77-F_i)/(x_77-x_i);g=append(g,lift(G77_i,R))); i = i+9);
i = 58;while i <= 60 do(if (x_77-x_i != 0) then(G77_i=(F_77-F_i)/(x_77-x_i);g=append(g,lift(G77_i,R))); i = i+1); i = 67;while i <= 69 do(if (x_77-x_i != 0) then(G77_i=(F_77-F_i)/(x_77-x_i);g=append(g,lift(G77_i,R))); i = i+1);
i = 73;while i <= 81 do(if (x_78-x_i != 0) then(G78_i=(F_78-F_i)/(x_78-x_i);g=append(g,lift(G78_i,R))); i = i+1); i = 6;while i <= 78 do(if (x_78-x_i != 0) then(G78_i=(F_78-F_i)/(x_78-x_i);g=append(g,lift(G78_i,R))); i = i+9);
i = 58;while i <= 60 do(if (x_78-x_i != 0) then(G78_i=(F_78-F_i)/(x_78-x_i);g=append(g,lift(G78_i,R))); i = i+1); i = 67;while i <= 69 do(if (x_78-x_i != 0) then(G78_i=(F_78-F_i)/(x_78-x_i);g=append(g,lift(G78_i,R))); i = i+1);

 i = 73;while i <= 81 do(if (x_79-x_i != 0) then(G79_i=(F_79-F_i)/(x_79-x_i);g=append(g,lift(G79_i,R))); i = i+1); i = 7;while i <= 79 do(if (x_79-x_i != 0) then(G79_i=(F_79-F_i)/(x_79-x_i);g=append(g,lift(G79_i,R))); i = i+9);
i = 61;while i <= 63 do(if (x_79-x_i != 0) then(G79_i=(F_79-F_i)/(x_79-x_i);g=append(g,lift(G79_i,R))); i = i+1); i = 70;while i <= 72 do(if (x_79-x_i != 0) then(G79_i=(F_79-F_i)/(x_79-x_i);g=append(g,lift(G79_i,R))); i = i+1);
i = 73;while i <= 81 do(if (x_80-x_i != 0) then(G80_i=(F_80-F_i)/(x_80-x_i);g=append(g,lift(G80_i,R))); i = i+1); i = 8;while i <= 80 do(if (x_80-x_i != 0) then(G80_i=(F_80-F_i)/(x_80-x_i);g=append(g,lift(G80_i,R))); i = i+9);
i = 61;while i <= 63 do(if (x_80-x_i != 0) then(G80_i=(F_80-F_i)/(x_80-x_i);g=append(g,lift(G80_i,R))); i = i+1); i = 70;while i <= 72 do(if (x_80-x_i != 0) then(G80_i=(F_80-F_i)/(x_80-x_i);g=append(g,lift(G80_i,R))); i = i+1);
i = 73;while i <= 81 do(if (x_81-x_i != 0) then(G81_i=(F_81-F_i)/(x_81-x_i);g=append(g,lift(G81_i,R))); i = i+1); i = 9;while i <= 81 do(if (x_81-x_i != 0) then(G81_i=(F_81-F_i)/(x_81-x_i);g=append(g,lift(G81_i,R))); i = i+9);
i = 61;while i <= 63 do(if (x_81-x_i != 0) then(G81_i=(F_81-F_i)/(x_81-x_i);g=append(g,lift(G81_i,R))); i = i+1); i = 70;while i <= 72 do(if (x_81-x_i != 0) then(G81_i=(F_81-F_i)/(x_81-x_i);g=append(g,lift(G81_i,R))); i = i+1);

g=append(g,x_2-3);
g=append(g,x_5-9);
g=append(g,x_7-5);
g=append(g,x_11-5);
g=append(g,x_12-8);
g=append(g,x_13-3);
g=append(g,x_14-2);
g=append(g,x_17-1);
g=append(g,x_19-7);
g=append(g,x_24-1);
g=append(g,x_26-2);
g=append(g,x_28-5);
g=append(g,x_33-3);
g=append(g,x_35-4);
g=append(g,x_38-4);
g=append(g,x_39-3);
g=append(g,x_40-2);
g=append(g,x_41-6);
g=append(g,x_44-9);
g=append(g,x_48-1);
g=append(g,x_51-9);
g=append(g,x_53-3);
g=append(g,x_57-7);
g=append(g,x_59-4);
g=append(g,x_61-2);
g=append(g,x_62-5);
g=append(g,x_65-2);
g=append(g,x_68-1);
g=append(g,x_70-3);
g=append(g,x_72-4);
g=append(g,x_76-6);
g=append(g,x_79-1);
I=ideal(g);
G=gens gb I
i=1; while i<= 9 do(A_i="|";j=1; while j <= 9 do (k=9*(i-1)+j;s=toString(x_k-G_(0,81-k));A_i=A_i|s;if (j%3==0 and j <9) then A_i=A_i| "|";j=j+1);A_i = A_i | "|";i=i+1);
B="|---+---+---|";
A=A_1|"\n"|A_2|"\n"|A_3|"\n"|B|"\n"|A_4|"\n"|A_5|"\n"|A_6|"\n"|B|"\n"|A_7|"\n"|A_8|"\n"|A_9;
print A