--- /dev/null
+import "Prelude"
+import "Expressions/Equations"
+
+main = v
+ where
+ v = solveEquations do
+ listenEquationVariable "a" $ \a -> setEquationVariable "c" (a-1)
+ setEquationVariable "a" 123
+ listenEquationVariable "a" $ \a -> setEquationVariable "b" (a+1)
+ print v
+--
+[(a,123), (b,124), (c,122)]
+