keep <- c()
for (i in 1:1000){
keep <- c(roulette(10)$totals[10], keep)}