let uig = let bound = Int64.add 1L (Int64.of_int max_int) in fun () -> let r = Int64.to_int_exn (Random.int64 bound) in if Random.bool () then r else -r - 1