setsubset(s,t)={
  for(i=1,#s,
    if(!setsearch(t,s[i]), return(0))
  );
  1
};
s=Set([1,2,2])
t=Set([4,2,4])
setsearch(s,1)
setunion(s,t)
setintersect(s,t)
setminus(s,t)
setsubset(s,t)
s==t