Add display of square

1 files changed, 78 insertions, 0 deletions

diff --git a/src/Specific/IntegrationTestSquareDisplay.log b/src/Specific/IntegrationTestSquareDisplay.log
new file mode 100644
index 000000000..581ac0d3e
--- /dev/null
+++ b/src/Specific/IntegrationTestSquareDisplay.log
@@ -0,0 +1,78 @@
+λ x : word64 * word64 * word64 * word64 * word64,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x7, x8, x6, x4, x2)%core,
+ uint128_t x9 = (uint128_t) x2 * (uint128_t) x7;
+ uint128_t x10 = (uint128_t) x4 * (uint128_t) x8;
+ uint128_t x11 = (uint128_t) x6 * (uint128_t) x6;
+ uint128_t x12 = (uint128_t) x8 * (uint128_t) x4;
+ uint128_t x13 = (uint128_t) x7 * (uint128_t) x2;
+ uint128_t x14 = x12 + x13;
+ uint128_t x15 = x11 + x14;
+ uint128_t x16 = x10 + x15;
+ uint128_t x17 = x9 + x16;
+ uint128_t x18 = (uint128_t) x2 * (uint128_t) x8;
+ uint128_t x19 = (uint128_t) x4 * (uint128_t) x6;
+ uint128_t x20 = (uint128_t) x6 * (uint128_t) x4;
+ uint128_t x21 = (uint128_t) x8 * (uint128_t) x2;
+ uint128_t x22 = x20 + x21;
+ uint128_t x23 = x19 + x22;
+ uint128_t x24 = x18 + x23;
+ uint128_t x25 = (uint128_t) x7 * (uint128_t) x7;
+ uint128_t x26 = (uint128_t) 0x13 * x25;
+ uint128_t x27 = x24 + x26;
+ uint128_t x28 = (uint128_t) x2 * (uint128_t) x6;
+ uint128_t x29 = (uint128_t) x4 * (uint128_t) x4;
+ uint128_t x30 = (uint128_t) x6 * (uint128_t) x2;
+ uint128_t x31 = x29 + x30;
+ uint128_t x32 = x28 + x31;
+ uint128_t x33 = (uint128_t) x8 * (uint128_t) x7;
+ uint128_t x34 = (uint128_t) x7 * (uint128_t) x8;
+ uint128_t x35 = x33 + x34;
+ uint128_t x36 = (uint128_t) 0x13 * x35;
+ uint128_t x37 = x32 + x36;
+ uint128_t x38 = (uint128_t) x2 * (uint128_t) x4;
+ uint128_t x39 = (uint128_t) x4 * (uint128_t) x2;
+ uint128_t x40 = x38 + x39;
+ uint128_t x41 = (uint128_t) x6 * (uint128_t) x7;
+ uint128_t x42 = (uint128_t) x8 * (uint128_t) x8;
+ uint128_t x43 = (uint128_t) x7 * (uint128_t) x6;
+ uint128_t x44 = x42 + x43;
+ uint128_t x45 = x41 + x44;
+ uint128_t x46 = (uint128_t) 0x13 * x45;
+ uint128_t x47 = x40 + x46;
+ uint128_t x48 = (uint128_t) x2 * (uint128_t) x2;
+ uint128_t x49 = (uint128_t) x4 * (uint128_t) x7;
+ uint128_t x50 = (uint128_t) x6 * (uint128_t) x8;
+ uint128_t x51 = (uint128_t) x8 * (uint128_t) x6;
+ uint128_t x52 = (uint128_t) x7 * (uint128_t) x4;
+ uint128_t x53 = x51 + x52;
+ uint128_t x54 = x50 + x53;
+ uint128_t x55 = x49 + x54;
+ uint128_t x56 = (uint128_t) 0x13 * x55;
+ uint128_t x57 = x48 + x56;
+ uint64_t x58 = (uint64_t) (x57 >> 0x33);
+ uint128_t x59 = (uint128_t) x58 + x47;
+ uint64_t x60 = (uint64_t) (x59 >> 0x33);
+ uint128_t x61 = (uint128_t) x60 + x37;
+ uint64_t x62 = (uint64_t) (x61 >> 0x33);
+ uint128_t x63 = (uint128_t) x62 + x27;
+ uint64_t x64 = (uint64_t) (x63 >> 0x33);
+ uint128_t x65 = (uint128_t) x64 + x17;
+ uint64_t x66 = (uint64_t) x57 & 0x7ffffffffffff;
+ uint64_t x67 = (uint64_t) (x65 >> 0x33);
+ uint64_t x68 = 0x13 * x67;
+ uint64_t x69 = x66 + x68;
+ uint64_t x70 = (uint64_t) (x69 >> 0x33);
+ uint64_t x71 = (uint64_t) x59 & 0x7ffffffffffff;
+ uint64_t x72 = x70 + x71;
+ uint64_t x73 = (uint64_t) x65 & 0x7ffffffffffff;
+ uint64_t x74 = (uint64_t) x63 & 0x7ffffffffffff;
+ uint64_t x75 = (uint64_t) (x72 >> 0x33);
+ uint64_t x76 = (uint64_t) x61 & 0x7ffffffffffff;
+ uint64_t x77 = x75 + x76;
+ uint64_t x78 = x72 & 0x7ffffffffffff;
+ uint64_t x79 = x69 & 0x7ffffffffffff;
+ (Return x73, Return x74, Return x77, Return x78, Return x79))
+x
+     : word64 * word64 * word64 * word64 * word64 → ReturnType (uint64_t * uint64_t * uint64_t * uint64_t * uint64_t)