Some lisp code for walking a graph while crossing every edge once and only once.