gistfile1.clj

(fn [{:keys [states start accepts transitions]}]
  ((fn words [queue]
     (lazy-seq
      (when-let [[[state path] & queue] (seq queue)]
        (let [more-work (for [[letter state] (transitions state)]
                          [state (conj path letter)])]
          `(~@(when (accepts state)
                [(apply str path)])
            ~@(words (doall (concat queue more-work))))))))
   [[start []]]))