let make_int_list ~low ~high =
  if low > high then
    []
  else
    let rec iter acc = function
        n when n <= high -> iter (n :: acc) (n+1)
      |        _ -> List.rev acc
    in
    iter [] low