let format_of_array arr = DF.array_format arr