- ," ":print e2] ++ [")"]
- print (Op1Expr o e) = ["(",case o of
+
+instance print Expr where
+ print (VarExpr _ vd) = print vd
+ print (Op2Expr _ e1 o e2) = ["(":print e1] ++
+ [" ",toString o, " ":print e2] ++ [")"]
+ print (Op1Expr _ o e) = ["(",case o of