InitialHEADmaster

1 files changed, 13 insertions, 0 deletions

diff --git a/Expr.hs b/Expr.hs
new file mode 100644
index 0000000..80ce440
--- /dev/null
+++ b/Expr.hs
@@ -0,0 +1,13 @@
+module Expr where
+
+
+data Expr
+  = EInfix Expr String Expr
+  | EPrefix String Expr
+  | EParens Expr
+  | ELitInt Integer
+  | EVar String
+  deriving (Show)
+
+einfix :: String -> Expr -> Expr -> Expr
+einfix = flip EInfix