(define (kar pair)
　(apply (lambda (x . y) x) pair))

(define (kdr pair)
　(apply (lambda (x . y) y) pair))

> (kar '(1 2))
1

> (kdr '(1 2))
(2)