; sealer with bug
(lambda () (let ((thePayload '()) (hasPayload #f))
  (cons (lambda (payload) (lambda () (set! thePayload payload) (set! hasPayload #t)))
        (lambda (box) (set! hasPayload #f) (box) (if hasPayload thePayload #f)))))