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