testlist <- list(X = c(2.5185e+87, -4.1042e-129, -4.0489e-98, 2.4854e+265,  4.2756e+99, -6.8882e+80, -3.3283e+161, -6.2863e-223, 1.65e-237,  3.1687e-284, -1.5902e+46, 1.3371e+54, 2.0515e-283, 1.0321e+170,  -4.8571e+235, -1.6878e+92, -5.5541e-235, 1.0286e+64, -2.3506e+223,  1.2234e+82, -2.2014e+142, 1.6283e+66, -3.4284e-227, 1.8255e-271,  -7.0912e-122, -8.7731e-221, -213610000, -4.6628e-17, -2.1843e-154,  -7.8843e-242, -7.012e+276, -9.4135e-138, 2.6469e+270, 6.7347e-37,  1.7728e-217, -1.4845e+260, 2.6147e-176, -1.2119e+274, -1.909e+149,  -1.4061e-300, -6.7575e-38, 1.0187e-240, 2.9601e-88, 3.6165e-91,  -9.7877e+187, 1.2961e+127, -3.7062e-105, 4.8149e+174, -7.4946e-108,  5.8507e-233), Y = c(2.9002e-127, -3.1854e+54, -7.1589e+208, 3.2968e+138,  1.5288e+137, 4.0745e+107, 3.6118e-146, 1.5201e-65, -2.077e+281,  -8.0801e+161))
result <- do.call(Phase12Compare:::MATMULT,testlist)
str(result)