testlist <- list(comp = c(6.91810939758135e+257, 1.2214421928657e-253, -16355044095769766,  -8.09975651933454e-248, 1.10456346732158e+196, 9.39096533919315e-23,  3.09645145731897e-192, -6.37699129679961e+87, -1.69918635406419e+106,  6.27689329793447e+96, 7.82572535379267e+298, 2.60012189472478e-05,  -8.68187320616682e-303, -4.82047523056174e-244, 1.06646350665963e-250,  22730840959388092, -1.07340019296789e-32, 2.67134765203354e-21,  -1.86248158626508e+277, 4.84952161378045e-219, 1.03047255105046e+117,  -1.91252510922821e-116, 1.09739666048063e+235, -2.3665046656698e-42,  1.45598951649043e-245, -1.22701889748717e-42, 9.37954527886586e+251,  5.99177157559938e-241, 1.12438460923082e-36, NA, 2.16062717059505e-65,  362423719.539768, -5.3536466887742e+177, 4.18203594470491e-153,  -1.22701889748717e-42, -2.80737084919463e+242, -1.22701889748717e-42,  -1.22670796945566e-132, 1.89860081781569e+35, 2.49243099117267e-35,  -3.44342956969953e+202, -1.32856762162956e-281, 1.16345527761046e-297,  -3.77640288529868e-136, 9.39423555203159e-85, 1.97896196295963e+37,  1.81632637824695e-231, 1.77556815878654e+43, 4.70684549194766e-213,  0))
result <- do.call(rankdist:::cycle_decomp,testlist)
str(result)