+let main a =
+ let sort, degr = a.E.n_main in
+ ["main-sort", string_of_int sort;
+ "main-degree", string_of_int degr;
+ ]
+
+let side a =
+ let sort, degr = a.E.n_side in
+ ["side-sort", string_of_int sort;
+ "side-degree", string_of_int degr;
+ ]
+
+let apix a =
+ "level", string_of_int a.E.n_apix