testlist <- list(A = structure(c(1.84397810628254e+169, 2.72584360242658e+197,  7.82108268643149e+272, 2.48556416753372e-31, 4.75430326651066e+58,  358636.261094578, 2.61892509003869e-253, 3.37612779625928e+103,  1.14981129990444e+253, 1.16806273601244e-205, 2.25642385438364e+140,  7.03906443040557e-208, 3.81850086524115e-100, 5.80998907197842e+174,  2.41391716278469e-197, 3.09070537971479e+226, 2.83110162352313e+160,  2.64005149804611e+49, 3.17661918307693e-183, 5.54276647488434e-112,  7.97656801443893e-185, 1.37021906968433e-46, 3.04263871636759e-83,  1.17604092228428e-195, 2.68433171044668e+295, 2.68048643687304e-22,  2.14455269068122e-140, 0.354190740461393, 2.16319699011602e+231,  1.17567249207778e-05, 1.32921303854773e-37, 3.54780704387777e+75,  3.0985609911857e+74, 2.88734786475143e+286, 3.5593975286285e-97,  1.70186071864384e-197, 5.63091242277842e-126, 5.80041946598237e+115,  5.12680755996732e+128, 1.17495322433818e-69, 3.14454374990046e+28,  9.58816115297742e+176, 5.22942876675842e+126, 4.12658951699821e-60,  2.29100106018971e+102, 2.76079125666505e+34, 2.13805579810741e+245,  18318090258910238720, 1.16164198764086e-305, 3.83723594120476e-64,  2.51220631751311e-125, 5.02784787463939e+189, 4.13101989887412e-105,  8.79479046361691e+85, 4.74942800802862e-79, 3.22471343283141e+48,  4.36666566654793e-79, 3.09130539756902e+252, 3.88128866689039e+120,  4.05161719980166e-164, 1.05498921993899e+46, 1.44981679260146e+138,  6.60499957565021e+158, 4.24157936766224e+90, 4.2032950304691e+270,  3.37012380523122e-237, 7.47756860040357e-76, 8.87788299255004e+295,  3.84424726828219e+234, 8.26826898154894e-123), .Dim = c(10L,  7L)))
result <- do.call(expperm:::BG_cpp,testlist)
str(result)