ligo/test/contracts/set_member.tz

parameter string;
storage (set string);
return bool;
code {DUP; CAR; DIP{CDR}; MEM; DIP{EMPTY_SET string}; PAIR};