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