let files_already_has_tag files tag =
(List.fold_left
(fun acc -> fun f -> acc^f^"\n")
("The following files already have a tag '"^tag^"' :\n")
files
)^
"\nTagging them again with this tag will change \n"^
"the revision number associated to this tag.\n\nContinue ?"