module Toploop :
  sig
    val print_out_value :
      (Format.formatter -> Camlp4_import.Outcometree.out_value -> unit) ref
    val print_out_type :
      (Format.formatter -> Camlp4_import.Outcometree.out_type -> unit) ref
    val print_out_class_type :
      (Format.formatter -> Camlp4_import.Outcometree.out_class_type -> unit)
      ref
    val print_out_module_type :
      (Format.formatter -> Camlp4_import.Outcometree.out_module_type -> unit)
      ref
    val print_out_sig_item :
      (Format.formatter -> Camlp4_import.Outcometree.out_sig_item -> unit)
      ref
    val print_out_signature :
      (Format.formatter ->
       Camlp4_import.Outcometree.out_sig_item list -> unit)
      ref
    val print_out_phrase :
      (Format.formatter -> Camlp4_import.Outcometree.out_phrase -> unit) ref
  end
exception Ellipsis
val cautious :
  (Format.formatter -> 'a -> unit) -> Format.formatter -> 'a -> unit
val print_ident :
  Format.formatter -> Camlp4_import.Outcometree.out_ident -> unit
val value_ident : Format.formatter -> string -> unit
val print_out_value :
  Format.formatter -> Camlp4_import.Outcometree.out_value -> unit
val print_list : ('a -> 'b -> unit) -> ('a -> 'c) -> 'a -> 'b list -> unit
val pr_vars : Format.formatter -> string list -> unit
val pr_present : Format.formatter -> string list -> unit
val print_out_type :
  Format.formatter -> Camlp4_import.Outcometree.out_type -> unit
val print_out_type_1 :
  Format.formatter -> Camlp4_import.Outcometree.out_type -> unit
val print_out_type_2 :
  Format.formatter -> Camlp4_import.Outcometree.out_type -> unit
val print_simple_out_type :
  Format.formatter -> Camlp4_import.Outcometree.out_type -> unit
val print_out_constr :
  Format.formatter ->
  string * Camlp4_import.Outcometree.out_type list -> unit
val print_out_label :
  Format.formatter ->
  string * bool * Camlp4_import.Outcometree.out_type -> unit
val print_fields :
  bool option ->
  Format.formatter ->
  (string * Camlp4_import.Outcometree.out_type) list -> unit
val print_row_field :
  Format.formatter ->
  string * bool * Camlp4_import.Outcometree.out_type list -> unit
val print_typlist :
  (Format.formatter -> Camlp4_import.Outcometree.out_type -> unit) ->
  string ->
  Format.formatter -> Camlp4_import.Outcometree.out_type list -> unit
val print_typargs :
  Format.formatter -> Camlp4_import.Outcometree.out_type list -> unit
val print_ty_label : Format.formatter -> string -> unit
val type_parameter : Format.formatter -> string * (bool * bool) -> unit
val print_out_class_params :
  Format.formatter -> (string * (bool * bool)) list -> unit
val print_out_class_type :
  Format.formatter -> Camlp4_import.Outcometree.out_class_type -> unit
val print_out_class_sig_item :
  Format.formatter -> Camlp4_import.Outcometree.out_class_sig_item -> unit
val print_out_module_type :
  Format.formatter -> Camlp4_import.Outcometree.out_module_type -> unit
val print_out_signature :
  Format.formatter -> Camlp4_import.Outcometree.out_sig_item list -> unit
val print_out_sig_item :
  Format.formatter -> Camlp4_import.Outcometree.out_sig_item -> unit
val print_out_type_decl :
  string ->
  Format.formatter -> Camlp4_import.Outcometree.out_type_decl -> unit
val print_out_exception :
  Format.formatter -> exn -> Camlp4_import.Outcometree.out_value -> unit
val print_items :
  Format.formatter ->
  (Camlp4_import.Outcometree.out_sig_item *
   Camlp4_import.Outcometree.out_value option)
  list -> unit
val print_out_phrase :
  Format.formatter -> Camlp4_import.Outcometree.out_phrase -> unit