sig
  val date_822 : unit -> string
  val is_directory : string -> bool
  val filesize : string -> int
  val strip_trailing_slash : string -> string
  val strip_heading_slash : string -> string
  val ls : Unix.dir_handle -> string list
  val string_explode : string -> char list
  val string_implode : char list -> string
  val reason_phrase_of_code : int -> string
  val build_sockaddr : string * int -> Unix.sockaddr
  val explode_sockaddr : Unix.sockaddr -> string * int
  val peername_of_out_channel : Pervasives.out_channel -> Unix.sockaddr
  val peername_of_in_channel : Pervasives.in_channel -> Unix.sockaddr
  val sockname_of_out_channel : Pervasives.out_channel -> Unix.sockaddr
  val sockname_of_in_channel : Pervasives.in_channel -> Unix.sockaddr
  val buf_of_inchan : ?limit:int -> Pervasives.in_channel -> Buffer.t
  val list_assoc_all : 'a -> ('a * 'b) list -> 'b list
  val warn : string -> unit
  val error : string -> unit
  val finally : (unit -> unit) -> ('a -> 'b) -> 'a -> 'b
end