sig
  exception Hidden of exn
  val hide_exn : ('a -> 'b) -> 'a -> 'b
  val reveal_exn : ('a -> 'b) -> 'a -> 'b
  val find :
    (Unix.error * string * string -> unit) ->
    (string -> Unix.stats -> bool) -> bool -> int -> string list -> unit
end