let confirm_remove_files l =
  List.fold_left
    (fun acc -> fun f -> acc^"\n"^f)
    "The following files will be removed from the repository and locally deleted :"
    l