(call/cc
 (λ (k)
   (begin ((λ (x) (k x))
           #t)
          #f)))