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