(define my-cons
  (lambda (x y)
      (lambda (k)
          (if k x y))))

(define my-car
  (lambda (p)
      (p #t)))

(define my-cdr
  (lambda (p)
      (p #f)))

(define switch
  (lambda (par)
      (my-cons (my-cdr par) (my-car par))))