(defun mydfs (graph root function cur-tour)
  (if (not (find root cur-tour))
      (iterate-neighbors root
			 (progn (print root)
				(funcall function root)
				(push root cur-tour)
				(mydfs graph root function cur-tour)))))