The original version => https://twitter.com/yagiyyyy/status/473405016540053504, @shobochim => https://gist.github.com/syobochim/c7f324a227341fdaaee0

bonjovis.clj

(let [v ["ｼﾞｮ" "ﾝ" "ﾎﾞ" "ｳﾞｨ"]
      a (reverse ["ｼﾞｮﾝ" "ﾎﾞﾝ" "ｼﾞｮｳﾞｨ"])
      s (->> (repeatedly #(str (rand-nth v) (rand-nth v)))
             (reductions #(cons %2 %) [])
             (drop-while #(not= a (take 3 %)))
             first)]
  (println (->> (reverse s)
                (interpose "･")
                (apply str))
           "\n"
           (count s)
           "Bon Jovis

＿人人人人人人人人人人人人人人＿
＞　You Give Love a Bad Name　＜
￣Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y￣"))