1 files changed, 18 insertions, 0 deletions
diff --git a/Compare.hs b/Compare.hs
new file mode 100644
index 0000000..4d9ab6d
--- /dev/null
+++ b/Compare.hs
@@ -0,0 +1,18 @@
+import System.Environment( getArgs )
+import Text.Printf
+import Library.Parse
+import Library.Semantic
+import Library.Stack
+
+
+
+main = do
+    args <- getArgs
+    listA <- getLines (args!!0)
+    listB <- getLines (args!!1)
+    let resultA = eval (map (stripReturn) listA)
+        resultB = eval (map (stripReturn) listB)
+        output = if (resultA == resultB)
+    	         then "Articles identical\n"
+    	         else "Differences detected\n"
+    printf output