1 files changed, 9 insertions, 0 deletions
diff --git a/main.sml b/main.sml
new file mode 100644
index 0000000..c020691
--- /dev/null
+++ b/main.sml
@@ -0,0 +1,9 @@
+fun parseFiles (filenames : string list) : (string, Syntax.dec list) Either.either =
+  let fun go [] acc = Either.Right (concat (rev acc))
+        | go (f :: fs) acc =
+            case Parser.parse f
+              Either.Right prog => go fs (prog :: acc)
+              err => err
+  in go [] filenames
+
+val _ = parseFiles (CommandLine.arguments ())