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