(defn explain-defcon-level [exercise-term] (case exercise-term :fade-out :you-and-what-army :double-take :call-me-when-its-important :round-house :o-rly :fast-pace :thats-pretty-bad :cocked-pistol :sirens :say-what?)) (meditations "You will face many decisions" (= __ (if (false? (= 4 5)) :a :b)) "Some of them leave you no alternative" (= __ (if (> 4 3) [])) "And in such a situation you may have nothing" (= nil (if (nil? __) [:a :b :c])) "In others your alternative may be interesting" (= :glory (if (not (empty? ())) :doom __)) "You may have a multitude of possible paths" (let [x 5] (= :your_road (cond (= x __) :road_not_taken (= x __) :another_road_not_taken :else __))) "Or your fate may be sealed" (= __ (if-not (zero? __) 'doom 'doom)) "In case of emergency, sound the alarms" (= :sirens (explain-defcon-level __)) "But admit it when you don't know what to do" (= __ (explain-defcon-level :yo-mama)))