                           :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         "Normal"
                          :causative       false
                          }
                :hrt5    {:icon            "ios-woman"
                          :subjects        ["woman" "women in their 50s"]
                          :exposure        "taking HRT for 5 years"
                          :baseline-risk   0.1

        ]
       ["On average, for "                                  ; head
        (str "one " (extra relative-risk) " " (singular-form subjects) " ") ; mark-one
        (format "to ~a, we would need " outcome-inf)        ; one-to-group
        (format "a group of ~d more " nn)                   ; group
        (format (str (n-plural-form subjects) " ~a. Of these, ") nn exposure) ; group-to-anyway
        (format "~d " anyway-count)                         ;anyway
