(def state (set-state! (atom {})))

(defhandler :comedy [action]
  "was-funny"
  {:funny true :who (:who action)})

(defhandler :club [action]
  ["was-funny" "was-mildly-amusing"]
  (do
    (wait-for :comedy)
    {:audience :laughs}))

(dispatch {:type "was-funny" :who "Jerry"})

@state ; => {:comedy {:funny true :who "Jerry"} :club {:audience :laughs}}