let days = [|Day1.main|]
let _ =
match Array.to_list Sys.argv with
| _exename :: day :: args -> days.(int_of_string day - 1) args
| _ -> Usage.exit "[day_num] args..."