Compile.IntervalTree
type 'a t
val find : Ast.Loc.t -> 'a t -> (Ast.Loc.t * 'a) list
val pp : (Stdlib.Format.formatter -> 'a -> unit) -> Stdlib.Format.formatter -> 'a t -> unit