open Solutions
exception NotImplementedYet of string

let args = System.Environment.GetCommandLineArgs()

assert (Array.length args = 3)

let day, part = int args[1], int args[2]

match (day, part) with
| (1, 1) -> Day1.part1 () |> printf "%A\n"
| (1, 2) -> Day1.part2 () |> printf "%A\n"
| (2, 1) -> Day2.part1 () |> printf "%A\n"
| (2, 2) -> Day2.part2 () |> printfn "%A\n"
| _ -> raise (NotImplementedYet("not implemented yet"))