;; confer ../callcc-early-exit-4
(letrec ((app (λ (f x)
                (begin (f x)
                       #f))))
  (call/cc (λ (k) (app k #t))))