Netpilgrim

(defn dfs [g]
  (let [visited (atom #{})]
    (letfn
	[(search_tree [v]
		      (if (not (@visited v))
			(do
			  (swap! visited conj v)
			  (cons v (search (g v))))))
	 (search [vs]
		 (if (seq vs)