(define (cn-to-int cn) (cn (lambda (x) (+ x 1)) 0))

(define zero (lambda (f) (lambda (x) x)))
(define (add-1 n)
  (lambda (f) (lambda (x) (f ((n f) x)))))

(display (cn-to-int zero))