(define (call/cc f) (shift k (f k)))
(define (call/cc f) (f (lambda xs (shift _ (apply values xs)))))