testlist <- list(K = -469638059L)
result <- do.call(GDINA:::alpha2,testlist)
str(result)