addNodeByName :: String -> Graph -> Graph
addNodeByName n g = Graph ((qnode n):(nodes g)) (edges g)
addNodeByName :: String -> Graph -> Graph
addNodeByName n g = Graph ((qnode n):(nodes g)) (edges g)
addNodeByName n g = Graph ((qnode n):(nodes g)) (edges g)