Oprint (melange.Melange_compiler

val map_primitive_name : (string -> string) Stdlib.ref

val out_ident : 
  (Stdlib.Format.formatter -> Outcometree.out_ident -> unit) Stdlib.ref

val out_value : 
  (Stdlib.Format.formatter -> Outcometree.out_value -> unit) Stdlib.ref

val out_label : 
  (Stdlib.Format.formatter ->
    (string * bool * Outcometree.out_type) ->
    unit)
    Stdlib.ref

val out_type : 
  (Stdlib.Format.formatter -> Outcometree.out_type -> unit) Stdlib.ref

val out_type_args : 
  (Stdlib.Format.formatter -> Outcometree.out_type list -> unit) Stdlib.ref

val out_constr : 
  (Stdlib.Format.formatter -> Outcometree.out_constructor -> unit) Stdlib.ref

val out_class_type : 
  (Stdlib.Format.formatter -> Outcometree.out_class_type -> unit) Stdlib.ref

val out_module_type : 
  (Stdlib.Format.formatter -> Outcometree.out_module_type -> unit) Stdlib.ref

val out_sig_item : 
  (Stdlib.Format.formatter -> Outcometree.out_sig_item -> unit) Stdlib.ref

val out_signature : 
  (Stdlib.Format.formatter -> Outcometree.out_sig_item list -> unit) Stdlib.ref

val out_functor_parameters : 
  (Stdlib.Format.formatter ->
    (string option * Outcometree.out_module_type) option list ->
    unit)
    Stdlib.ref

val out_type_extension : 
  (Stdlib.Format.formatter ->
    Outcometree.out_type_extension ->
    unit)
    Stdlib.ref

val out_phrase : 
  (Stdlib.Format.formatter -> Outcometree.out_phrase -> unit) Stdlib.ref

val parenthesized_ident : string -> bool