let nng () = let p = Random.float 1. in if p < 0.5 then Random.int 10 else if p < 0.75 then Random.int 100 else if p < 0.95 then Random.int 1_000 else Random.int 10_000