val message : string -> unit
val messagef : ('a, unit, string, unit) Core_kernel.format4 -> 'a
val message_s : Core_kernel.Sexp.t -> unit
include Composition_infix
val (>>) : ('a -> 'b) -> ('b -> 'c) -> 'a -> 'c
val (<<) : ('b -> 'c) -> ('a -> 'b) -> 'a -> 'c
val initialize_module : unit
val concat : ?sep:string -> string list -> string
val debug : bool
val print_s : ?hide_positions:Base.bool -> Base.Sexp.t -> Base.unit
val eprint_s : Core_kernel.Sexp.t -> Core_kernel__.Import.unit
val raise_string : Core_kernel__.Import.string list -> 'a
val sec_ns : Core_kernel__.Import.float -> Core_kernel.Time_ns.Span.t
val add_gc_root : (unit -> Core_kernel__.Import.unit) -> unit
val add_gc_root : 'a -> unit
type 'a opaque_in_test
= 'a
val sexp_of_opaque_in_test : ('a -> Sexplib0.Sexp.t) -> 'a -> Sexplib0.Sexp.t