testlist <- list(y = c(-148187944L, 1025481588L, -1207915215L, -1201234461L,  1488919255L, -1649566938L, 1402309744L, -1757163377L, 1856268203L,  -1023270789L, 63810747L, 860462731L, 163078822L, 1727909049L,  -1839650262L, -1661290230L, -1642023327L, 601283878L, -1551244842L,  -746626340L, 935625373L, -1034987692L, -1467908540L, 2067222297L,  1476754043L, -615014018L, -511552332L, 28741688L, 2064832061L,  1630376201L, -1374663127L, 1201488543L, -1564730755L, 347864053L,  1028630846L, 104429441L, 1263386285L, 2052044328L, 1594118567L,  -1584183741L, 1331806307L, 482039898L, 184653841L, 974099078L,  1548760022L, -1612054785L, -296769905L, -487795918L, 1301517674L,  1341047898L, -279155926L, 1828565192L, NA, -862065734L, -309245233L,  2115830219L, -1332267521L, -2047256204L, NA, -1051817458L, 824835070L,  -941180748L, 2013430774L, 528859600L), z = c(1.2978013470582e-250,  NA))
result <- do.call(energy:::Btree_sum,testlist)
str(result)