module Main (main) where

import Day01 (day01_1, day01_2)
import Day02 (day02_1, day02_2)
import Day03 (day03_1, day03_2)
import Day04 (day04_1, day04_2)
import Day05 (day05_1, day05_2)
import System.Environment (getArgs)

main :: IO ()
main = do
  args <- getArgs
  case args of
    "1" : "1" : _ -> day01_1
    "1" : "2" : _ -> day01_2
    "1" : _ -> do
      day01_1
      day01_2
    "2" : "1" : _ -> day02_1
    "2" : "2" : _ -> day02_2
    "2" : _ -> do
      day02_1
      day02_2
    "3" : "1" : _ -> day03_1
    "3" : "2" : _ -> day03_2
    "3" : _ -> do
      day03_1
      day03_2
    "4" : "1" : _ -> day04_1
    "4" : "2" : _ -> day04_2
    "4" : _ -> do
      day04_1
      day04_2
    "5" : "1" : _ -> day05_1
    "5" : "2" : _ -> day05_2
    "5" : _ -> do
      day05_1
      day05_2
    "all" : _ -> do
      day01_1
      day01_2
      day02_1
      day02_2
      day03_1
      day03_2
      day04_1
      day04_2
      day05_1
      day05_2
    _ -> error "Not implemented"