+let layer st n =
+ "layer", N.to_string st n
+
+let main (sort, degr) =
+ ["main-position", string_of_int sort;
+ "main-degree", string_of_int degr;
+ ]
+
+let side (sort, degr) =
+ ["side-position", string_of_int sort;
+ "side-degree", string_of_int degr;
+ ]
+
+let apix a =
+ "level", string_of_int a.E.n_apix