support <- 1:1000
sample <- rbinom(1000, 1, 0.1)
support[sample==1][1]