{-# LANGUAGE LambdaCase #-}

module Main where

import Lib
import Print

import qualified Days.D01 as D01
import System.Environment (getArgs)

header :: IO ()
header = putStrLn "[ Day ]------(1)-----+------(2)----"

usage :: IO ()
usage = putStrLn "./Main"

main :: IO ()
main =
    getArgs >>= \case
        _ -> header >> run D01.day "data/01.in" >>= printDR 1