> (setq *graph1* '((s a) (s d) (a b) (a d) (b c) (b e) (d e) (e f))) ((s a) (s d) (a b) (a d) (b c) (b e) (d e) (e f)) > (setq *graph2* '((s . (a d)) (a . (s b d)) (b . (a c e)) (c . (b)) (d . (s a e)) (e . (b d f)) (f . (e)))) ((s a d) (a s b d) (b a c e) (c b) (d s a e) (e b d f) (f e))