Initial commit

src/Main.hs

@@ -0,0 +1,15 @@
+module Main (main) where
+
+import Day01 (day01_1)
+import System.Environment (getArgs)
+
+main :: IO ()
+main = do
+  args <- getArgs
+  case args of
+    "1" : "1" : _ -> day01_1
+    "1" : _ -> do
+      day01_1
+    "all" : _ -> do
+      day01_1
+    _ -> error "Not implemented"