sig
  exception Eof
  exception Invalid_length of int array
  exception Invalid_value of (int array * int)
  exception Parse_error of string
  type schema_t = int array
  type example_t = int array
  type wexample_t = float * int array
  type marginal_t = float array
  val load_schema : string -> Data.schema_t
  val dump_schema : Data.schema_t -> string -> unit
  val output_schema : Pervasives.out_channel -> Data.schema_t -> unit
  val input_example : Pervasives.in_channel -> Data.example_t
  val input_example_list : Pervasives.in_channel -> Data.example_t list
  val input_wexample : Pervasives.in_channel -> Data.wexample_t
  val input_wexample_list : Pervasives.in_channel -> Data.wexample_t list
  val input_evidence : Pervasives.in_channel -> float array
  val input_evidence_list : Pervasives.in_channel -> float array list
  val input_example_list_schema :
    Data.schema_t -> Pervasives.in_channel -> Data.example_t list
  val input_wexample_list_schema :
    Data.schema_t -> Pervasives.in_channel -> Data.wexample_t list
  val output_example : Pervasives.out_channel -> Data.example_t -> unit
  val load_data : string -> Data.example_t list
  val load_data_ar : string -> Data.example_t array
  val load_evidence : string -> float array list
  val load_evidence_ar : string -> float array array
  val dump_data : Data.example_t array -> string -> unit
  val input_marginals : Pervasives.in_channel -> Data.marginal_t array
  val output_marginals :
    Pervasives.out_channel -> Data.marginal_t array -> unit
  val print_marginals : Data.marginal_t array -> unit
  val schema : Data.example_t list -> Data.schema_t
  val stream_schema : Pervasives.in_channel -> Data.schema_t
  val check_point : Data.schema_t -> Data.example_t -> unit
  val check_evidence : Data.schema_t -> Data.example_t -> int array
  val to_string_example : Data.example_t -> string
  val to_string_schema : Data.schema_t -> string
end