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