Ring middleware execution order

ring_middleware_order.clj

(defn handler
  [handler]
  (println "HANDLER"))

(defn wrap-1
  [handler]
  (fn [request]
    (println "pre-1")
    (handler request)
    (println "post-1")))

(defn wrap-2
  [handler]
  (fn [request]
    (println "pre-2")
    (handler request)
    (println "post-2")))

(defn wrap-3
  [handler]
  (fn [request]
    (println "pre-3")
    (handler request)
    (println "post-3")))

;; (wrap3 (wrap-2 (wrap-1 handler)))
((-> handler
    wrap-1
    wrap-2
    wrap-3) {})

;; pre-3
;; pre-2
;; pre-1
;; HANDLER
;; post-1
;; post-2
;; post-3