testlist <- list(A = structure(c(5.26432177444882e+272, 8.33043034572066e-221,  4.75421182982753e+247, 1.19118055554429e+174, 1.40716265738929e+47,  1.3521755127442e-134, 1.24974578680492e-68, 0.426899911340594,  678529219.940254, 6.48871211324258e-105, 2.50748950592375e-20,  1.88648392235692e-244, 2.31081511960921e+31, 4.60628073224632e+34,  1.16016899139721e+216, 29374807719436872, 1.58801008832041e+209,  3.32503383256881e-164, 1.14154818040136e+109, 1.10896815517035e+263,  9.01393798454758e-53, 2.79449733024363e+291, 2.33101642912157e-123,  6.59660882213307e+256, 7.18251365212556e+174, 7.03334663621696e+226,  23746983.201273, 2.34529363624118e-269, 4.54643319659898e+278,  1.39477038824022e+148, 2.50683978347285e-154, 1.27051969828034e-126,  9.90843943993631e-145, 2.10922216192438e+176, 1.06629263276128e-47,  1.5891923474945e-49, 1.89932866592735e-123, 4.81185376468304e+252,  5246091.66771667, 7.93554248801563e-218, 5.28489380277886e-89,  6.35244696689005e+131, 2.07979639171201e-128, 2.51510374612926e-99,  1.13333647543321e-169, 2.70389185930247e-267, 2.43957114569278e+260,  1.81275884745243e+106, 3.81392196574702e+204, 4.94173236233248e+293,  2.56837159540006e+196, 7.13376837149628e-303, 1.09225223090315e-156,  8.7498785160335e+292), .Dim = c(9L, 6L)))
result <- do.call(expperm:::ryser_cpp,testlist)
str(result)