type graph
-val set_sorts: (int -> 'a) -> string list -> int -> 'a
+val set_sorts: string list -> int -> int
val get_sort: (unit -> 'a) -> (string -> 'a) -> int -> 'a
val graph_of_string: (unit -> 'a) -> (graph -> 'a) -> string -> 'a
-val string_of_graph: (string -> 'a) -> graph -> 'a
+val string_of_graph: graph -> string
-val apply: (int -> 'a) -> graph -> int -> 'a
+val apply: graph -> int -> int