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