module Graphs where

type Graph = [Node]
type Node = [Edge]
type Edge = (Node, Node)

g1 = [n1, n2, n3]

n1 = [n2]
n2 = [n3]
n3 = [n1]