A simplistic Undirected graph.
type Edges a = Dict (List a)
type Vertices a = List a
data Graph a = Graph (Edges a) (Vertices a)
edgesFromGraph : Graph a -> List (List a)