sig
  val exists : As_path.t -> bool As_cmd.result
  val getcwd : unit -> As_path.t As_cmd.result
  val chdir : As_path.t -> unit As_cmd.result
  val fold_files_rec :
    ?skip:string list ->
    (string -> 'a -> 'a As_cmd.result) ->
    'a -> string list -> 'a As_cmd.result
end