sig
  type t = Useri.Drop.file
  val path : Useri.Drop.file -> string
  val prepare :
    Useri.Drop.file ->
    (Useri.Drop.file -> (unit, [ `Msg of string ]) Result.result -> unit) ->
    unit
end