(** Give the list of top states of an ASTA *)
val print : Format.formatter -> t -> unit
-(** Describe the automaton as text *)
+(** Pretty printer *)
val to_file : out_channel -> t -> unit
(** Outputs the description of the automaton on the given out_channel *)