runGraph :: GraphT s a b -> GraphState s -> (b, GraphState s)
runGraph (Graph s) = runState s
runGraph :: GraphT s a b -> GraphState s -> (b, GraphState s)
runGraph (Graph s) = runState s
runGraph (Graph s) = runState s