let enter_tag_for_files l =
  List.fold_left
    (fun acc -> fun f -> acc^"\n"^f)
    "Enter a tag for the working revision of the following files :"
    l