let uniform_ints prng length min max =
  let max = succ max in (* intuitive meaning for max is inclusive
     but we want to use the exclusive meaning of Random.int *)
  let diff = max - min in
  if diff > 1 then Array.init length (fun _ -> Random.State.int prng diff + min)
  else if diff = 1 then Array.make length min
  else failwith "Initializer.Line.random_ints"