commit 1c9c9422e26e25b0242e4d944021cbd1067e987e
Author: Pal Kerecsenyi <pal@p.kerecs.com>
Date:   Wed May 8 09:41:51 2024 +0100

    Exam spec

diff --git a/polynom.hs b/polynom.hs
new file mode 100644
index 0000000..ae52e02
--- /dev/null
+++ b/polynom.hs
@@ -0,0 +1,17 @@
+data Atree = Number Int | Variable String | Plus Atree Atree | Minus Atree | Times Atree Atree
+
+t :: Atree
+t =
+  Times
+    (Plus (Number 5) (Minus (Variable "x")))
+    ( Plus
+        (Times (Number 2) (Variable "y"))
+        (Minus (Plus (Variable "x") (Number 7)))
+    )
+
+type Polynomial = [Monomial]
+
+type Monomial = (Int, [String])
+
+polynomial :: Atree -> Polynomial
+polynomial = undefined