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