let
array_format arr =
D
.e_app0 (
Aformat
.get_definition arr).d_name