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