sig
  val ( ~% ) : ('a, unit, string) format -> 'a
  val p : string -> unit
  val string_of_char : char -> string
  val replace_string :
    src:string -> find:string -> replace_with:string -> string
  val replace_chars : src:string -> patterns:(char * string) list -> string
  val is_white_space : string -> bool
  val clean_string : string -> string
end