monad.clj

(defn phase1 [x y]
  (fn [request]
    (let [newstate (cons (str "a list of " x y) request)]
      ["First return." newstate])))

(defn phase2 [z]
  (fn [request]
    (let [newstate (cons (str "building " z) request)]
      ["Next return." newstate])))

(with-monad state-m
  (defn build [x y z]
    (domonad  [a (phase1 x y)
               b (phase2 z)]
              [a b]))

  (defn build-chain [request]
    ((m-chain [(phase1 1 2)
               (phase2 3)])
     request)))