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