(add-in-order {:keys [expecting fns]} order f)
(defn add-in-order [{:keys [expecting fns]} order f] {:expecting (or expecting order) :fns (assoc fns order f)})