3 type t = V of int | A of t * t | L of t | B
4 val print : ?l:string list -> t -> string
5 val lift : int -> t -> t
6 val unwind : ?tbl:('a list * t * 'a list as 'a, t) Hashtbl.t -> 'a -> t
7 val mwhd : (('a * t * ('b list as 'c) as 'b) list as 'a) * t * 'c -> t
12 val mk_n : int -> Pure.t
14 val mk_match : Pure.t -> (int * Pure.t) list -> Pure.t