S=["a","b","c"]
forsubset(#S,s,print1(vecextract(S,s)"  "))