n <- 150000
repeat {
a <- rep(0, 9999)
a[sample(9999, n, replace = TRUE)] <- n:1
if (min(a)) cat(max(a), "\n") & break
n <- n * 2
}
biA8LSAxNTAwMDAKcmVwZWF0IHsKICAgIGEgPC0gcmVwKDAsIDk5OTkpCiAgICBhW3NhbXBsZSg5OTk5LCBuLCByZXBsYWNlID0gVFJVRSldIDwtIG46MQogICAgaWYgKG1pbihhKSkgY2F0KG1heChhKSwgIlxuIikgJiBicmVhawogICAgbiA8LSBuICogMgp9