testlist <- list(k = -912555523L, n = -469638059L)
result <- do.call(bartBMA:::secondKindStirlingNumber,testlist)
str(result)