sig
  type 'a entry =
      Dir of string * string * My_unix.stats Lazy.t * 'a *
        'a Slurp.entry list Lazy.t
    | File of string * string * My_unix.stats Lazy.t * 'a
    | Error of exn
    | Nothing
  val slurp : string -> unit Slurp.entry
  val filter :
    (string -> string -> 'a -> bool) -> 'a Slurp.entry -> 'a Slurp.entry
  val map :
    (string -> string -> 'a -> 'b) -> 'a Slurp.entry -> 'b Slurp.entry
  val fold :
    (string -> string -> 'a -> 'b -> 'b) -> 'a Slurp.entry -> 'b -> 'b
  val force : 'a Slurp.entry -> unit
end