scratch.clj

(def f7
  (a-if acceptable-encoding-avail?
        g7
        four-oh-six-not-acceptable))

(def f6
  (a-if accept-encoding-exists?
        g7
        f7))

(def e6
  (a-if
   f6
   four-oh-six-not-acceptable))

(def e5
  (a-if acceptable-charset-exists?
        e6
        f6))

(def d5
  (a-if accept-language-available?
        e5
        four-oh-six-not-acceptable))

(def d4
  (a-if accept-language-exists?
        d5
        e5))

(def c4
  (a-if acceptable-media-type?
        d4
        four-oh-six-not-acceptable))

(def c3
  (a-if accept-exists?
        c4
        d4))