sig
  val exists : Assemblage.Cmd.path -> bool Assemblage.Cmd.result
  val getcwd : unit -> Assemblage.Cmd.path Assemblage.Cmd.result
  val chdir : Assemblage.Cmd.path -> unit Assemblage.Cmd.result
  val fold_files_rec :
    ?skip:string list ->
    (string -> 'a -> 'a Assemblage.Cmd.result) ->
    'a -> string list -> 'a Assemblage.Cmd.result
end