print (VarExpr _ vd) = print vd
print (Op2Expr _ e1 o e2) = ["(":print e1] ++ [" ",case o of
BiPlus = "+"; BiMinus = "-"; BiTimes = "*"; BiDivide = "/"
- BiMod = "%"; BiEquals = "="; BiLesser = "<"; BiGreater = ">"
+ BiMod = "%"; BiEquals = "=="; BiLesser = "<"; BiGreater = ">"
BiLesserEq = "<="; BiGreaterEq = ">="; BiUnEqual = "!=";
BiAnd = "&&"; BiOr = "||"; BiCons = ":"
," ":print e2] ++ [")"]