gistfile1.clj

(let [q (atom {:contents #queue [], :ret nil})]
  {:take (fn []
           (:ret (swap! q (fn [{:keys [contents]}]
                            {:contents (pop contents)
                             :ret (peek contents)}))))
   :put (fn [x]
          (swap! q update-in :contents conj x))})