(define g (graph '(1 2 3) '((1 2) (2 3) (3 1))))
(define v (vertex-ref g 0))   ; vertex ``1''
(new-attribute! 'visited 0 g)
(find-attribute 'visited v)
(set-attribute! 'visited 1 v)
(find-attribute 'visited v)
