multiUni <- function(n, iters=1, multiplier=2) {
	finals = rep(0,n)
	for(j in 1:n) {
		top = 1
		for(i in 1:iters) {
			top = runif(1,0,top) * multiplier
			if(!is.finite(top)) {
				return(NA)
			}
			if(top == 0) {
				return(0)
			}
		}
		finals[j] = top
	}
	return(finals)
}