val message : string -> unitval messagef : ('a, unit, string, unit) Core_kernel.format4 -> 'aval message_s : Core_kernel.Sexp.t -> unit
include Composition_infix
val (>>) : ('a -> 'b) -> ('b -> 'c) -> 'a -> 'cval (<<) : ('b -> 'c) -> ('a -> 'b) -> 'a -> 'c
val initialize_module : unitval concat : ?sep:string -> string list -> stringval debug : boolval print_s : ?hide_positions:Base.bool -> Base.Sexp.t -> Base.unitval eprint_s : Core_kernel.Sexp.t -> Core_kernel__.Import.unitval raise_string : Core_kernel__.Import.string list -> 'aval sec_ns : Core_kernel__.Import.float -> Core_kernel.Time_ns.Span.tval add_gc_root : (unit -> Core_kernel__.Import.unit) -> unitval 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