testlist <- list(betas = c(-30883170442827423744, 2.01316690169769e-209,  -Inf, -Inf, -1.33820533643905e+63, -5.4155903762936e+156, -2.30752834824478e+261,  3.1542161977728e+84, -3.72183930756279e-129, 6.54168214810125e+73,  3.73656643007676e+138, -5.71213217707006e+187, -1.29574937268231e+212,  2.65976677403056e-25, NaN, -5.09042695070302e-110, -3.45193026278311e+44,  -2.11452703611125e-76, Inf, -1.15541923078645e+112, 1.12936295187619e-169,  1.8292931831502e-65, 1.63279797354333e+135, 1.41608123117205e-276,  0), Counts = c(-7.19983242345361e-133, 6.02030857894279e+250,  -6.22108655137266e+272, -2.11921590636165e+85, -1.62929348291494e+63,  2.97473643890528e-162, 1.38686401330663e+242, 1.35821547567478e+166,  2.33043825127844e-248, 5053395844987.44, -7.91953784090027e+194,  5.11639471989435e-144, -2.33801983216938e-198, -1.4998920250016e-10,  4.32397112202645e+216, -1.06934737737141e+213, -9.43147286550272e-93,  -3.03937140696458e+176, -6.48737466866726e-106, 5.4545912149048e-152,  -1.49013040741336e-270, 1.33233599427472e-306, 2.634957758912e+131,  -4.5035041676594e-150, -5.65161916886205e-264, -1.14239874383002e+36,  -8.10242751598688e+208, -1.11251219905271e-275, 5.63611898962895e+298,  8.98834942688884e+132, -6.81615275006622e+140, 1.77934977176369e+285,  1.27517491309844e-122, 2.21466338399141e+23, -7.4120283993724e-200,  4.07837916520639e-07, 49162.9299781356), h = -36540528024027800,      x_eval = c(-3.19868199272117e-152, 9.01759077219456e+269,      1.38132470505271e+189, 4.87533065195373e-255, 6.4658697437712e+299,      7.95413582065576e+131, -1.00073342069585e+287), x = c(-9.9122759758109e-57,      -1.64035674249925e-118, 1.05390745649826e+182, 8.05606797801028e-38,      -3.84354256622327e+136, 2.36081589563427e-100, 3.01724164497879e-124,      9.57301250646523e+229, -7.99809293195875e-243, 3.06030363511005e-110,      3.27695505950329e-93, -2.10373847983487e+36, -5.29514598795293e-20,      9.81127061830259e+30, -3403.88378037291, -364839.827923978,      -8.45393891276032e+179, -4.53552102535884e+269, 3.95634524110619e-268     ), y = c(7.10345658387002e+183, NaN, -6.90558603588891e+64,      -Inf, 1.69525406917008e-11, -3.2200871813294e+207, 1.87678984938135e-179,      7.6026610522376e-52, -Inf, -4.07827651100228e-125, 1.24680700116839e+68,      -2.75820195448307e-295, 5.67556876054047e+224, -3.54964583317729e-194,      1.60096399571375e-198, 4.16403222004086e-243, Inf, -Inf,      4.45587038472864e-209, 3.27437460602372e+270, 1.99018496701793e+90,      7.3743152627684e-288, 3.21584708469381e+236, -4.62773240474319e+76,      50002022.6447766, -6.90295806583465e+295, 0))
result <- do.call(FKSUM:::dksum,testlist)
str(result)