-(* module Ptset : sig
+(* module Ptset : sig
include Set.S with type elt = int
val from_list : elt list -> t
end
-*)
+ *)
type state = int
val mk_state : unit -> state
module BottomUpNew :
sig
val run : t -> Tree.Binary.t -> TS.t
+ val run_count : t -> Tree.Binary.t -> int
+end
+
+module Jump :
+sig
+ val run : t -> Tree.Binary.t -> Ptset.t -> TS.t
end