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