open Aoc2020 let days = [|Day1.main; Day2.main; Day3.main; Day4.main|] let _ = match Array.to_list Sys.argv with | _exename :: day :: args -> days.(int_of_string day - 1) args | _ -> Misc.usage " args..."