(lambda (p) (lambda a (let ((b #t)) (let ((v (apply p a)))
    (if b (begin (set! b #f) v) (car 'Boot))))))