library(gmp)
a <- as.bigz("18446744073709551616")
mul.bigz(a,a)