let exit args =
  let err = Format.sprintf "usage: %s %s" Sys.argv.(0) args in
  print_endline err;
  exit 1