sig
  exception Found
  val ( |> ) : 'a -> ('a -> 'b) -> 'b
  external identity : 'a -> 'a = "%identity"
  external int_of_bool : bool -> int = "%identity"
  val bool_of_int : int -> bool
  val extract_bit : int -> int -> bool
  val power_of_2 : int -> bool
  val ( += ) : int Pervasives.ref -> int -> unit
  type comparison = Lt | Gt | Eq
end