(defn engage [meme]
(cond
(resonates? meme) (embrace meme)
(offends? meme) (denounce-and-spread meme)
(mundane? meme) (ignore meme)
(overexposed? meme) (burnout meme)
(lucrative? meme) (capitalize meme)
:else (continue meme)))
(defn cycle-of-meme [meme reactions]
(map #(engage % meme) reactions))
(def reactions [resonate offend ignore burnout capitalize])
(-> "Cultural Meme"
(cycle-of-meme reactions)
(observe-the-journey))