let max_length = Sys.max_array_length * bpi