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