@#example@
@(define g (graph '(1 2 3) '((1 2) (1 3) (3 1))))@
@(map (lambda (x) 
            (find-string-attribute 'vcolor x)) 
          (set-vertex->list (vertices g)))@
@#endexample@
@(bye)@
