let has_arg arlg possible =
  List.exists arlg ~f:(List.mem ~set:possible)