\ / This software is distributed as is, NO WARRANTY.
V_______________________________________________________________ *)
-type graph
+val set_sorts: int -> string list -> int
-val set_new_sorts: (int -> 'a) -> string list -> 'a
+val string_of_sort: (unit -> 'a) -> (string -> 'a) -> int -> 'a
-val get_sort: (string option -> 'a) -> int -> 'a
+val sort_of_string: (unit -> 'a) -> (int -> 'a) -> string -> 'a
-val graph_of_string: (graph option -> 'a) -> string -> 'a
+val set_graph: string -> bool
-val string_of_graph: (string -> 'a) -> graph -> 'a
+val string_of_graph: unit -> string
-val apply: (int -> 'a) -> graph -> int -> 'a
+val apply: int -> int
-val graph: graph ref
+val clear: unit -> unit