RosettaCodeData/Task/Remove-duplicate-elements/SETL/remove-duplicate-elements-4.setl

proc unique(items);
  seen := {};
  return [item: item in items, nps in {#seen} | #(seen with:= item) > nps];
end proc;