let
format_of_array arr =
DF
.array_format arr