mplify :: ExprTree Symbol -> ExprTree Symbol
-- ^ no idea if it works - should simplify symbol trees - haaard work !!
simplify (Leaf lab s) = (Leaf lab s)
s
simplify :: ExprTree Symbol -> ExprTree Symbol
simplify (Leaf lab s) = (Leaf lab s)
simplify (Leaf lab s) = (Leaf lab s)