newVar :: GraphT s a String
newVar = ("d3_" ++) . show <$> (varSeed <<%= (+1))
newVar :: GraphT s a String
newVar = ("d3_" ++) . show <$> (varSeed <<%= (+1))
newVar = ("d3_" ++) . show <$> (varSeed <<%= (+1))