let max_array_length = Sys.max_array_length