// synchronized sclass SeenAndQueue { Set seen = syncSet(); L queue = syncLinkedList(); // L transient L onAddedToQueue = syncList(); transient L onQueueEmpty = syncList(); transient ReliableSingleThread rst; bool add(A a) { if (a == null || !seen.add(a)) false; queue.add(a); pcallFAll(onAddedToQueue, a); true; } void addAll(Iterable l) { fOr (A a : l) add(a); } A popQueue() { ping(); synchronized(queue) { A a = syncPopFirst(queue); if (a != null && empty(queue)) pcallFAll(onQueueEmpty); ret a; } } // ends when queue is empty ItIt queueIterator() { ret iteratorFromFunction_if0(() -> popQueue()); } void onAddedToQueue(O r) { onAddedToQueue.add(r); } ReliableSingleThread rst(Runnable r) { if (rst != null) fail("rst already set"); rst = ReliableSingleThread(r); onAddedToQueue.add(rst); ret rst; } void cleanMeUp { cleanUp(rst); } }