sig
val nop : 'a -> unit
val find_or_none : ('a -> 'b) -> 'a -> 'b option
val adapt_filename : string -> string
val max_cpt : int -> int -> int
exception NotYetImplemented of string
val not_yet_implemented : string -> 'a
val mk_fun : string -> ('a -> 'b) Pervasives.ref
val deprecated : string -> now:string -> ('a -> 'b) -> 'a -> 'b
val ( $ ) : ('a -> 'b) -> ('c -> 'a) -> 'c -> 'b
val swap : ('a -> 'b -> 'c) -> 'b -> 'a -> 'c
val as_singleton : 'a list -> 'a
val filter_out : ('a -> bool) -> 'a list -> 'a list
val product : ('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list
val may : ('a -> unit) -> 'a option -> unit
val may_map : ('a -> 'b) -> ?dft:'b -> 'a option -> 'b
val opt_map : ('a -> 'b) -> 'a option -> 'b option
val opt_filter : ('a -> bool) -> 'a option -> 'a option
val the : 'a option -> 'a
external getperfcount : unit -> int = "getperfcount"
external getperfcount1024 : unit -> int = "getperfcount1024"
external address_of_value : 'a -> int = "address_of_value"
val try_finally : finally:(unit -> unit) -> ('a -> 'b) -> 'a -> 'b
val full_command :
string ->
string array ->
stdin:Unix.file_descr ->
stdout:Unix.file_descr -> stderr:Unix.file_descr -> int
end