r <- NULL
a <- rep(0, 9999)
repeat {
r <- c(sample(9999, 150000, replace = TRUE), r)
a[r] <- length(r):1
if (min(a)) cat(max(a), "\n") & break
}
ciA8LSBOVUxMCmEgPC0gcmVwKDAsIDk5OTkpCnJlcGVhdCB7CiAgICByIDwtIGMoc2FtcGxlKDk5OTksIDE1MDAwMCwgcmVwbGFjZSA9IFRSVUUpLCByKQogICAgYVtyXSA8LSBsZW5ndGgocik6MQogICAgaWYgKG1pbihhKSkgY2F0KG1heChhKSwgIlxuIikgJiBicmVhawp9