sig
val string_of_opt : string option -> string
val opt_of_string : string -> string option
val map_opt : ('a -> 'b) -> 'a option -> 'b option
val opt_compare : ('a -> 'a -> int) -> 'a option -> 'a option -> int
val create_log_fun :
?prefix:string ->
?print:(string -> unit) ->
string -> ?loc:string -> ?level:int -> (unit -> string) -> unit
val create_log_fun_with_set :
?prefix:string ->
?print:(string -> unit) ->
string ->
(?loc:string -> ?level:int -> (unit -> string) -> unit) * (int -> unit)
val compare_list : ('a -> 'a -> int) -> 'a list -> 'a list -> int
val string_of_file : string -> string
end