;; Defining Varieties of Graphs and Hypergraphs with "graph" and "digraph"
;; Note that these primitives let their arguments determine the graph type

(define mg (graph '(1 2 3) '((1 2) (1 2))))   		; multigraph
(describe mg)

(define h (graph '(a b c d) '((a b d) (b c))))   	; hypergraph
(describe h)

(define dmg (digraph '(1 2 3) '((1 2) (1 2))))   	; multigraph (directed)
(describe dmg)

(define dh (digraph '(a b c d) '((a b d) (b c))))   	; hypergraph (directed)
(describe dh)
