let exit args =
let err = Format.sprintf "usage: %s %s" Sys.argv.(0) args in
print_endline err;
exit 1
let exit_default day = exit (string_of_int day ^ " <part> <infile>")