(require "graph-view")

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

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