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