sig
  val nop : '-> unit
  val adapt_filename : string -> string
  val max_cpt : int -> int -> int
  val number_to_color : int -> int
  exception NotYetImplemented of string
  val not_yet_implemented : string -> 'a
  val mk_fun : string -> ('-> 'b) Pervasives.ref
  val ( $ ) : ('-> 'b) -> ('-> 'a) -> '-> 'b
  val swap : ('-> '-> 'c) -> '-> '-> 'c
  val as_singleton : 'a list -> 'a
  val filter_out : ('-> bool) -> 'a list -> 'a list
  val filter_map : ('-> bool) -> ('-> 'b) -> 'a list -> 'b list
  val product_fold : ('-> '-> '-> 'a) -> '-> 'b list -> 'c list -> 'a
  val product : ('-> '-> 'c) -> 'a list -> 'b list -> 'c list
  val find_index : ('-> bool) -> 'a list -> int
  val list_compare : ('-> '-> int) -> 'a list -> 'a list -> int
  val list_of_opt : 'a option -> 'a list
  val may : ('-> unit) -> 'a option -> unit
  val may_map : ('-> 'b) -> ?dft:'-> 'a option -> 'b
  val opt_map : ('-> 'b) -> 'a option -> 'b option
  val opt_filter : ('-> bool) -> 'a option -> 'a option
  val the : 'a option -> 'a
  val find_or_none : ('-> 'b) -> '-> 'b option
  val opt_equal : ('-> '-> bool) -> 'a option -> 'a option -> bool
  val opt_compare : ('-> '-> int) -> 'a option -> 'a option -> int
  val string_prefix : ?strict:bool -> string -> string -> bool
  external getperfcount : unit -> int = "getperfcount"
  external getperfcount1024 : unit -> int = "getperfcount1024"
  val time : ?msg:string -> ('-> 'b) -> '-> 'b
  val time1024 : ?msg:string -> ('-> 'b) -> '-> 'b
  external address_of_value : '-> int = "address_of_value"
  val try_finally : finally:(unit -> unit) -> ('-> 'b) -> '-> 'b
  val cleanup_at_exit : string -> unit
  val temp_file_cleanup_at_exit : string -> string -> string
  val temp_dir_cleanup_at_exit : string -> string
  val safe_remove : string -> unit
  val safe_remove_dir : string -> unit
  val terminate_process : int -> unit
  val usleep : int -> unit
  external compare_basic : '-> '-> int = "%compare"
end