se)
                               (:height reponse))
        age-range (get-age-range reponse)
        reponse   (merge reponse {:bmi bmi-val})
        reponse   (merge reponse {:age-range age-range})
        reponse   (update-in reponse [:pronostic-factors]
                             #(if (= (:age-range reponse) "sup_70") (inc %) %))
        reponse   (update-in reponse [:pronostic-factors]
                             #(if (>= bmi-val 30) (inc %) %))
        reponse   (dissoc reponse :weight :height :a