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