testlist <- list(A = structure(c(8.3235384069656e+30, 2.89285311888316e-224,  4.31086552891513e-221, 2.0371181376616e+119, 6.60351572519913e-107,  1.3187070460154e-167, 1.83983008262332e+152, 1.8175549178719e+43,  5.47411641991035e-154, 2.95293979936408e-56, 5.80325779349867e-12,  2.29819389662754e-111, 1.86963394088278e-253, 3.83462370797177e-15,  1.96688733237108e-268, 1.1076872092724e-95, 6.2090469044792e-220,  2.71607293512023e-308, 4.84676407220408e+53, 4.8515290759874e-37,  8.18260586355902e+204, 1.43604822881017e+283, 1.19071395807487e-133,  2.4334145628795e-216, 3252069299.82507, 2.86614633520327e-67,  1.12014630457536e-306, 7.36082811970178e-148, 34677735894513356,  2.80631638879358e+43, 5.07363661588867e+95, 3.91821230419603e-57 ), .Dim = c(8L, 4L)))
result <- do.call(expperm:::brute_cpp,testlist)
str(result)