-(******************************************************************************)
-(* SXSI : XPath evaluator *)
-(* Kim Nguyen (Kim.Nguyen@nicta.com.au) *)
-(* Copyright NICTA 2008 *)
-(* Distributed under the terms of the LGPL (see LICENCE) *)
-(******************************************************************************)
-type elt = int
-type t = int array
-
-let numbits i = int_of_float (log (float_of_int (i+1)) /. (log 2.))
-let size i = ((numbits i)/63)+1
-
-let empty = [| |]
-
-let add