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