let create_tagline description = String.make (List.length description) '-'