Update display logs and c files

10 files changed, 352 insertions, 0 deletions

diff --git a/src/Specific/solinas64_2e413m21_8limbs/feadd.c b/src/Specific/solinas64_2e413m21_8limbs/feadd.c
new file mode 100644
index 000000000..4def6ee9c
--- /dev/null
+++ b/src/Specific/solinas64_2e413m21_8limbs/feadd.c
@@ -0,0 +1,27 @@
+static void feadd(uint64_t out[8], const uint64_t in1[8], const uint64_t in2[8]) {
+  { const uint64_t x16 = in1[7];
+  { const uint64_t x17 = in1[6];
+  { const uint64_t x15 = in1[5];
+  { const uint64_t x13 = in1[4];
+  { const uint64_t x11 = in1[3];
+  { const uint64_t x9 = in1[2];
+  { const uint64_t x7 = in1[1];
+  { const uint64_t x5 = in1[0];
+  { const uint64_t x30 = in2[7];
+  { const uint64_t x31 = in2[6];
+  { const uint64_t x29 = in2[5];
+  { const uint64_t x27 = in2[4];
+  { const uint64_t x25 = in2[3];
+  { const uint64_t x23 = in2[2];
+  { const uint64_t x21 = in2[1];
+  { const uint64_t x19 = in2[0];
+  out[0] = (x5 + x19);
+  out[1] = (x7 + x21);
+  out[2] = (x9 + x23);
+  out[3] = (x11 + x25);
+  out[4] = (x13 + x27);
+  out[5] = (x15 + x29);
+  out[6] = (x17 + x31);
+  out[7] = (x16 + x30);
+  }}}}}}}}}}}}}}}}
+}
diff --git a/src/Specific/solinas64_2e413m21_8limbs/feaddDisplay.log b/src/Specific/solinas64_2e413m21_8limbs/feaddDisplay.log
new file mode 100644
index 000000000..023fc8a31
--- /dev/null
+++ b/src/Specific/solinas64_2e413m21_8limbs/feaddDisplay.log
@@ -0,0 +1,7 @@
+λ x x0 : word64 * word64 * word64 * word64 * word64 * word64 * word64 * word64,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x16, x17, x15, x13, x11, x9, x7, x5, (x30, x31, x29, x27, x25, x23, x21, x19))%core,
+ ((x16 + x30), (x17 + x31), (x15 + x29), (x13 + x27), (x11 + x25), (x9 + x23), (x7 + x21), (x5 + x19)))
+(x, x0)%core
+     : word64 * word64 * word64 * word64 * word64 * word64 * word64 * word64 → word64 * word64 * word64 * word64 * word64 * word64 * word64 * word64 → ReturnType (uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t)
diff --git a/src/Specific/solinas64_2e413m21_8limbs/femul.c b/src/Specific/solinas64_2e413m21_8limbs/femul.c
new file mode 100644
index 000000000..92f7544c8
--- /dev/null
+++ b/src/Specific/solinas64_2e413m21_8limbs/femul.c
@@ -0,0 +1,64 @@
+static void femul(uint64_t out[8], const uint64_t in1[8], const uint64_t in2[8]) {
+  { const uint64_t x16 = in1[7];
+  { const uint64_t x17 = in1[6];
+  { const uint64_t x15 = in1[5];
+  { const uint64_t x13 = in1[4];
+  { const uint64_t x11 = in1[3];
+  { const uint64_t x9 = in1[2];
+  { const uint64_t x7 = in1[1];
+  { const uint64_t x5 = in1[0];
+  { const uint64_t x30 = in2[7];
+  { const uint64_t x31 = in2[6];
+  { const uint64_t x29 = in2[5];
+  { const uint64_t x27 = in2[4];
+  { const uint64_t x25 = in2[3];
+  { const uint64_t x23 = in2[2];
+  { const uint64_t x21 = in2[1];
+  { const uint64_t x19 = in2[0];
+  { uint128_t x32 = (((uint128_t)x5 * x30) + (((uint128_t)x7 * x31) + ((0x2 * ((uint128_t)x9 * x29)) + (((uint128_t)x11 * x27) + (((uint128_t)x13 * x25) + ((0x2 * ((uint128_t)x15 * x23)) + (((uint128_t)x17 * x21) + ((uint128_t)x16 * x19))))))));
+  { uint128_t x33 = ((((uint128_t)x5 * x31) + ((0x2 * ((uint128_t)x7 * x29)) + ((0x2 * ((uint128_t)x9 * x27)) + (((uint128_t)x11 * x25) + ((0x2 * ((uint128_t)x13 * x23)) + ((0x2 * ((uint128_t)x15 * x21)) + ((uint128_t)x17 * x19))))))) + (0x15 * (0x2 * ((uint128_t)x16 * x30))));
+  { uint128_t x34 = ((((uint128_t)x5 * x29) + (((uint128_t)x7 * x27) + (((uint128_t)x9 * x25) + (((uint128_t)x11 * x23) + (((uint128_t)x13 * x21) + ((uint128_t)x15 * x19)))))) + (0x15 * (((uint128_t)x17 * x30) + ((uint128_t)x16 * x31))));
+  { uint128_t x35 = ((((uint128_t)x5 * x27) + (((uint128_t)x7 * x25) + ((0x2 * ((uint128_t)x9 * x23)) + (((uint128_t)x11 * x21) + ((uint128_t)x13 * x19))))) + (0x15 * ((0x2 * ((uint128_t)x15 * x30)) + (((uint128_t)x17 * x31) + (0x2 * ((uint128_t)x16 * x29))))));
+  { uint128_t x36 = ((((uint128_t)x5 * x25) + ((0x2 * ((uint128_t)x7 * x23)) + ((0x2 * ((uint128_t)x9 * x21)) + ((uint128_t)x11 * x19)))) + (0x15 * ((0x2 * ((uint128_t)x13 * x30)) + ((0x2 * ((uint128_t)x15 * x31)) + ((0x2 * ((uint128_t)x17 * x29)) + (0x2 * ((uint128_t)x16 * x27)))))));
+  { uint128_t x37 = ((((uint128_t)x5 * x23) + (((uint128_t)x7 * x21) + ((uint128_t)x9 * x19))) + (0x15 * (((uint128_t)x11 * x30) + (((uint128_t)x13 * x31) + ((0x2 * ((uint128_t)x15 * x29)) + (((uint128_t)x17 * x27) + ((uint128_t)x16 * x25)))))));
+  { uint128_t x38 = ((((uint128_t)x5 * x21) + ((uint128_t)x7 * x19)) + (0x15 * ((0x2 * ((uint128_t)x9 * x30)) + (((uint128_t)x11 * x31) + ((0x2 * ((uint128_t)x13 * x29)) + ((0x2 * ((uint128_t)x15 * x27)) + (((uint128_t)x17 * x25) + (0x2 * ((uint128_t)x16 * x23)))))))));
+  { uint128_t x39 = (((uint128_t)x5 * x19) + (0x15 * ((0x2 * ((uint128_t)x7 * x30)) + ((0x2 * ((uint128_t)x9 * x31)) + ((0x2 * ((uint128_t)x11 * x29)) + ((0x2 * ((uint128_t)x13 * x27)) + ((0x2 * ((uint128_t)x15 * x25)) + ((0x2 * ((uint128_t)x17 * x23)) + (0x2 * ((uint128_t)x16 * x21))))))))));
+  { uint64_t x40 = (uint64_t) (x39 >> 0x34);
+  { uint64_t x41 = ((uint64_t)x39 & 0xfffffffffffff);
+  { uint128_t x42 = (x40 + x38);
+  { uint64_t x43 = (uint64_t) (x42 >> 0x34);
+  { uint64_t x44 = ((uint64_t)x42 & 0xfffffffffffff);
+  { uint128_t x45 = (x43 + x37);
+  { uint64_t x46 = (uint64_t) (x45 >> 0x33);
+  { uint64_t x47 = ((uint64_t)x45 & 0x7ffffffffffff);
+  { uint128_t x48 = (x46 + x36);
+  { uint64_t x49 = (uint64_t) (x48 >> 0x34);
+  { uint64_t x50 = ((uint64_t)x48 & 0xfffffffffffff);
+  { uint128_t x51 = (x49 + x35);
+  { uint64_t x52 = (uint64_t) (x51 >> 0x34);
+  { uint64_t x53 = ((uint64_t)x51 & 0xfffffffffffff);
+  { uint128_t x54 = (x52 + x34);
+  { uint64_t x55 = (uint64_t) (x54 >> 0x33);
+  { uint64_t x56 = ((uint64_t)x54 & 0x7ffffffffffff);
+  { uint128_t x57 = (x55 + x33);
+  { uint64_t x58 = (uint64_t) (x57 >> 0x34);
+  { uint64_t x59 = ((uint64_t)x57 & 0xfffffffffffff);
+  { uint128_t x60 = (x58 + x32);
+  { uint64_t x61 = (uint64_t) (x60 >> 0x33);
+  { uint64_t x62 = ((uint64_t)x60 & 0x7ffffffffffff);
+  { uint64_t x63 = (x41 + (0x15 * x61));
+  { uint64_t x64 = (x63 >> 0x34);
+  { uint64_t x65 = (x63 & 0xfffffffffffff);
+  { uint64_t x66 = (x64 + x44);
+  { uint64_t x67 = (x66 >> 0x34);
+  { uint64_t x68 = (x66 & 0xfffffffffffff);
+  out[0] = x65;
+  out[1] = x68;
+  out[2] = (x67 + x47);
+  out[3] = x50;
+  out[4] = x53;
+  out[5] = x56;
+  out[6] = x59;
+  out[7] = x62;
+  }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
+}
diff --git a/src/Specific/solinas64_2e413m21_8limbs/femulDisplay.log b/src/Specific/solinas64_2e413m21_8limbs/femulDisplay.log
new file mode 100644
index 000000000..532df92b0
--- /dev/null
+++ b/src/Specific/solinas64_2e413m21_8limbs/femulDisplay.log
@@ -0,0 +1,44 @@
+λ x x0 : word64 * word64 * word64 * word64 * word64 * word64 * word64 * word64,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x16, x17, x15, x13, x11, x9, x7, x5, (x30, x31, x29, x27, x25, x23, x21, x19))%core,
+ uint128_t x32 = (((uint128_t)x5 * x30) + (((uint128_t)x7 * x31) + ((0x2 * ((uint128_t)x9 * x29)) + (((uint128_t)x11 * x27) + (((uint128_t)x13 * x25) + ((0x2 * ((uint128_t)x15 * x23)) + (((uint128_t)x17 * x21) + ((uint128_t)x16 * x19))))))));
+ uint128_t x33 = ((((uint128_t)x5 * x31) + ((0x2 * ((uint128_t)x7 * x29)) + ((0x2 * ((uint128_t)x9 * x27)) + (((uint128_t)x11 * x25) + ((0x2 * ((uint128_t)x13 * x23)) + ((0x2 * ((uint128_t)x15 * x21)) + ((uint128_t)x17 * x19))))))) + (0x15 * (0x2 * ((uint128_t)x16 * x30))));
+ uint128_t x34 = ((((uint128_t)x5 * x29) + (((uint128_t)x7 * x27) + (((uint128_t)x9 * x25) + (((uint128_t)x11 * x23) + (((uint128_t)x13 * x21) + ((uint128_t)x15 * x19)))))) + (0x15 * (((uint128_t)x17 * x30) + ((uint128_t)x16 * x31))));
+ uint128_t x35 = ((((uint128_t)x5 * x27) + (((uint128_t)x7 * x25) + ((0x2 * ((uint128_t)x9 * x23)) + (((uint128_t)x11 * x21) + ((uint128_t)x13 * x19))))) + (0x15 * ((0x2 * ((uint128_t)x15 * x30)) + (((uint128_t)x17 * x31) + (0x2 * ((uint128_t)x16 * x29))))));
+ uint128_t x36 = ((((uint128_t)x5 * x25) + ((0x2 * ((uint128_t)x7 * x23)) + ((0x2 * ((uint128_t)x9 * x21)) + ((uint128_t)x11 * x19)))) + (0x15 * ((0x2 * ((uint128_t)x13 * x30)) + ((0x2 * ((uint128_t)x15 * x31)) + ((0x2 * ((uint128_t)x17 * x29)) + (0x2 * ((uint128_t)x16 * x27)))))));
+ uint128_t x37 = ((((uint128_t)x5 * x23) + (((uint128_t)x7 * x21) + ((uint128_t)x9 * x19))) + (0x15 * (((uint128_t)x11 * x30) + (((uint128_t)x13 * x31) + ((0x2 * ((uint128_t)x15 * x29)) + (((uint128_t)x17 * x27) + ((uint128_t)x16 * x25)))))));
+ uint128_t x38 = ((((uint128_t)x5 * x21) + ((uint128_t)x7 * x19)) + (0x15 * ((0x2 * ((uint128_t)x9 * x30)) + (((uint128_t)x11 * x31) + ((0x2 * ((uint128_t)x13 * x29)) + ((0x2 * ((uint128_t)x15 * x27)) + (((uint128_t)x17 * x25) + (0x2 * ((uint128_t)x16 * x23)))))))));
+ uint128_t x39 = (((uint128_t)x5 * x19) + (0x15 * ((0x2 * ((uint128_t)x7 * x30)) + ((0x2 * ((uint128_t)x9 * x31)) + ((0x2 * ((uint128_t)x11 * x29)) + ((0x2 * ((uint128_t)x13 * x27)) + ((0x2 * ((uint128_t)x15 * x25)) + ((0x2 * ((uint128_t)x17 * x23)) + (0x2 * ((uint128_t)x16 * x21))))))))));
+ uint64_t x40 = (uint64_t) (x39 >> 0x34);
+ uint64_t x41 = ((uint64_t)x39 & 0xfffffffffffff);
+ uint128_t x42 = (x40 + x38);
+ uint64_t x43 = (uint64_t) (x42 >> 0x34);
+ uint64_t x44 = ((uint64_t)x42 & 0xfffffffffffff);
+ uint128_t x45 = (x43 + x37);
+ uint64_t x46 = (uint64_t) (x45 >> 0x33);
+ uint64_t x47 = ((uint64_t)x45 & 0x7ffffffffffff);
+ uint128_t x48 = (x46 + x36);
+ uint64_t x49 = (uint64_t) (x48 >> 0x34);
+ uint64_t x50 = ((uint64_t)x48 & 0xfffffffffffff);
+ uint128_t x51 = (x49 + x35);
+ uint64_t x52 = (uint64_t) (x51 >> 0x34);
+ uint64_t x53 = ((uint64_t)x51 & 0xfffffffffffff);
+ uint128_t x54 = (x52 + x34);
+ uint64_t x55 = (uint64_t) (x54 >> 0x33);
+ uint64_t x56 = ((uint64_t)x54 & 0x7ffffffffffff);
+ uint128_t x57 = (x55 + x33);
+ uint64_t x58 = (uint64_t) (x57 >> 0x34);
+ uint64_t x59 = ((uint64_t)x57 & 0xfffffffffffff);
+ uint128_t x60 = (x58 + x32);
+ uint64_t x61 = (uint64_t) (x60 >> 0x33);
+ uint64_t x62 = ((uint64_t)x60 & 0x7ffffffffffff);
+ uint64_t x63 = (x41 + (0x15 * x61));
+ uint64_t x64 = (x63 >> 0x34);
+ uint64_t x65 = (x63 & 0xfffffffffffff);
+ uint64_t x66 = (x64 + x44);
+ uint64_t x67 = (x66 >> 0x34);
+ uint64_t x68 = (x66 & 0xfffffffffffff);
+ return (Return x62, Return x59, Return x56, Return x53, Return x50, (x67 + x47), Return x68, Return x65))
+(x, x0)%core
+     : word64 * word64 * word64 * word64 * word64 * word64 * word64 * word64 → word64 * word64 * word64 * word64 * word64 * word64 * word64 * word64 → ReturnType (uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t)
diff --git a/src/Specific/solinas64_2e413m21_8limbs/fesquare.c b/src/Specific/solinas64_2e413m21_8limbs/fesquare.c
new file mode 100644
index 000000000..9a5d422de
--- /dev/null
+++ b/src/Specific/solinas64_2e413m21_8limbs/fesquare.c
@@ -0,0 +1,56 @@
+static void fesquare(uint64_t out[8], const uint64_t in1[8]) {
+  { const uint64_t x13 = in1[7];
+  { const uint64_t x14 = in1[6];
+  { const uint64_t x12 = in1[5];
+  { const uint64_t x10 = in1[4];
+  { const uint64_t x8 = in1[3];
+  { const uint64_t x6 = in1[2];
+  { const uint64_t x4 = in1[1];
+  { const uint64_t x2 = in1[0];
+  { uint128_t x15 = (((uint128_t)x2 * x13) + (((uint128_t)x4 * x14) + ((0x2 * ((uint128_t)x6 * x12)) + (((uint128_t)x8 * x10) + (((uint128_t)x10 * x8) + ((0x2 * ((uint128_t)x12 * x6)) + (((uint128_t)x14 * x4) + ((uint128_t)x13 * x2))))))));
+  { uint128_t x16 = ((((uint128_t)x2 * x14) + ((0x2 * ((uint128_t)x4 * x12)) + ((0x2 * ((uint128_t)x6 * x10)) + (((uint128_t)x8 * x8) + ((0x2 * ((uint128_t)x10 * x6)) + ((0x2 * ((uint128_t)x12 * x4)) + ((uint128_t)x14 * x2))))))) + (0x15 * (0x2 * ((uint128_t)x13 * x13))));
+  { uint128_t x17 = ((((uint128_t)x2 * x12) + (((uint128_t)x4 * x10) + (((uint128_t)x6 * x8) + (((uint128_t)x8 * x6) + (((uint128_t)x10 * x4) + ((uint128_t)x12 * x2)))))) + (0x15 * (((uint128_t)x14 * x13) + ((uint128_t)x13 * x14))));
+  { uint128_t x18 = ((((uint128_t)x2 * x10) + (((uint128_t)x4 * x8) + ((0x2 * ((uint128_t)x6 * x6)) + (((uint128_t)x8 * x4) + ((uint128_t)x10 * x2))))) + (0x15 * ((0x2 * ((uint128_t)x12 * x13)) + (((uint128_t)x14 * x14) + (0x2 * ((uint128_t)x13 * x12))))));
+  { uint128_t x19 = ((((uint128_t)x2 * x8) + ((0x2 * ((uint128_t)x4 * x6)) + ((0x2 * ((uint128_t)x6 * x4)) + ((uint128_t)x8 * x2)))) + (0x15 * ((0x2 * ((uint128_t)x10 * x13)) + ((0x2 * ((uint128_t)x12 * x14)) + ((0x2 * ((uint128_t)x14 * x12)) + (0x2 * ((uint128_t)x13 * x10)))))));
+  { uint128_t x20 = ((((uint128_t)x2 * x6) + (((uint128_t)x4 * x4) + ((uint128_t)x6 * x2))) + (0x15 * (((uint128_t)x8 * x13) + (((uint128_t)x10 * x14) + ((0x2 * ((uint128_t)x12 * x12)) + (((uint128_t)x14 * x10) + ((uint128_t)x13 * x8)))))));
+  { uint128_t x21 = ((((uint128_t)x2 * x4) + ((uint128_t)x4 * x2)) + (0x15 * ((0x2 * ((uint128_t)x6 * x13)) + (((uint128_t)x8 * x14) + ((0x2 * ((uint128_t)x10 * x12)) + ((0x2 * ((uint128_t)x12 * x10)) + (((uint128_t)x14 * x8) + (0x2 * ((uint128_t)x13 * x6)))))))));
+  { uint128_t x22 = (((uint128_t)x2 * x2) + (0x15 * ((0x2 * ((uint128_t)x4 * x13)) + ((0x2 * ((uint128_t)x6 * x14)) + ((0x2 * ((uint128_t)x8 * x12)) + ((0x2 * ((uint128_t)x10 * x10)) + ((0x2 * ((uint128_t)x12 * x8)) + ((0x2 * ((uint128_t)x14 * x6)) + (0x2 * ((uint128_t)x13 * x4))))))))));
+  { uint64_t x23 = (uint64_t) (x22 >> 0x34);
+  { uint64_t x24 = ((uint64_t)x22 & 0xfffffffffffff);
+  { uint128_t x25 = (x23 + x21);
+  { uint64_t x26 = (uint64_t) (x25 >> 0x34);
+  { uint64_t x27 = ((uint64_t)x25 & 0xfffffffffffff);
+  { uint128_t x28 = (x26 + x20);
+  { uint64_t x29 = (uint64_t) (x28 >> 0x33);
+  { uint64_t x30 = ((uint64_t)x28 & 0x7ffffffffffff);
+  { uint128_t x31 = (x29 + x19);
+  { uint64_t x32 = (uint64_t) (x31 >> 0x34);
+  { uint64_t x33 = ((uint64_t)x31 & 0xfffffffffffff);
+  { uint128_t x34 = (x32 + x18);
+  { uint64_t x35 = (uint64_t) (x34 >> 0x34);
+  { uint64_t x36 = ((uint64_t)x34 & 0xfffffffffffff);
+  { uint128_t x37 = (x35 + x17);
+  { uint64_t x38 = (uint64_t) (x37 >> 0x33);
+  { uint64_t x39 = ((uint64_t)x37 & 0x7ffffffffffff);
+  { uint128_t x40 = (x38 + x16);
+  { uint64_t x41 = (uint64_t) (x40 >> 0x34);
+  { uint64_t x42 = ((uint64_t)x40 & 0xfffffffffffff);
+  { uint128_t x43 = (x41 + x15);
+  { uint64_t x44 = (uint64_t) (x43 >> 0x33);
+  { uint64_t x45 = ((uint64_t)x43 & 0x7ffffffffffff);
+  { uint64_t x46 = (x24 + (0x15 * x44));
+  { uint64_t x47 = (x46 >> 0x34);
+  { uint64_t x48 = (x46 & 0xfffffffffffff);
+  { uint64_t x49 = (x47 + x27);
+  { uint64_t x50 = (x49 >> 0x34);
+  { uint64_t x51 = (x49 & 0xfffffffffffff);
+  out[0] = x48;
+  out[1] = x51;
+  out[2] = (x50 + x30);
+  out[3] = x33;
+  out[4] = x36;
+  out[5] = x39;
+  out[6] = x42;
+  out[7] = x45;
+  }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
+}
diff --git a/src/Specific/solinas64_2e413m21_8limbs/fesquareDisplay.log b/src/Specific/solinas64_2e413m21_8limbs/fesquareDisplay.log
new file mode 100644
index 000000000..e4769201f
--- /dev/null
+++ b/src/Specific/solinas64_2e413m21_8limbs/fesquareDisplay.log
@@ -0,0 +1,44 @@
+λ x : word64 * word64 * word64 * word64 * word64 * word64 * word64 * word64,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x13, x14, x12, x10, x8, x6, x4, x2)%core,
+ uint128_t x15 = (((uint128_t)x2 * x13) + (((uint128_t)x4 * x14) + ((0x2 * ((uint128_t)x6 * x12)) + (((uint128_t)x8 * x10) + (((uint128_t)x10 * x8) + ((0x2 * ((uint128_t)x12 * x6)) + (((uint128_t)x14 * x4) + ((uint128_t)x13 * x2))))))));
+ uint128_t x16 = ((((uint128_t)x2 * x14) + ((0x2 * ((uint128_t)x4 * x12)) + ((0x2 * ((uint128_t)x6 * x10)) + (((uint128_t)x8 * x8) + ((0x2 * ((uint128_t)x10 * x6)) + ((0x2 * ((uint128_t)x12 * x4)) + ((uint128_t)x14 * x2))))))) + (0x15 * (0x2 * ((uint128_t)x13 * x13))));
+ uint128_t x17 = ((((uint128_t)x2 * x12) + (((uint128_t)x4 * x10) + (((uint128_t)x6 * x8) + (((uint128_t)x8 * x6) + (((uint128_t)x10 * x4) + ((uint128_t)x12 * x2)))))) + (0x15 * (((uint128_t)x14 * x13) + ((uint128_t)x13 * x14))));
+ uint128_t x18 = ((((uint128_t)x2 * x10) + (((uint128_t)x4 * x8) + ((0x2 * ((uint128_t)x6 * x6)) + (((uint128_t)x8 * x4) + ((uint128_t)x10 * x2))))) + (0x15 * ((0x2 * ((uint128_t)x12 * x13)) + (((uint128_t)x14 * x14) + (0x2 * ((uint128_t)x13 * x12))))));
+ uint128_t x19 = ((((uint128_t)x2 * x8) + ((0x2 * ((uint128_t)x4 * x6)) + ((0x2 * ((uint128_t)x6 * x4)) + ((uint128_t)x8 * x2)))) + (0x15 * ((0x2 * ((uint128_t)x10 * x13)) + ((0x2 * ((uint128_t)x12 * x14)) + ((0x2 * ((uint128_t)x14 * x12)) + (0x2 * ((uint128_t)x13 * x10)))))));
+ uint128_t x20 = ((((uint128_t)x2 * x6) + (((uint128_t)x4 * x4) + ((uint128_t)x6 * x2))) + (0x15 * (((uint128_t)x8 * x13) + (((uint128_t)x10 * x14) + ((0x2 * ((uint128_t)x12 * x12)) + (((uint128_t)x14 * x10) + ((uint128_t)x13 * x8)))))));
+ uint128_t x21 = ((((uint128_t)x2 * x4) + ((uint128_t)x4 * x2)) + (0x15 * ((0x2 * ((uint128_t)x6 * x13)) + (((uint128_t)x8 * x14) + ((0x2 * ((uint128_t)x10 * x12)) + ((0x2 * ((uint128_t)x12 * x10)) + (((uint128_t)x14 * x8) + (0x2 * ((uint128_t)x13 * x6)))))))));
+ uint128_t x22 = (((uint128_t)x2 * x2) + (0x15 * ((0x2 * ((uint128_t)x4 * x13)) + ((0x2 * ((uint128_t)x6 * x14)) + ((0x2 * ((uint128_t)x8 * x12)) + ((0x2 * ((uint128_t)x10 * x10)) + ((0x2 * ((uint128_t)x12 * x8)) + ((0x2 * ((uint128_t)x14 * x6)) + (0x2 * ((uint128_t)x13 * x4))))))))));
+ uint64_t x23 = (uint64_t) (x22 >> 0x34);
+ uint64_t x24 = ((uint64_t)x22 & 0xfffffffffffff);
+ uint128_t x25 = (x23 + x21);
+ uint64_t x26 = (uint64_t) (x25 >> 0x34);
+ uint64_t x27 = ((uint64_t)x25 & 0xfffffffffffff);
+ uint128_t x28 = (x26 + x20);
+ uint64_t x29 = (uint64_t) (x28 >> 0x33);
+ uint64_t x30 = ((uint64_t)x28 & 0x7ffffffffffff);
+ uint128_t x31 = (x29 + x19);
+ uint64_t x32 = (uint64_t) (x31 >> 0x34);
+ uint64_t x33 = ((uint64_t)x31 & 0xfffffffffffff);
+ uint128_t x34 = (x32 + x18);
+ uint64_t x35 = (uint64_t) (x34 >> 0x34);
+ uint64_t x36 = ((uint64_t)x34 & 0xfffffffffffff);
+ uint128_t x37 = (x35 + x17);
+ uint64_t x38 = (uint64_t) (x37 >> 0x33);
+ uint64_t x39 = ((uint64_t)x37 & 0x7ffffffffffff);
+ uint128_t x40 = (x38 + x16);
+ uint64_t x41 = (uint64_t) (x40 >> 0x34);
+ uint64_t x42 = ((uint64_t)x40 & 0xfffffffffffff);
+ uint128_t x43 = (x41 + x15);
+ uint64_t x44 = (uint64_t) (x43 >> 0x33);
+ uint64_t x45 = ((uint64_t)x43 & 0x7ffffffffffff);
+ uint64_t x46 = (x24 + (0x15 * x44));
+ uint64_t x47 = (x46 >> 0x34);
+ uint64_t x48 = (x46 & 0xfffffffffffff);
+ uint64_t x49 = (x47 + x27);
+ uint64_t x50 = (x49 >> 0x34);
+ uint64_t x51 = (x49 & 0xfffffffffffff);
+ return (Return x45, Return x42, Return x39, Return x36, Return x33, (x50 + x30), Return x51, Return x48))
+x
+     : word64 * word64 * word64 * word64 * word64 * word64 * word64 * word64 → ReturnType (uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t)
diff --git a/src/Specific/solinas64_2e413m21_8limbs/fesub.c b/src/Specific/solinas64_2e413m21_8limbs/fesub.c
new file mode 100644
index 000000000..14358dc9a
--- /dev/null
+++ b/src/Specific/solinas64_2e413m21_8limbs/fesub.c
@@ -0,0 +1,27 @@
+static void fesub(uint64_t out[8], const uint64_t in1[8], const uint64_t in2[8]) {
+  { const uint64_t x16 = in1[7];
+  { const uint64_t x17 = in1[6];
+  { const uint64_t x15 = in1[5];
+  { const uint64_t x13 = in1[4];
+  { const uint64_t x11 = in1[3];
+  { const uint64_t x9 = in1[2];
+  { const uint64_t x7 = in1[1];
+  { const uint64_t x5 = in1[0];
+  { const uint64_t x30 = in2[7];
+  { const uint64_t x31 = in2[6];
+  { const uint64_t x29 = in2[5];
+  { const uint64_t x27 = in2[4];
+  { const uint64_t x25 = in2[3];
+  { const uint64_t x23 = in2[2];
+  { const uint64_t x21 = in2[1];
+  { const uint64_t x19 = in2[0];
+  out[0] = ((Const 9007199254740950 + x5) - x19);
+  out[1] = ((0x1ffffffffffffe + x7) - x21);
+  out[2] = ((0xffffffffffffe + x9) - x23);
+  out[3] = ((0x1ffffffffffffe + x11) - x25);
+  out[4] = ((0x1ffffffffffffe + x13) - x27);
+  out[5] = ((0xffffffffffffe + x15) - x29);
+  out[6] = ((0x1ffffffffffffe + x17) - x31);
+  out[7] = ((0xffffffffffffe + x16) - x30);
+  }}}}}}}}}}}}}}}}
+}
diff --git a/src/Specific/solinas64_2e413m21_8limbs/fesubDisplay.log b/src/Specific/solinas64_2e413m21_8limbs/fesubDisplay.log
new file mode 100644
index 000000000..c147e96a6
--- /dev/null
+++ b/src/Specific/solinas64_2e413m21_8limbs/fesubDisplay.log
@@ -0,0 +1,7 @@
+λ x x0 : word64 * word64 * word64 * word64 * word64 * word64 * word64 * word64,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x16, x17, x15, x13, x11, x9, x7, x5, (x30, x31, x29, x27, x25, x23, x21, x19))%core,
+ (((0xffffffffffffe + x16) - x30), ((0x1ffffffffffffe + x17) - x31), ((0xffffffffffffe + x15) - x29), ((0x1ffffffffffffe + x13) - x27), ((0x1ffffffffffffe + x11) - x25), ((0xffffffffffffe + x9) - x23), ((0x1ffffffffffffe + x7) - x21), ((Const 9007199254740950 + x5) - x19)))
+(x, x0)%core
+     : word64 * word64 * word64 * word64 * word64 * word64 * word64 * word64 → word64 * word64 * word64 * word64 * word64 * word64 * word64 * word64 → ReturnType (uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t)
diff --git a/src/Specific/solinas64_2e413m21_8limbs/freeze.c b/src/Specific/solinas64_2e413m21_8limbs/freeze.c
new file mode 100644
index 000000000..83c35d2e0
--- /dev/null
+++ b/src/Specific/solinas64_2e413m21_8limbs/freeze.c
@@ -0,0 +1,44 @@
+static void freeze(uint64_t out[8], const uint64_t in1[8]) {
+  { const uint64_t x13 = in1[7];
+  { const uint64_t x14 = in1[6];
+  { const uint64_t x12 = in1[5];
+  { const uint64_t x10 = in1[4];
+  { const uint64_t x8 = in1[3];
+  { const uint64_t x6 = in1[2];
+  { const uint64_t x4 = in1[1];
+  { const uint64_t x2 = in1[0];
+  { uint64_t x16, uint8_t x17 = Op (Syntax.SubWithGetBorrow 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (0x0, Return x2, Const 4503599627370475);
+  { uint64_t x19, uint8_t x20 = Op (Syntax.SubWithGetBorrow 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x17, Return x4, 0xfffffffffffff);
+  { uint64_t x22; uint8_t x23 = _subborrow_u51(x20, x6, 0x7ffffffffffff, &x22);
+  { uint64_t x25, uint8_t x26 = Op (Syntax.SubWithGetBorrow 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x23, Return x8, 0xfffffffffffff);
+  { uint64_t x28, uint8_t x29 = Op (Syntax.SubWithGetBorrow 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x26, Return x10, 0xfffffffffffff);
+  { uint64_t x31; uint8_t x32 = _subborrow_u51(x29, x12, 0x7ffffffffffff, &x31);
+  { uint64_t x34, uint8_t x35 = Op (Syntax.SubWithGetBorrow 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x32, Return x14, 0xfffffffffffff);
+  { uint64_t x37; uint8_t x38 = _subborrow_u51(x35, x13, 0x7ffffffffffff, &x37);
+  { uint64_t x39 = cmovznz64(x38, 0x0, 0xffffffffffffffffL);
+  { uint64_t x40 = (x39 & Const 4503599627370475);
+  { uint64_t x42, uint8_t x43 = Op (Syntax.AddWithGetCarry 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (0x0, Return x16, Return x40);
+  { uint64_t x44 = (x39 & 0xfffffffffffff);
+  { uint64_t x46, uint8_t x47 = Op (Syntax.AddWithGetCarry 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x43, Return x19, Return x44);
+  { uint64_t x48 = (x39 & 0x7ffffffffffff);
+  { uint64_t x50; uint8_t x51 = _addcarryx_u51(x47, x22, x48, &x50);
+  { uint64_t x52 = (x39 & 0xfffffffffffff);
+  { uint64_t x54, uint8_t x55 = Op (Syntax.AddWithGetCarry 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x51, Return x25, Return x52);
+  { uint64_t x56 = (x39 & 0xfffffffffffff);
+  { uint64_t x58, uint8_t x59 = Op (Syntax.AddWithGetCarry 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x55, Return x28, Return x56);
+  { uint64_t x60 = (x39 & 0x7ffffffffffff);
+  { uint64_t x62; uint8_t x63 = _addcarryx_u51(x59, x31, x60, &x62);
+  { uint64_t x64 = (x39 & 0xfffffffffffff);
+  { uint64_t x66, uint8_t x67 = Op (Syntax.AddWithGetCarry 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x63, Return x34, Return x64);
+  { uint64_t x68 = (x39 & 0x7ffffffffffff);
+  { uint64_t x70; uint8_t _ = _addcarryx_u51(x67, x37, x68, &x70);
+  out[0] = x42;
+  out[1] = x46;
+  out[2] = x50;
+  out[3] = x54;
+  out[4] = x58;
+  out[5] = x62;
+  out[6] = x66;
+  out[7] = x70;
+  }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
+}
diff --git a/src/Specific/solinas64_2e413m21_8limbs/freezeDisplay.log b/src/Specific/solinas64_2e413m21_8limbs/freezeDisplay.log
new file mode 100644
index 000000000..79211b5c1
--- /dev/null
+++ b/src/Specific/solinas64_2e413m21_8limbs/freezeDisplay.log
@@ -0,0 +1,32 @@
+λ x : word64 * word64 * word64 * word64 * word64 * word64 * word64 * word64,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x13, x14, x12, x10, x8, x6, x4, x2)%core,
+ uint64_t x16, uint8_t x17 = Op (Syntax.SubWithGetBorrow 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (0x0, Return x2, Const 4503599627370475);
+ uint64_t x19, uint8_t x20 = Op (Syntax.SubWithGetBorrow 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x17, Return x4, 0xfffffffffffff);
+ uint64_t x22, uint8_t x23 = subborrow_u51(x20, x6, 0x7ffffffffffff);
+ uint64_t x25, uint8_t x26 = Op (Syntax.SubWithGetBorrow 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x23, Return x8, 0xfffffffffffff);
+ uint64_t x28, uint8_t x29 = Op (Syntax.SubWithGetBorrow 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x26, Return x10, 0xfffffffffffff);
+ uint64_t x31, uint8_t x32 = subborrow_u51(x29, x12, 0x7ffffffffffff);
+ uint64_t x34, uint8_t x35 = Op (Syntax.SubWithGetBorrow 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x32, Return x14, 0xfffffffffffff);
+ uint64_t x37, uint8_t x38 = subborrow_u51(x35, x13, 0x7ffffffffffff);
+ uint64_t x39 = cmovznz64(x38, 0x0, 0xffffffffffffffffL);
+ uint64_t x40 = (x39 & Const 4503599627370475);
+ uint64_t x42, uint8_t x43 = Op (Syntax.AddWithGetCarry 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (0x0, Return x16, Return x40);
+ uint64_t x44 = (x39 & 0xfffffffffffff);
+ uint64_t x46, uint8_t x47 = Op (Syntax.AddWithGetCarry 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x43, Return x19, Return x44);
+ uint64_t x48 = (x39 & 0x7ffffffffffff);
+ uint64_t x50, uint8_t x51 = addcarryx_u51(x47, x22, x48);
+ uint64_t x52 = (x39 & 0xfffffffffffff);
+ uint64_t x54, uint8_t x55 = Op (Syntax.AddWithGetCarry 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x51, Return x25, Return x52);
+ uint64_t x56 = (x39 & 0xfffffffffffff);
+ uint64_t x58, uint8_t x59 = Op (Syntax.AddWithGetCarry 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x55, Return x28, Return x56);
+ uint64_t x60 = (x39 & 0x7ffffffffffff);
+ uint64_t x62, uint8_t x63 = addcarryx_u51(x59, x31, x60);
+ uint64_t x64 = (x39 & 0xfffffffffffff);
+ uint64_t x66, uint8_t x67 = Op (Syntax.AddWithGetCarry 52 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x63, Return x34, Return x64);
+ uint64_t x68 = (x39 & 0x7ffffffffffff);
+ uint64_t x70, uint8_t _ = addcarryx_u51(x67, x37, x68);
+ (Return x70, Return x66, Return x62, Return x58, Return x54, Return x50, Return x46, Return x42))
+x
+     : word64 * word64 * word64 * word64 * word64 * word64 * word64 * word64 → ReturnType (uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t)