val initial_status: unit -> status
+val get_counters: (int -> int -> int -> int -> 'a) -> status -> 'a
+
+IFDEF PREPROCESS THEN
+
val process_command:
(status -> Aut.command -> 'a) -> status -> Aut.command -> 'a
-val get_counters: (int -> int -> int -> int -> 'a) -> status -> 'a
+END