open Aoc2020

let days =
  [|Day1.main; Day2.main; Day3.main; Day4.main; Day5.main;
    Day6.main; Day7.main|]

let _ =
  match Array.to_list Sys.argv with
  | _exename :: day :: args -> days.(int_of_string day - 1) args
  | _ -> Misc.usage "<day> args..."