(define even?
  (lambda (x)
    (if (zero? x)
        #t
	(odd? (- x 1)))))

(define odd?
  (lambda (x)
    (if (zero? x)
        #f
	(even? (- x 1)))))