(******************************************************************************)
(*  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