                           :without         "No HRT"
                           :causative       false
                           }
-                :wine    {:icon            "ios-wine"
+                :wine    {:tags            ["alcohol" "breast" "cancer"]
+                          :icon            "ios-wine"
                           :subjects        ["woman" "women"]
                           :exposure        "drinking half a bottle of wine a day"
                           :baseline-risk   0.12

                          :without         "Not drinking"
                          :causative       false
                          }
                :wdoc    {:icon            "ios-person"
                          :subjects        ["person" "US people over 65 admitted to hospital under Medicare"]
                          :exposure        "being seen by a female doctor"
                          :baseline-risk   0.115

         outcome-pp (str (present-participle outcome-verb) " " outcome)
         outcome-text (if (> relative-risk 1)
                        (str "would " outcome-inf " anyway. ")
                        (str "would still " outcome-inf ". ")
                        )]
     (if causative
       ["On average, for "                                  ; head
        (str "one " (extra relative-risk) " " (singular-form subjects) " ") ; mark-one
        (format "to ~a, " outcome-inf)                      ; one-to-group
        (format "~d more " nn)                              ; group
        (format (str (n-plural-form subjects) " would need to be ~a. Of these, ") nn exposure) ; group-to-anyway
        (format "~d " anyway-count)                         ;anyway
