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