testlist <- list(mat = structure(c(4.51598818063688e-206, 1.92056178044097e-182,  1.10965993656322e+192, 4.42315256788049e+80, 1.5466355094383e-118,  5.07881860810875e+283, 1.74132800058487e+63, 1.20446896806287e-16,  1.62053620455224e+203, NaN, 1.67897074343642e-132, 2.30932004979445e+295,  Inf, 3.41101454752662e+171, 3.58419569978947e+261, 1.535318059725e+63,  3.24146725812615e-88, 2.73319051225567e+200, 1.17371352159211e-116,  6.34121368508506e+223, 1.49842585413074e+54, 1.53702053644359e+156,  3.46125562282296e-48, -2.03911121055047e+240, 3.44323920432687e+163,  7.03858570335258e+213, 2.82752049606709e+125, 1.87775957765514e+242,  2.60852837174901e-188, 3.44463385017518e-245, 1.23471593432713e-200,  7.18043465072548e+169, 1.0177084166751e-199, 4.71906981279991e+229,  1.07099624192828e-300, 1.61911945465553e+290, Inf, 1.24256405639769e+270,  4.96338445329421e-152, 5.68879782667374e-64, 3.92887923532301e+208,  8.90917961575448e+241, 5.9001824378548e+57, -Inf, 4.37864842858706e-122,  6.23974586451128e-66, 1.65605363119805e+150, 1.25277161663224e+94,  3.84271358673598e-256), .Dim = c(7L, 7L)), prot = c(8.18711001407657e+299,  0.00468189194076409, 9.28697320897767e-257, -4.47313953005781e+269,  -1.08462202709686e-247, -1.06960341877259e+114, -3.47955013064173e-216,  -8.9518097672271e+215, 1.38348243341209e-136, 6.24605057871232e+181,  -4.11367928127064e+80, NaN, 2.79007508688443e+291, -2.43672528268817e+290,  1.13722118274863e+165, 1.24928798805976e+186, -9.06013680652417e-190,  1.2437247084887e-163, 1.07356550066254e-51, -6.72069897320444e-236,  3.93269171816182e-254, -3.45570679530885e+99, 8.95779391235146e+89,  -1.04429299113846e+114, 2.77225047393114e+43, -2.18557342377325e+139,  -2.63807973264429e-55, -1.77673745822268e-44))
result <- do.call(imp4p:::fast_sim,testlist)
str(result)