sig
  val string_of_opt : string option -> string
  val opt_of_string : string -> string option
  val map_opt : ('-> 'b) -> 'a option -> 'b option
  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)
end