sig
  type subitem = int array
  class chart :
    int ->
    object
      method add : int -> Chart.subitem -> bool
      method chart_size : int
      method contains : int -> Chart.subitem -> bool
      method matches : int -> Chart.subitem -> Chart.subitem list
      method set_cat_info : int -> int -> int array -> unit
      method show_cat_info : unit -> unit
    end
end