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