(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))