sig
  val analyze : Kernel_function.t -> unit
  val get_bounds : Cil_types.stmt -> int option
  val fold_bounds : (Cil_types.stmt -> int -> 'a -> 'a) -> 'a -> 'a
end