testlist <- list(n = 2037305148L, pos = 1848989453L, xs = 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)) result <- do.call(BiDAG:::takelast,testlist) str(result)