(require "graph-view")

(define g (graph '(1 2 3) '((1 2 3))))
(define gv (make <graph-view> :graph g))

(define vgs (vertices gv))
(define egs (edges gv))