(defun make-id-flipper ()
  (let ((state nil)
        (id nil))
    (lambda (client)
      (if state
          (return-stream-id client id)
          (setf id (next-stream-id client)))
      (setf state (not state)))))