(define cont #f)
(call/cc (lambda (k) (set! cont k) 30))
(procedure? cont)