aoc2020/usage.ml

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>")