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