gistfile1.txt

(def philostate
  (let [c (chan)]
    (go (loop [state {:socrates   :thinking
                        :plato      :thinking
                        :hickey     :thinking
                        :sussman    :thinking
                      :stroustrup :thinking}]
          (let [f (<! c)
                new-state (f state)]
            (println new-state)
            (recur new-state))))
    c))