+++ /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)]
-