testlist <- list(indexes = c(-1453063886L, 668834061L, -761301371L, -1852173736L,  -636431700L, 1261390305L, 638784143L, -1616685240L, 123304750L,  907295753L, -1280143803L, 1285594406L, -1318071300L, -1642275388L,  804279503L, -1817503846L, 76728635L, -1509604262L, -1210933501L,  1916545315L, -1409540023L, 419237448L, -312338560L, 221125394L,  -1042002585L, -376323680L, 1667277781L, -1664288441L, -921071135L,  379529476L, 21005326L, 1872699440L, -2089969812L, -27718559L,  -1179699370L, 2083560773L, 1227761247L, -850369586L, -1863787009L,  -2013450485L, 1808234345L, 545573849L, 855781295L, 852358267L,  -82060599L, 1799264251L, 645200813L, 1915402461L, -248494575L,  -1273893913L, 320509765L, -410271517L, -1499747311L, -649916929L,  -1207391190L, 845481764L, -1790102199L, 1595945074L, 1002944546L,  1400374777L, 330370028L), X = structure(c(2.01768927817267e+47,  5.91095692082169e+64, 4.713762584588e-48, 1.7506159598139e-260,  4.13272931804741e+261, 7.50347923086546e-71, 1.28334006932209e+144,  2.90402077461892e-286, 3.56215199780015e-230, 1.43677827629537e-133,  7.46114516421967e-258, 5.0141334820982e+184, 1.58738722355198e-68,  29072.6257709098, 1.41003229091807e-86, 1.93643921836204e+180,  1.99326012973524e-62, 1.39815628510302e-16, 3.24863590772713e+70,  6.40667913683102e-255, 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, 1.34759270653531e+170, 1.67897074343642e-132,  2.30932004979445e+295, 1.54458096127227e+60, 3.41101454752662e+171,  3.58419569978947e+261, 1.535318059725e+63), .Dim = c(9L, 4L)))
result <- do.call(xyz:::colsum_index,testlist)
str(result)